# Re: 资料回传的问题 !!

Posted by cww on July 26, 1999 at 18:30:14:

In Reply to: 资料回传的问题 !! posted by gg on July 26, 1999 at 08:28:17:

'form1
Private Sub Command1_Click()
Dim ii As String
ii = Form2.Invoke
Debug.Print ii
End Sub

'form2
Private txtstr As String
Public Function Invoke() As String
Me.Show vbModal
Invoke = txtstr
End Function

Private Sub Text1_Change()
txtstr = Text1.Text
End Sub

Follow Ups: