tools/testcon/scripts/vbscript.vbs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Sub QAxWidget2_Click
    QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1
    MainWindow.logMacro 0, "Hello from VBScript: QAxWidget2_Click", 0, ""
End Sub

Sub fatLines
    QAxWidget2.lineWidth = 25
End Sub

Sub thinLines
    QAxWidget2.lineWidth = 1
End Sub

Sub setLineWidth(width)
    QAxWidget2.lineWidth = width
End Sub

Public Function getLineWidth
    getLineWidth = QAxWidget2.lineWidth
End Function