我通过Wincc 里面的VBA可以通过代码绘制一个圆
也可以对通过其对一个属性增加一个VBA代码。
但是无法对圆的鼠标事件。增加代码。
如下（创造圆和对半径增加事件如下）
Dim objVBScript As HMIScriptInfo
Dim objCircle As HMICircle
Dim strCode As String
strCode = "return 10;"
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("myCircleAsObject", "HMICircle")
Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeCScript)
objVBScript.SourceCode = strCode '程序代码
如何通过VBA对圆的鼠标事件增加代码
图片说明：
最佳答案
Set objVBScript = objCircle.Events(1).Actions.AddAction(hmiActionCreationTypeVBScript)
objVBScript .SourceCode = strCode
注：.Events(1)中的1：是鼠标单击事件；2是按左键，依此类推。
提问者对于答案的评价：
谢谢
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc356288.html
微信扫一扫 
支付宝扫一扫