在 VB6 中从用户控件访问文本框值到另一个用户控件

Question

我在VB6中有一个要求，从同一项目的另一个用户控件user2.ctl中的一个用户控件user1.ctl访问文本框的值，如果文本框值> 100，需要将其设置为100。我没有工作过到目前为止，在 Visual basic 中对这些事情的了解，非常感谢您的帮助。

Answer 1

用户控件之外无法访问文本框，因此您需要通过向用户控件添加公共属性来公开文本框：

Public Property Get SomeTextBox() As String
   SomeTextBox = Text1.Text
End Property

Public Property Let SomeTextBox(ByVal Value As String)
   Text1.Text = Value
End Property

如果您将该用户控件放到表单上，那么您将可以说：

If user1.SomeTextBox > 100 Then user1.SomeTextBox = 101

如果您将第二个用户控件拖放到表单上并希望从第二个用户控件更新第一个用户控件，那么您将在第二个用户控件中说：

If UserControl.Parent.user1.SomeTextBox > 100 Then UserControl.Parent.user1.SomeTextBox = 100