|
0
|
1 |
Sub QAxWidget2_Click
|
|
|
2 |
QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1
|
|
|
3 |
MainWindow.logMacro 0, "Hello from VBScript: QAxWidget2_Click", 0, ""
|
|
|
4 |
End Sub
|
|
|
5 |
|
|
|
6 |
Sub fatLines
|
|
|
7 |
QAxWidget2.lineWidth = 25
|
|
|
8 |
End Sub
|
|
|
9 |
|
|
|
10 |
Sub thinLines
|
|
|
11 |
QAxWidget2.lineWidth = 1
|
|
|
12 |
End Sub
|
|
|
13 |
|
|
|
14 |
Sub setLineWidth(width)
|
|
|
15 |
QAxWidget2.lineWidth = width
|
|
|
16 |
End Sub
|
|
|
17 |
|
|
|
18 |
Public Function getLineWidth
|
|
|
19 |
getLineWidth = QAxWidget2.lineWidth
|
|
|
20 |
End Function
|