vb.net 系统最小化消息是什么?解决办法
vb.net 系统最小化消息是什么?
Protected Overrides Sub WndProc(ByRef m As Message)
If (m.WParam.ToInt32 = 126722) Then //系统最小化消息是什么?
MsgBox( "最喜爱 ")
Else
MyBase.WndProc(m)
End If
End Sub
------解决方案--------------------
不需要imports , 你需要自己定义一个常量
Private Const SC_MINIMIZE = &HF020&
If (m.WParam = SC_MINIMIZE) Then
Console.WriteLine( "最小化按钮点击了 ")
------解决方案--------------------
你参考下面的代码,常用常数:
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Dim SC_ARRANGE As Integer = &HF110
Dim SC_CLOSE As Integer = &HF060
Dim SC_HOTKEY As Integer = &HF150
Dim SC_HSCROLL As Integer = &HF080
Dim SC_KEYMENU As Integer = &HF100
Dim SC_MAXIMIZE As Integer = &HF030
Dim SC_MINIMIZE As Integer = &HF020
Dim SC_MOUSEMENU As Integer = &HF090
Dim SC_MOVE As Integer = &HF010
Dim SC_NEXTWINDOW As Integer = &HF040
Dim SC_PREVWINDOW As Integer = &HF050
Dim SC_RESTORE As Integer = &HF120
Dim SC_SCREENSAVE As Integer = &HF140
Dim SC_SIZE As Integer = &HF000
Dim SC_TASKLIST As Integer = &HF130
Dim SC_VSCROLL As Integer = &HF070
If (m.Msg = &H112) Then
If (m.WParam = SC_MINIMIZE) Then
Console.Write( "最小化按钮点击了 ")
ElseIf (m.WParam = SC_MAXIMIZE) Then
Console.Write( "最大化按钮点击了 ")
ElseIf (m.WParam = SC_CLOSE) Then
Console.Write( "关闭按钮点击了 ")
ElseIf (m.WParam = SC_RESTORE) Then
Console.Write( "还原按钮点击了 ")
End If
Console.WriteLine(m)
End If
MyBase.WndProc(m)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If (m.WParam.ToInt32 = 126722) Then //系统最小化消息是什么?
MsgBox( "最喜爱 ")
Else
MyBase.WndProc(m)
End If
End Sub
------解决方案--------------------
不需要imports , 你需要自己定义一个常量
Private Const SC_MINIMIZE = &HF020&
If (m.WParam = SC_MINIMIZE) Then
Console.WriteLine( "最小化按钮点击了 ")
------解决方案--------------------
你参考下面的代码,常用常数:
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Dim SC_ARRANGE As Integer = &HF110
Dim SC_CLOSE As Integer = &HF060
Dim SC_HOTKEY As Integer = &HF150
Dim SC_HSCROLL As Integer = &HF080
Dim SC_KEYMENU As Integer = &HF100
Dim SC_MAXIMIZE As Integer = &HF030
Dim SC_MINIMIZE As Integer = &HF020
Dim SC_MOUSEMENU As Integer = &HF090
Dim SC_MOVE As Integer = &HF010
Dim SC_NEXTWINDOW As Integer = &HF040
Dim SC_PREVWINDOW As Integer = &HF050
Dim SC_RESTORE As Integer = &HF120
Dim SC_SCREENSAVE As Integer = &HF140
Dim SC_SIZE As Integer = &HF000
Dim SC_TASKLIST As Integer = &HF130
Dim SC_VSCROLL As Integer = &HF070
If (m.Msg = &H112) Then
If (m.WParam = SC_MINIMIZE) Then
Console.Write( "最小化按钮点击了 ")
ElseIf (m.WParam = SC_MAXIMIZE) Then
Console.Write( "最大化按钮点击了 ")
ElseIf (m.WParam = SC_CLOSE) Then
Console.Write( "关闭按钮点击了 ")
ElseIf (m.WParam = SC_RESTORE) Then
Console.Write( "还原按钮点击了 ")
End If
Console.WriteLine(m)
End If
MyBase.WndProc(m)
End Sub