forked from Excel-projects/Script-Help
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathPatternStyleMap.vb
More file actions
56 lines (48 loc) · 1.73 KB
/
Copy pathPatternStyleMap.vb
File metadata and controls
56 lines (48 loc) · 1.73 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Namespace Scripts
Namespace Syntax
Friend Class PatternStyleMap
Public Property Name() As String
Get
Return m_Name
End Get
Set
m_Name = Value
End Set
End Property
Private m_Name As String
Public Property PatternDefinition() As PatternDefinition
Get
Return m_PatternDefinition
End Get
Set
m_PatternDefinition = Value
End Set
End Property
Private m_PatternDefinition As PatternDefinition
Public Property SyntaxStyle() As SyntaxStyle
Get
Return m_SyntaxStyle
End Get
Set
m_SyntaxStyle = Value
End Set
End Property
Private m_SyntaxStyle As SyntaxStyle
Public Sub New(name__1 As String, patternDefinition__2 As PatternDefinition, syntaxStyle__3 As SyntaxStyle)
If patternDefinition__2 Is Nothing Then
Throw New ArgumentNullException("patternDefinition")
End If
If syntaxStyle__3 Is Nothing Then
Throw New ArgumentNullException("syntaxStyle")
End If
If [String].IsNullOrEmpty(name__1) Then
Throw New ArgumentException("name must not be null or empty", "name")
End If
Name = name__1
PatternDefinition = patternDefinition__2
SyntaxStyle = syntaxStyle__3
End Sub
End Class
End Namespace
End Namespace