Question

我创建了一个包含多个绑定控件的Outlook表单。我希望在选中其中一个复选框以显示两个文本区域及其标签时，如果取消选中该复选框，则不可见。我想要显示的控件具有不可见的初始状态。我坚持使用VBScript语法。我一直在使用Sue Mosher的Outlook编程书，但我是一个新手，我没有得到它。我很感激任何帮助。我在Windows 7计算机上使用Outlook 2010。谢谢！

这是我的代码：

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

Answer 1

您可能希望在用户选中或取消选中时处理CheckBox.Change事件。

Private Sub CheckBox1_Change()
End Sub

Outlook表单控件的VBScript

1 个答案: