从单个用户窗体将值填充到两个文本框中

【问题标题】：populate values in to two textboxes from a single userform从单个用户窗体将值填充到两个文本框中
【发布时间】：2013-05-16 09:12:53
【问题描述】：

我正在用 Ms-Word vba 编写代码。

我做了两个用户表单说 userform_1 和 userform_2

userform_1 包含两个按钮和两个文本框。
userform_2 是一个日历用户表单。

我编写了一个代码，用于在每个按钮单击事件上显示日历使用表单。

现在，我想编写一个代码，这样当用户单击第一个按钮时，选定的日历值将显示在 textbox1 中，当用户单击第二个按钮时，选定的值将显示在第二个文本框中。但它在文本框中显示相同的值。

请让我知道我如何才能做到这一点...

Private Sub CmB_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Main.Event_DblClick = True
    Dim SampleDate As Date
    frmAE_Tool.TextBox1.Text = Me.Value
    frmAE_Tool.TextBox2.Text = Me.Value

End Sub

【问题讨论】：

标签： vba ms-word

【解决方案1】：

您可以做的是在您的 userform_2 中创建一个Sub 来确定日历的输出。

用户表单_2：

声明一个Private 变量，如下所示：

Private mTextBox As Control

(这个文本框将是你日历的输出文本框)

添加以下Sub：

Public Sub SetOutput(pTextBox As Control)
    Set mTextBox = pTextBox
End Sub

（这个 Sub 可以决定你想使用哪个输出）

像这样修改你的CmB_DblClick Sub：

Private Sub CmB_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Others things that I didn't understand

    mToolbox = Me.Value
End Sub

用户表单_1：

对于第一个按钮，修改Click Sub 如下：

Private Sub Btn1_Click
    [...]
    YourCalendarForm.SetOutput Textbox1
End Sub

第二个，像这样：

Private Sub Btn2_Click
    [...]
    YourCalendarForm.SetOutput Textbox2
End Sub

【讨论】：