在VBA中刷新TextBox

时间:2013-11-25 16:04:43

标签: vba ms-word word-vba

我想要完成的是在更改TextBox显示的变量后刷新VBA中的TextBox。

Private Sub UserForm_Initialize()
    Me.lehrkraft.List = Split("Deputat Honorar")
End Sub

Private Sub lehrkraft_Change()
Select Case lehrkraft
  Case Is = "Deputat"
    Me.lvsvalue.Visible = True
    Me.text1.Value = Chr(13) & "blabla" & Me.lvsvalue.Value & "blabla"
  Case Is = "Honorar"
    Me.lvsvalue.Visible = False
    Me.text1.Value = Chr(13) & "blabla" & Me.lvsvalue.Value & "blabla"
End Select
End Sub

所以我有一个ComboBox填充了两个条目“Deputat”和“Honorar”。根据用户选择的内容,将显示文本框lvsvalue或保持隐藏状态。在用户选择lehrkraft-entry之后,她将看到lvsvalue-TextBox并且能够修改其值。

因此TextBox text1中没有文本。用户选择“Deputat”,同时text1填充“blabla”& Me.lvsvalue.Value& “布拉布拉”。但由于我的设计,用户无法在lvsvalue-TextBox中输入内容,因此text1将显示“blablablabla”。

如何判断我的TextBox text1是否必须检查lvsvalue是否已被更改?

0 个答案:

没有答案