发布于 2009-07-15 10:58:31
0楼
看看西门子本身的例子程序
能有点启发吧
'--- Change the main picture ---
'HMIRuntime.Trace item.MainPicture & vbCrLf
item.Parent.Parent.Parent.ScreenItems("pwMain").PictureName = item.MainPicture
'--- Change the side menu ---
'HMIRuntime.Trace item.SideMenu & vbCrLf
item.Parent.Parent.ScreenName = item.SideMenu