用于控件的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

回答

相关问题