Form之间传递参数及调用过程小技巧

gdcrx

于 2005-01-22 22:27:00 发布

阅读量915

点赞数

CC 4.0 BY-SA版权

分类专栏： Visual Basic 文章标签： string

本文链接：https://blog.csdn.net/gdcrx/article/details/264244

Visual Basic 专栏收录该内容

2 篇文章

订阅专栏

博客给出了Form1和Form2的交互代码。在Form1中初始化Form2并设置参数，还定义了消息框测试方法；在Form2中接收Form1的引用，设置参数属性，且在消息框测试方法中调用Form1的对应方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 在 Form1 中

Private mForm As Form

Private Sub Form_Initialize()
      Set mForm = New Form2
    mForm .Init Me
End Sub

Private Sub ShowForm()
   mForm.Params="Test"
   mForm.Show 1

End Sub

Public Sub msgTest()
    MsgBox "Test"
End Sub

2 在Form2中

Private mForm As Form
Private mParams As String

Public Sub Init(ByVal valueForm As Form)
Set mForm = valueForm
End Sub

Public Property Get Params() As String
Params = mParams
End Property

Public Property Let Params(ByVal vNewValue As String)
mParams = vNewValue
End Property

Private Sub msgTest()
mForm .msgTest
End Sub