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

最新推荐文章于 2020-10-17 14:03:26 发布

原创最新推荐文章于 2020-10-17 14:03:26 发布 · 972 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#string

收录于

Visual Basic 专栏收录该内容

2 篇文章

订阅专栏

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

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