summaryrefslogtreecommitdiffstats
path: root/runtime/indent/testdir/vb.ok
blob: 143c688708ba516604f732f8814dd91f942e1ba3 (plain)
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
' vim: filetype=vb shiftwidth=4 expandtab
'
' START_INDENT
Public Type GEmployeeRecord     ' Create user-defined type. 
    ID As Integer               ' Define elements of data type. 
    Name As String * 20 
    Address As String * 30 
    Phone As Long 
    HireDate As Date 
End Type 

Public Enum InterfaceColors 
    icMistyRose = &HE1E4FF& 
    icSlateGray = &H908070& 
    icDodgerBlue = &HFF901E& 
    icDeepSkyBlue = &HFFBF00& 
    icSpringGreen = &H7FFF00& 
    icForestGreen = &H228B22& 
    icGoldenrod = &H20A5DA& 
    icFirebrick = &H2222B2& 
End Enum

Enum SecurityLevel 
    IllegalEntry = -1 
    SecurityLevel1 = 0 
    SecurityLevel2 = 1 
End Enum 

Public Function TestConditional (number As Integer, ext As String) As Boolean
    Dim inRange As Boolean

    Select Case number
        Case <= 0
            inRange = False
        Case > 10
            inRange = False
        Case Else
            inRange = True
    End Select

    ' This is a special case identified in the indent script.
    Select Case number
    End Select

    If ext = ".xlm" Then
        If inRange Then
            TestConditional = True
        Else
            TestConditional = False
        End If
    ElseIf ext = ".xlsx" Then
        If inRange Then
            TestConditional = False
        Else
            TestConditional = True
        End If
    Else
        TestConditional = False
    End If
End Function

Private Sub TestIterators (lLimit As Integer, uLimit As Integer)
    Dim a() As Variant
    Dim elmt As Variant
    Dim found As Boolean
    Dim indx As Integer
    Const specialValue As Integer = 5

    If uLimit < lLimit Then
        Exit Sub
    End If

    ReDim a(lLimit To uLimit)
    For indx=lLimit To Ulimit
        a(indx) = 2 * indx
    Next indx

    found = False
    For Each elmt in a
        If elmt = specialValue Then
            found = True
        End If
    Next elmt

    If found then
        indx = uLimit
        Do While indx >= lLimit
            indx = indx - 1
        Loop
    End If

End Sub

Public Sub TestMultiline (cellAddr As String, rowNbr As Long)
    Dim rng As Range

    Set rng = Range(cellAddr)
    With rng
        .Cells(1,1).Value = _
            "Line 1 of multiline string; " & _
            "Line 2 of multiline string; " & _
            "Line 3 of multiline string"
    End With

    ' The following lines have whitespace after the underscore character
    ' and therefore do not form a valid multiline statement.  The indent
    ' script correctly treats them as four single line statements contrary
    ' to the author's obvious indent.
    rng..Cells(1,1).Value = _ 
    "Line 1 of multiline string; " & _ 
    "Line 2 of multiline string; " & _ 
    "Line 3 of multiline string"

End Sub

Private Sub TestStmtLabel()
    GoTo stmtLabel

    ' Statement labels are never indented
stmtLabel:

End Sub

Sub TestTypeKeyword()
    Type EmployeeRecord         ' Create user-defined type. 
        ID As Integer           ' Define elements of data type. 
        Name As String * 20 
        Address As String * 30 
        Phone As Long 
        HireDate As Date 
    End Type 
    Dim varType As EmployeeRecord
End Sub
' END_INDENT