unloadmode 参数返回值

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then Cancel = True
End Sub

unloadmode 参数返回下列值:

常数 值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode 1 Unload 语句被代码调用。
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。
vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。

VB中,可以使用API函数来实现定时处理和退出操作。 首先,要实现定时处理,我们可以使用API函数SetTimer来设置一个定时器。例如,我们可以使用以下代码来设置一个每隔1秒触发一次的定时器: Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Private Sub Form_Load() ' 设置一个定时器,每隔1秒触发一次 SetTimer Me.hWnd, 0, 1000, AddressOf TimerProc End Sub Private Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTime As Long) ' 在这里编写每隔1秒触发的代码 End Sub 在TimerProc子程序中,我们可以编写需要定时触发的代码。 接下来,要实现程序的退出操作,我们可以使用API函数PostQuitMessage来发送一个退出消息给窗口消息队列。例如,我们可以使用以下代码来退出程序: Private Declare Sub PostQuitMessage Lib "user32" (ByVal nExitCode As Long) Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' 发送退出消息给窗口消息队列 PostQuitMessage 0 End Sub 在Form_QueryUnload事件中,我们发送一个退出消息给窗口消息队列,通知程序退出。退出消息的参数为0,表示程序正常退出。 通过使用上述的API函数,我们可以在VB中实现定时处理和退出操作。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值