If SmartTags("纳米机型")=1 Then

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_30").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_31").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_32").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_33").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_134").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_135").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_136").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_137").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_103").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_104").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_105").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_106").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_107").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_108").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_114").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_115").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_116").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_117").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_127").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_128").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_129").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_130").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_131").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_132").Visible=vbYes

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_133").Visible=vbYes

Else

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_30").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_31").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_32").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("I/O 域_33").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_134").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_135").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_136").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_137").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_103").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_104").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_105").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_106").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_107").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_108").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_114").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_115").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_116").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_117").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_127").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_128").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_129").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_130").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_131").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_132").Visible=vbNo

HmiRuntime.Screens("2操作界面").ScreenItems("矩形_133").Visible=vbNo

End If

End Sub

按理说SmartTags("纳米机型")=1显示，否则不显示，为啥程序不执行，麻烦大家看看