vb 有三个窗体ABC，A和B各有按钮进入C窗口，在C窗口有多个按钮 - 编程论坛

风吹过b2015-07-30 16:01

form3 的代码：

程序代码：

Option Explicit

Public TxtBoxObj As TextBox                '保存着用来显示内容的对象引用

Private Sub Command1_Click()
    On Error Resume Next
    TxtBoxObj.Text = Command1.Caption
End Sub

二个窗体上的按钮代码是一样的，内容是：

程序代码：

Private Sub Command1_Click()
Load Form3                        '加载
Set Form3.TxtBoxObj = Text1        '设置显示对象
Form3.Show                        '显示窗体
End Sub

wmf20142015-07-30 16:04

这貌似很简单的。
在c窗口里写一个public类型的sub用于接收不同窗口里传来的text控件即可，c窗口里的代码如下：
Dim ttt As TextBox
Public Sub abcd(tin As TextBox)
  Set ttt = tin
  Me.Show
End Sub

Private Sub Command1_Click()
  ttt = Command1.Caption  '往不同窗口的text控件里写caption
End Sub

Private Sub Command2_Click()
  ttt = ""   '清空不同窗口里的text控件文本
End Sub

a、b窗口打开c窗口的代码为：Form3.abcd Text1   '假定Form3为c窗口名称

[ 本帖最后由 wmf2014 于 2015-7-30 16:06 编辑 ]