如何将Form1文本框的用户输入值设置为Form2标签的内容

嘿，这个需求在VB6里其实有好几种实用的实现方式，我给你拆解几个常用的，你可以根据自己的场景选择：

方法1：直接引用另一个窗体的控件（最简单） #

如果Form1已经处于加载/显示状态，你可以在Form2的按钮事件里直接读取Form1中Textbox1的内容，代码修改成这样：

Private Sub Command56_Click()
    ' 直接获取Form1文本框的输入值，赋值给Label1
    Label1.Caption = Form1.Textbox1.Text
End Sub

⚠️ 注意：这种方法要求Form1已经被加载（要么用户已经打开过，要么你用Load Form1提前加载了），否则会触发自动加载Form1的操作，可能不符合你的预期。

方法2：用公共变量共享数据（适合多窗体共享） #

如果需要在多个窗体间共享这个输入值，推荐用标准模块的公共变量：

1. 先新建一个标准模块（比如命名为Module1），在里面声明公共变量：

Public UserInput As String

2. 在Form1里，把文本框的内容同步到这个变量里（比如在文本框内容变化时，或者Form1关闭时）：

' 文本框内容变化时实时同步
Private Sub Textbox1_Change()
    UserInput = Textbox1.Text
End Sub

' 或者在Form1关闭时保存最后输入的值
Private Sub Form_Unload(Cancel As Integer)
    UserInput = Textbox1.Text
End Sub

3. 然后在Form2的按钮事件里直接用这个变量：

Private Sub Command56_Click()
    Label1.Caption = UserInput
End Sub

方法3：自定义窗体属性（更规范的封装方式） #

如果想更贴合面向对象的思路，给Form2加一个自定义属性，在打开Form2的时候把值传进去：

1. 在Form2的代码窗口里添加属性定义：

' 私有变量存储传入的值
Private m_InputText As String

' 定义可设置的属性
Public Property Let InputText(ByVal value As String)
    m_InputText = value
End Property

' 窗体加载时自动把值赋给Label1
Private Sub Form_Load()
    Label1.Caption = m_InputText
End Sub

2. 在Form1里打开Form2的时候，先设置属性再显示：

Private Sub OpenForm2Btn_Click()
    ' 先把文本框的值传给Form2的自定义属性
    Form2.InputText = Textbox1.Text
    ' 显示Form2
    Form2.Show
End Sub

这种方式的好处是数据传递更清晰，不会依赖全局变量，也不需要担心Form1的状态。

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