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
|
<h2>Comments</h2>
<pre><code>' This is a comment
// This is a comment too
Rem This is a remark</code></pre>
<h2>Strings</h2>
<pre><code>""
"foo ""bar"" baz"</code></pre>
<h2>Numbers and colors</h2>
<pre><code>42
3.14159
3E4
&b0110
&cAABBCCDD
&hBadFace
&o777
&u9</code></pre>
<h2>Example</h2>
<pre><code>Dim g As Graphics
Dim yOffSet As Integer
g = OpenPrinterDialog()
If g <> Nil Then
If MainDishMenu.ListIndex <> -1 Then
g.Bold = True
g.DrawString("Main Dish:",20,20)
g.Bold = False
g.DrawString(MainDishMenu.Text,100,20)
g.Bold = True
g.DrawString("Side Order:",20,40)
g.Bold = False
If FriesRadio.Value Then
g.DrawString(FriesRadio.Caption,100,40)
End If
If PotatoRadio.Value Then
g.DrawString(PotatoRadio.Caption,100,40)
End If
If OnionRingRadio.Value Then
g.DrawString(OnionRingRadio.Caption,100,40)
End If
yOffSet = 60
If CheeseCheckBox.Value Then
g.Bold = True
g.DrawString("Extra:",20,yOffSet)
g.Bold = False
g.DrawString(CheeseCheckBox.Caption,100,yOffSet)
yOffSet = yOffSet + 20
End If
If BaconCheckBox.Value Then
g.Bold = True
g.DrawString("Extra:",20,yOffSet)
g.Bold = False
g.DrawString(BaconCheckBox.Caption,100,yOffSet)
yOffSet = yOffSet + 20
End If
g.Bold = True
g.DrawString("Notes:",20,yOffSet)
g.Bold = False
g.DrawString(NotesField.Text,100,yOffSet,(g.Width-40))
End If
End If
</code></pre>
|
