我用的是Treeview6.0的nodeclick(对象事件),用通过我点击的文字改变“画面窗口”显示画面。请帮忙看看哪里有问题
Sub NodeClick(Byval Item, Byref Node)
Dim curNode,MyObj
Set curNode = MyObj.SelectedItem
If curNode.Key = "自贡市" Then'tree view控件文字的选项;
objcurNode=ScreenItems("画面窗口1")
objcurNode.ScreenName="显示画面1"
Elseif curNode.Key = "双流"Then'Thentree view控件文字的选项;
objcurNode=ScreenItems("画面窗口1")
objcurNode.ScreenName="显示画面2"
Elseif curNode.Key = "四川" Then'Thentree view控件文字的选项;
objcurNode=ScreenItems("画面窗口1")
objcurNode.ScreenName="显示画面3"
End If
End Sub
NewPdl2.zip