2

全部！我会尽量详细描述我的困境。我对 Visual Basic 有一点背景知识，但在 Outlook 2010 中没有真正的 VBA 或 VBscript 知识。我正在使用 Outlook 2010。我创建了一个自定义表单（这是我的第一次）。我有一个名为 ComboBox1 的组合框和一个名为 TextBox1 的文本框。我正在尝试使用基于从 ComboBox1 所做的选择的数字自动填充 TextBox1（例如，我从 ComboBox1 中选择值 1，而 TextBox1 填充为 124）。我尝试在 Visual Basic 编辑器（VBA 7.0 版）中使用此代码：

Sub popBox()
If ComboBox1 = "Value 1" Then
TextBox1 = "124"
End If
End Sub

我的问题是我做错了什么？我应该使用 VBscript 编辑器，还是使用 VBA 是正确的做法？我要问的甚至可能吗？谢谢大家！

4

2 回答 2

2

今天早上真是太棒了！我发现了我的问题的解决方案。万一将来有人遇到这个问题，这就是我想出的：

Sub Item_CustomPropertyChange(ByVal Aircraft)

Set myInspector = Item.GetInspector
Set FormPage = myInspector.ModifiedFormPages("Form")
Set Aircraft = FormPage.Controls("Aircraft")
Set PartNumber = FormPage.Controls("PartNumber")
    Select Case Aircraft.Value
        Case "Value 1"
            PartNumber.Value = "124"
        Case "Value 2"
            PartNumber.Value = "125"
    End Select
End Sub
于 2012-07-12T01:39:41.803 回答
1

右键单击您的表单并选择“查看代码”。现在，您应该可以从代码编辑器文本输入部分正上方的下拉菜单中进行选择。选择“ComboBox1”，然后从相邻的下拉菜单中选择“更改”。

编辑器应该为您创建一个名为“Private Sub ComboBox1_Change()”的例程。输入以下内容：

Private Sub ComboBox1_Change()
  Select Case ComboBox1.Value
    Case "Value 1"
      TextBox1.Caption = "124"
    Case Else
      TextBox1.Caption = ""
  End Select
End Sub

您也可以将上述代码（只要您的组合框称为“ComboBox1”而您的文本框称为“TextBox1”）粘贴到表单的代码中，并获得相同的结果。让我知道你怎么去。

于 2012-07-10T05:17:10.370 回答