恭喜,你发布的帖子
发布于 2023-02-06 11:57:35
4楼
Sub CreateAlarm(Byval AlarmNo)
Dim MyAlarm,CurrentUserName
CurrentUserName=HMIRuntime.Tags("@CurrentUser").Read(1)
' Msgbox CurrentUserName
Set MyAlarm=HMIRuntime.Alarms(AlarmNo)
MyAlarm.State=5
MyAlarm.UserName=CurrentUserName
MyAlarm.Create
' Msgbox AlarmNo
End Sub
请填写推广理由:
分享
只看
楼主