If SmartTags("PropertiesC12")  Then

   SmartTags("PropertiesC13")= 8

Select Case SmartTags("PropertiesC13")

Case 8

SmartTags("PropertiesC13")=16

Case 16

SmartTags("PropertiesC13")=32

Case 32

SmartTags("PropertiesC13")=8

End Select

End If

如上在面板实例中编写如上VB脚本，希望通过C12=1时，C13=8.16.32.8...实现三个画面切换循环，请高手指点下，脚本不会写，求高手指教

已解决：

If SmartTags("Properties\B01") Then

      SmartTags("Properties\C16")= 4

Elseif SmartTags("Properties\D01") Or SmartTags("Properties\T01")Or SmartTags("Properties\T02")Or SmartTags("Properties\T03")Or SmartTags("Properties\T04")Or SmartTags("Properties\T05")Or SmartTags("Properties\T06")Or SmartTags("Properties\T07")Then       

      SmartTags("Properties\C16")= 2

Elseif SmartTags("Properties\C12")And SmartTags("Properties\C13")=0  Then

Select Case SmartTags("Properties\C16")

Case 0    

SmartTags("Properties\C16")= 8

Case 8

SmartTags("Properties\C16")= 16

Case 16

SmartTags("Properties\C16")= 32

Case 32

SmartTags("Properties\C16")= 8

Case 2    

SmartTags("Properties\C16")= 8

Case 4    

SmartTags("Properties\C16")= 8

Case 64    

SmartTags("Properties\C16")= 8

Case 128    

SmartTags("Properties\C16")= 8

Case 256   

SmartTags("Properties\C16")= 8

End Select

Elseif SmartTags("Properties\C13") And SmartTags("Properties\C12")=0 Then

Select Case SmartTags("Properties\C16")

Case 0    

SmartTags("Properties\C16")= 64

Case 64

SmartTags("Properties\C16")= 128

Case 128

SmartTags("Properties\C16")= 256

Case 256

SmartTags("Properties\C16")= 64

Case 2    

SmartTags("Properties\C16")= 64

Case 4    

 SmartTags("Properties\C16")= 64

Case 8    

 SmartTags("Properties\C16")= 64

Case 16   

 SmartTags("Properties\C16")= 64

Case 32    

 SmartTags("Properties\C16")= 64

End Select

Else

SmartTags("Properties\C16")= 0

 End If