用於控件的Outlook窗體VBScript

我創建了一個帶有幾個綁定控件的Outlook窗體。我希望其中一個複選框在選中時可以使兩個文本區域及其標籤可見，如果複選框未選中，則不可見。我想讓可見的控件具有不可見的初始狀態。我困在VBScript語法中。我一直在使用Sue Mosher的Outlook編程書，但我是一個新手，我沒有得到它。我會很感激任何幫助。我在Windows 7機器上使用Outlook 2010。謝謝！用於控件的Outlook窗體VBScript

這裏是我的代碼：

Sub Item_PropertyChange(byVal Name) 
Set objInsp = Item.GetInspector 
Set objPage = objInsp.ModifiedFormPages("Message") 
Set ckWGC = objPage.Controls("ckWGC") 
Set lblState = objPage.Controls("lblState") 
Set WGCState = objPage.Controls("WGCState") 
Set lblCountry = objPage.Controls("lblCountry") 
Set WGCCountry = objPage.Controls("WGCCountry") 

If ckWGC.Value = True Then 
    lblState.Visible = True 
    WGCState.Visible = True 
    lblCountry.Visible = True 
    WGCCountry.Visible = True 
Else 
    lblState.Visible = False 
    WGCState.Visible = False 
    lblCountry.Visible = False 
    WGCCountry.Visible = False 
End If 
End Sub

來源

2017-03-08 JFrench

你將要處理的事件CheckBox.Change當用戶選中或取消選中它來捕捉。

Private Sub CheckBox1_Change() 
End Sub

來源

2017-03-09 15:08:37

感謝您的幫助。我將子例程語句更改爲「Private sub ckWGC_Change（）」，但這不起作用。 – JFrench

定義「沒有工作」 - 事件沒有發生？你是否設置了一個斷點來驗證它是否觸發？您是否在代碼窗口頂部的下拉列表中爲該控件的方法列表生成事件？ –

抱歉是含糊不清。我改變了子程序聲明，然後選擇「運行此表單」。我點擊了複選框，並且我想要顯示的兩個項目沒有顯示。 – JFrench

用於控件的Outlook窗體VBScript

回答

相關問題