کلید های Maximize و Minimize

[yaserzare]

چه طور میشه تشخیص داد که کاربر کلید های Minimize و Maximize را کلیک کرده است

[علیرضا مداح]

سلام دوست عزیز،


Partial Public Class Form1
Inherits Form
Private lastWindowState As FormWindowState
Public Sub New()
InitializeComponent()
lastWindowState = Me.WindowState
End Sub
Protected Overloads Overrides Sub OnClientSizeChanged(ByVal e As EventArgs)
If Me.WindowState <> lastWindowState Then
lastWindowState = Me.WindowState
Dim newE As New WindowStateEventArgs
newE.WindowState = Me.WindowState
OnWindowStateChanged(newE)
End If
MyBase.OnClientSizeChanged(e)
End Sub
Protected Sub OnWindowStateChanged(ByVal e As WindowStateEventArgs)
MsgBox("WindowState = " & e.WindowState.ToString())
' Do your stuff
End Sub
Class WindowStateEventArgs
Inherits EventArgs
Private newWindowState As FormWindowState
Public Property WindowState() As FormWindowState
Get
Return newWindowState
End Get
Set(ByVal value As FormWindowState)
newWindowState = value
End Set
End Property
End Class
End Class

[lahij.ir]

چه طور میشه تشخیص داد که کاربر کلید های Minimize و Maximize را کلیک کرده است
یه راه خیلی ساده تر اینه که چک کنی ببینی وضعیت فرمت چطوریه !
تو قسمت Form_Resize این کد و بنویسد و تست کن ، خیلی ساده تره :لبخند:

Select Case Me.WindowState
Case FormWindowState.Maximized
MsgBox("MAXIMIZE")
Case FormWindowState.Minimized
MsgBox("minimaze")
Case FormWindowState.Normal
MsgBox("N o r m a l")
End Select