Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)
On Error Resume Next
'************************************************
'获得设备名称
'************************************************
'MsgBox Item.Parent.ObjectName '此方法不行
Dim m,u,u1,DeviceName
Set m=HMIRuntime.tags(".SCW")
u=InStrRev(m.name,"/")
u1=InStr(m.name,".")
DeviceName=Mid(m.name,u+1,u1-u-1)

'************************************************
'事件文本
'************************************************
Dim CompName,User,CompName_1,User_1
Set CompName=HMIRuntime.Tags("@NOTP::@LocalMachineName")
Set User=HMIRuntime.Tags("@NOTP::@CurrentUserName")
CompName.Read
User.Read
CompName_1=CompName.value
User_1=User.value

Dim Text,OldVal,NewVal
Text="HMI上按下启动按钮"
OldVal="空"
NewVal="空"

OperationLog CompName_1,User_1,DeviceName,Text,OldVal,NewVal
If Err.Number<>0 Then
MsgBox ("Error=" & CStr(Err.Number) & " " & Err.Des cription)
Err.Clear
End If
End Sub