请问如何在一个按钮中实现调用 Form_Unload 函数。谢谢! 我是刚学VB的,所以还请各位帮忙 Private Sub Command1_Click()
Form_Unload
End Sub Public Sub Form_Unload(Cancel As Integer)
......
...... CloseCQXMapInfoConnection ......
......
End Sub
结果出错!
Form_Unload
End Sub Public Sub Form_Unload(Cancel As Integer)
......
...... CloseCQXMapInfoConnection ......
......
End Sub
结果出错!
unload me '这时就会调用UNLOAD事件
End Sub Public Sub Form_Unload(Cancel As Integer)
......
...... CloseCQXMapInfoConnection ......
......
End Sub
Form_Unload 0 '(1)
End Sub Private Sub Form_Unload(Cancel As Integer)
MsgBox "确认退出?": End
End Sub
unload me
End Sub或
Private Sub Command1_Click()
unload form1
End Sub
Form_Unload 0 '(1)
End SubPrivate Sub Form_Unload(Cancel As Integer)
a=MsgBox "确认退出?",35
if a=6 then End else cancel=1
End Sub
unload me
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的退出吗?", vbQuestion + vbYesNo) = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub
unload me 或 unload formX
而要用
Form_Unload 0 或 Form_Unload 1 或 call Form_Unload(0)
把Form_Unload 中做的事情做成一个过程或函数,在Form_Unload 中可以调用,在按钮事件中也可以调用
或者
Private Sub Command1_Click()
unload me
End Sub
也不知道楼主问的是什么了。
不过。如果关闭窗口用unload me就行了
在窗口关闭时会触发sub form_unload()
在这里面你可以写你要处理的程序代码。
unload me
End Sub
unload me
End Sub
学VB,先掌握一些内部函数,会更易上手.