表单加载hide()

时间:2015-09-21 15:41:07

标签: vba vb6

我有2个表格。我想在最后一个状态下打开第二个表单吗?我的意思是更改完整,文本字段更改,选择等等。我尝试使用.show但是它确实加载了来自load子的表单,它将表单从新状态重置。

任何人都可以在这里指导我吗?提前致谢

1 个答案:

答案 0 :(得分:2)

如果您不希望重新加载表单,请不要销毁它。

在主窗体中,存储对第二个窗体的单个实例的引用。

Private m_Dialog As Form2

Private Sub Command1_Click()
  If m_Dialog Is Nothing Then Set m_Dialog = New Form2

  m_Dialog.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
  If Not m_Dialog Is Nothing Then Unload m_Dialog
  Set m_Dialog = Nothing
End Sub

在第二种形式中,使用Hide()关闭它。

Private Sub OKButton_Click()
  Me.Hide
End Sub