VB6中跨用户控件访问文本框值并限制最大值至100

步骤1：暴露User1中文本框的访问接口 #

VB6用户控件内部的控件默认是Private权限，外部无法直接访问。推荐通过属性封装的方式暴露文本框的值，比直接修改控件权限更规范：

打开User1.ctl的代码窗口，添加以下属性代码（假设文本框名为txtInput）：

' 获取文本框的值
Public Property Get InputValue() As Integer
    InputValue = Val(txtInput.Text)
End Property

' 设置文本框的值
Public Property Let InputValue(ByVal newValue As Integer)
    txtInput.Text = CStr(newValue)
End Property

步骤2：在User2中访问并修改User1的值 #

假设你的窗体上已经放置了User1的实例（默认实例名是User1，可在窗体设计器中修改），在User2.ctl的代码中（比如按钮点击事件、或者需要触发逻辑的地方）添加以下代码：

Private Sub Command1_Click()
    Dim currentVal As Integer
    ' 获取User1文本框的值
    currentVal = User1.InputValue
    
    ' 判断并限制最大值为100
    If currentVal > 100 Then
        User1.InputValue = 100
    End If
End Sub

注意事项 #

• 确保窗体上存在User1的有效实例，且User2的代码能引用到该实例的名称（实例名可在窗体设计器的属性窗口中修改）
• 若不想用属性封装，也可以直接将User1中的txtInput控件权限改为Public（在控件属性窗口修改(Name)下方的Modifiers为Public），但这种方式破坏封装性，不推荐
• 用Val()函数转换文本框内容是为了处理非数字输入，避免类型转换报错

内容的提问来源于stack exchange，提问作者Puneeth