21 lines
390 B
Plaintext
21 lines
390 B
Plaintext
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
|