quote:以下是引用Ken.Carrey在2011-06-10 10:29:38的发言:
VBS鼠标动作触发事件CODE如下:
Dim mytime,bs
Set bs=HMIRuntime.Tags("BoolShow") 'BoolShow是一个为测试建立的内部bool型变量
bs.Write(1) '置1(高电平,波形上升)
mytime = Timer+2 '预设置1时间为2秒(高电平保持时间)
Do Until Timer=mytime '直到2s后再执行复位0
'空循环时间2s
Loop
bs.Write(0) '执行复位0(低电平,波形下降)
见:http://www.ad.siemens.com.cn/club/bbs/post.asp?a_id=856699&pno=1&b_id=5&s_id=17#856699
真乃高人也