发布于 2009-11-01 10:01:45
4楼
Sub OnClick(ByVal Item)
Dim MyPicWind, MyPicWind1
Set MyPicWind=HMIRuntime.Screens("a")
Set MyPicWind1=MyPicWind.ScreenItems("画面窗口1")
MyPicWind1.ScreenName="b"
MyPicWind1.Visible=True
Set MyPicWind=Nothing
Set MyPicWind1=Nothing
End Sub
还是这样的错误 不支持此接口!
哪位帮我测试测试看呢 在老早的版本的中 都可以的!