Sub MessageBox()
'控件名称前加窗体名称就可以了
MsgBox Form1.Text1.Text
End SubForm1:
Private Sub Command1_Click()
Call MessageBox
End SubSub MessageBox()
'控件名称前加窗体名称就可以了
MsgBox Form1.Text1.Text
End SubPrivate Sub Command1_Click()
Call MessageBox
End Sub
评论(0)
暂无评论。