vb关闭窗体的代码

新速特源码 6月12日 19 0

Private Sub Form_Unload(Cancel As Integer)
'关闭窗体时执行的代码
End Sub

Private Sub Command1_Click()
'点击按钮时执行的代码
Unload Me '关闭当前窗体
End Sub

如果你想在代码中直接关闭窗体，可以使用以下代码：

Me.Close

或者

Unload Me

这两个语句都可以在窗体的任何事件中使用，例如在按钮的Click事件中使用：

Private Sub Command1_Click()
Me.Close '或者Unload Me
End Sub

如果你想在窗体关闭时执行一些代码，可以使用Form_Unload事件：

Private Sub Form_Unload(Cancel As Integer)
'关闭窗体时执行的代码
End Sub

在这个事件中，你可以执行一些清理工作，例如关闭文件、保存数据等。如果你想阻止窗体关闭，可以将Cancel参数设置为True：

Private Sub Form_Unload(Cancel As Integer)
If Not CanClose Then '如果不能关闭
Cancel = True '阻止窗体关闭
End If
End Sub

在这个例子中，如果CanClose变量为False，就会阻止窗体关闭。