VBscript为combobox选择案例

2012-10-12 59 views 1 likes

他在那里，我是VB新手脚本，我正在尝试做一个选择案例来将emailadress更改为组合框选项。我知道我在想，但我需要方向上的帮助。组合框的工作，但我不能得到在组合框中选择的值来触发选择的情况。VBscript为combobox选择案例

Sub Item_Open() 

    Set FormPage = Item.GetInspector.ModifiedFormPages("Message") 

    Set Control = FormPage.Controls("Subject") 

    Control.PossibleValues = "SPOED;STATUS;MANCO;KLACHT;TRANSPORT;TRACKING;INKOMEND;REPARATIE;RETOUREN;LADEN;MILKRUN" 

    Set MyPage = Item.GetInspector.ModifiedFormPages("Message") 
    Set Mail = MyPage.Item("Subject").Value 

    Select Case Mail 
     Case SPOED 
      Item.To = "[email protected]"   

     Case STATUS 
      Item.To = "[email protected]" 

     Case else 
      Item.To = ""  

    End Select 

End Sub

来源

2012-10-12 user1741131

回答

假设MyPage.Item("Subject").Value返回字符串值，如“STATUS”。然后，你必须把它捡起来在字符串变量：

strMail = MyPage.Item("Subject").Value ' look ma, no Set!

的Select Case X语句计算X表达，并将其与y的值，...在Case Y部分并执行上述第1块（）X和Y的值相等。若要将此包含像“SPOED”串strMail，当y表达式应该是字符串文字：

Select Case strMail 
    Case "SPOED" 
    ... 
    Case "STATUS" 
    ...

如果你要使用Option Explicit，VBScript中会告知，SPOED（ETC）是（理解为）一个单位变量不能等于（体面）strMail。

来源

2012-10-12 13:01:46

VBscript为combobox选择案例

回答

相关问题