Sub OnClick(ByVal Item)     

HMIRuntime.Screens("NewPdl0").ScreenItems("多行文本1").text=(HMIRuntime.tags("count").read+1)&Chr(10)& HMIRuntime.Screens("NewPdl0").ScreenItems("多行文本1").text

HMIRuntime.tags("count").write HMIRuntime.tags("count").read+1

End Sub

以上是倒叙，多行文本显示设备的多个提示信息。这样可以灵活设置正序或者倒叙提示信息。

Sub OnClick(ByVal Item)     

HMIRuntime.Screens("NewPdl0").ScreenItems("多行文本1").text=HMIRuntime.Screens("NewPdl0").ScreenItems("多行文本1").text&(HMIRuntime.tags("count").read+1)&Chr(10)

HMIRuntime.tags("count").write HMIRuntime.tags("count").read+1

End Sub

以上是倒叙显示

count变量模拟需要显示的信息