如何怎么点击了任务栏窗体标题右键菜单的选项

wo22ni 2009-03-19 05:50:28
如何怎么点击了任务栏窗体标题右键菜单的选项

比如点击了任务栏上窗体标题右键菜单中的关闭后,msgbox "拜拜"

点击最大化后,msgbox "最大化."
...全文
106 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
dufuguang 2009-03-19
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 Roock 的回复:]
在Form的Resize事件中去判断Form的WindowState属性的值,如果等于1就是"最小化",等于2就是"最大化".然后Form的Unload事件就是"关闭".

Private Sub Form_Resize()
If Me.WindowState = 1 Then

MsgBox "最小化"
End If

If Me.WindowState = 2 Then
MsgBox "最大化"
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "关闭"
End Sub
[/Quote]
应该能实现你所说的啊
bdzwj 2009-03-19
  • 打赏
  • 举报
回复
1、子类化窗口
2、拦截WM_SYSCOMMAND消息
3、依据WPARAM参数处理对应菜单消息。
当wParam = &HF060时为关闭菜单, wParam = &HF020时为最小化 wParam = &HF030时为最大化
wo22ni 2009-03-19
  • 打赏
  • 举报
回复
不是想要的..

进来UP都有分接...
Roock 2009-03-19
  • 打赏
  • 举报
回复

Private Sub Form_Resize()
If Me.WindowState = 1 Then
MsgBox "最小化"
End If
If Me.WindowState = 2 Then
MsgBox "最大化"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "关闭"
End Sub
Roock 2009-03-19
  • 打赏
  • 举报
回复
在Form的Resize事件中去判断Form的WindowState属性的值,如果等于1就是"最小化",等于2就是"最大化".然后Form的Unload事件就是"关闭".

Private Sub Form_Resize()
If Me.WindowState = 1 Then

MsgBox "最小化"
End If

If Me.WindowState = 2 Then
MsgBox "最大化"
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "关闭"
End Sub

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧