form1 =========================== Private Sub Command1_Click() Dim frmFind As New Form2 Me.Command1.Caption = frmFind.GetString End Sub ==================================== form2 ===================================== Public Function GetString() As String Me.Show vbModal GetString = Me.Text1.Text End Function Private Sub Command1_Click() Unload Me End Sub ====================================== 这是简单的代码,给你一个思路 自己扩从吧
===========================
Private Sub Command1_Click()
Dim frmFind As New Form2
Me.Command1.Caption = frmFind.GetString
End Sub
====================================
form2
=====================================
Public Function GetString() As String
Me.Show vbModal
GetString = Me.Text1.Text
End Function
Private Sub Command1_Click()
Unload Me
End Sub
======================================
这是简单的代码,给你一个思路
自己扩从吧