Mercurial > vim

annotate runtime/indent/testdir/vb.ok @ 35280:ff2301a5e798 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v9.1.0446 for changeset 95bb5918b0cf560504b765ded29c176ea11dd716
author Christian Brabandt <cb@256bit.org>
date Sun, 26 May 2024 18:45:03 +0200
parents f8e7e00787b5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
31579
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1 ' vim: filetype=vb shiftwidth=4 expandtab
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2 '
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3 ' START_INDENT
35225
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
4 #Const Debug = False
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
5
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
6 #If Win64 Then
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
7 ' Win64=true, Win32=true, Win16=false
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
8 #ElseIf Win32 Then
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
9 ' Win32=true, Win16=false
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
10 #Else
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
11 ' Win16=true
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
12 #End If
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
13
31579
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
14 Public Type GEmployeeRecord ' Create user-defined type.
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
15 ID As Integer ' Define elements of data type.
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
16 Name As String * 20
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
17 Address As String * 30
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
18 Phone As Long
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
19 HireDate As Date
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
20 End Type
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
21
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
22 Public Enum InterfaceColors
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
23 icMistyRose = &HE1E4FF&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
24 icSlateGray = &H908070&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
25 icDodgerBlue = &HFF901E&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
26 icDeepSkyBlue = &HFFBF00&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
27 icSpringGreen = &H7FFF00&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
28 icForestGreen = &H228B22&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
29 icGoldenrod = &H20A5DA&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
30 icFirebrick = &H2222B2&
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
31 End Enum
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
32
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
33 Enum SecurityLevel
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
34 IllegalEntry = -1
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
35 SecurityLevel1 = 0
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
36 SecurityLevel2 = 1
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
37 End Enum
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
38
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
39 Public Function TestConditional (number As Integer, ext As String) As Boolean
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
40 Dim inRange As Boolean
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
41
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
42 Select Case number
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
43 Case <= 0
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
44 inRange = False
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
45 Case > 10
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
46 inRange = False
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
47 Case Else
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
48 inRange = True
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
49 End Select
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
50
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
51 ' This is a special case identified in the indent script.
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
52 Select Case number
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
53 End Select
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
54
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
55 If ext = ".xlm" Then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
56 If inRange Then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
57 TestConditional = True
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
58 Else
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
59 TestConditional = False
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
60 End If
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
61 ElseIf ext = ".xlsx" Then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
62 If inRange Then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
63 TestConditional = False
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
64 Else
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
65 TestConditional = True
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
66 End If
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
67 Else
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
68 TestConditional = False
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
69 End If
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
70 End Function
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
71
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
72 Private Sub TestIterators (lLimit As Integer, uLimit As Integer)
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
73 Dim a() As Variant
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
74 Dim elmt As Variant
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
75 Dim found As Boolean
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
76 Dim indx As Integer
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
77 Const specialValue As Integer = 5
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
78
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
79 If uLimit < lLimit Then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
80 Exit Sub
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
81 End If
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
82
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
83 ReDim a(lLimit To uLimit)
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
84 For indx=lLimit To Ulimit
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
85 a(indx) = 2 * indx
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
86 Next indx
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
87
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
88 found = False
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
89 For Each elmt in a
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
90 If elmt = specialValue Then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
91 found = True
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
92 End If
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
93 Next elmt
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
94
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
95 If found then
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
96 indx = uLimit
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
97 Do While indx >= lLimit
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
98 indx = indx - 1
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
99 Loop
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
100 End If
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
101
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
102 End Sub
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
103
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
104 Public Sub TestMultiline (cellAddr As String, rowNbr As Long)
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
105 Dim rng As Range
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
106
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
107 Set rng = Range(cellAddr)
35225
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
108
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
109 ' Line continuation is implemented as a two-character sequence-
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
110 ' whitespace followed by underscore.
31579
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
111 With rng
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
112 .Cells(1,1).Value = _
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
113 "Line 1 of multiline string; " & _
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
114 "Line 2 of multiline string; " & _
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
115 "Line 3 of multiline string"
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
116 End With
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
117
35225
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
118 ' This code block omits the leading whitespace character and so
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
119 ' the trailing underscore will not be treated as line continuation.
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
120 With rng
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
121 .Cells(1,1).Value =_
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
122 "Line 1 of multiline string; " &_
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
123 "Line 2 of multiline string; " &_
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
124 "Line 3 of multiline string"
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
125 End With
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
126
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
127 ' The following lines have whitespace after the underscore character.
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
128 ' This is contrary to Microsoft documentation but it is reported that
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
129 ' some Microsoft editors allow it and will still treat the statement
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
130 ' as line-continued.
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
131 With rng
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
132 rng.Cells(1,1).Value = _
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
133 "Line 1 of multiline string; " & _
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
134 "Line 2 of multiline string; " & _
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
135 "Line 3 of multiline string"
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
136 End With
31579
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
137
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
138 End Sub
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
139
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
140 Private Sub TestStmtLabel()
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
141 GoTo stmtLabel
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
142
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
143 ' Statement labels are never indented
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
144 stmtLabel:
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
145
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
146 End Sub
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
147
35225
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
148 Public Static Function TestStatic(addend As Integer)
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
149 Dim Integer accumulator
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
150 accumulator = accumulator + addend
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
151 TestStatic = accumulator
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
152 End Function
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
153
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
154 Friend Function TestFriend(addend As Integer)
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
155 Static Integer accumulator
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
156 accumulator = accumulator + addend
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
157 TestFriend = accumulator
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
158 End Function
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
159
31579
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
160 Sub TestTypeKeyword()
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
161 Type EmployeeRecord ' Create user-defined type.
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
162 ID As Integer ' Define elements of data type.
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
163 Name As String * 20
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
164 Address As String * 30
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
165 Phone As Long
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
166 HireDate As Date
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
167 End Type
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
168 Dim varType As EmployeeRecord
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
169 End Sub
35225
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
170
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
171 Sub TestDateLiteralAfterLineContinuation
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
172 Dim birthday as Date
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
173 birthday = _
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
174 #January 1, 1901#
f8e7e00787b5 runtime(vb): update vb indent plugin as vim9script
Christian Brabandt <cb@256bit.org>
parents: 31579
diff changeset
175 End Sub
31579
7d68a90cbf5c Update runtime files
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
176 ' END_INDENT