发布于 2006-03-10 08:42:56
0楼
证实了下:
以下代码便是
一窗口名称为“MOTO1”,两个按钮“Button1”和“Button9”,Botton1更改Button9的文本属性。虽然简单但是也摸索很久,更是多谢几位兄弟的助拳。
Sub X6309X94AE9X0000X53E3_X6309X94AE9X0000P_OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim TryLevel
Set TryLevel = HMIRuntime.Tags("TagBool_1")
Dim TTT
Set TTT=HMIRuntime.Screens("Moto1").ScreenItems("Button9")
TryLevel.Read
If TryLevel.Value =0 Then
TryLevel.Value=1
TTT.Text ="Start"
Else
TryLevel.Value=0
TTT.Text ="Stop"
End If
TryLevel.Write ,1
End Sub