vbs语言
Sub OnClick(Byval Item)
Dim mplayer
Dim c5
Set c5 = HMIRuntime.Tags("c5")
c5.read
Set mplayer=ScreenItems("控件2")//控件2为media 控件


If c5.Value=1 Then
mplayer.Play

Else
mplayer.Pause
End if


If c5.Value=1 Then
c5.write 0
Else
c5.Write 1
End If

End Sub




-------------------------------取反
If c5.Value=1 Then
c5.write 0
Else
c5.Write 1
End If
--------------------------------
mplayer.Play
mplayer.Pause
mplayer.Stop
previous
next