没有啊,可以直接显示出来。frmB: Public Function R() As String R = "hello world" End FunctionfrmA: Private Sub Command1_Click() frmB.Show Text1.Text = frmB.R End Sub
刷新FormA中的Text1啊,Text1.refresh
form1: Private Sub Command1_Click() Form2.Show Text2 = Form2.r End Subform2:Public r As StringPrivate Sub Form_Load() r = "hello" End Sub========== 可以显示啊,你的返回值是在哪里设置的!?
Public Function R() As String
R = "hello world"
End FunctionfrmA:
Private Sub Command1_Click()
frmB.Show
Text1.Text = frmB.R
End Sub
Private Sub Command1_Click()
Form2.Show
Text2 = Form2.r
End Subform2:Public r As StringPrivate Sub Form_Load()
r = "hello"
End Sub==========
可以显示啊,你的返回值是在哪里设置的!?