恭喜,你发布的帖子
发布于 2019-05-17 11:42:01
2楼
Set MyObj = ScreenItems("Tree")
Set curNode = MyObj.SelectedItem
Set picWind = ScreenItems("画面窗口1")
If ... Then
picWind.ScreenName="显示画面1.Pdl"
ElseIf ... Then
picWind.ScreenName="显示画面2.Pdl"
End If
Sub NodeClick(Byval Item, Byref Node)
Set MyObj = ScreenItems("Tree")
Set curNode = MyObj.SelectedItem
Set picWind = ScreenItems("画面窗口1")
If curNode.Key = "双流" Then
picWind.ScreenName="画面.pdl"
Elseif curNode.Key = "四川" Then
picWind.ScreenName="画面1.pdl"
End If
End Sub
试了一下,(画面窗口1)一直没有显示
请填写推广理由:
分享
只看
楼主