tools/activeqt/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