首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么判定是窗体被最大化、最小化或被还原引发生的Resize事件

2013-01-04 
怎样判定是窗体被最大化、最小化或被还原引发生的Resize事件?在Resize事件中,怎样才知道是窗体被最大化、最

怎样判定是窗体被最大化、最小化或被还原引发生的Resize事件?
在Resize事件中,怎样才知道是窗体被最大化、最小化或被还原引发生的该事件?
[解决办法]
检查Me.WindowState属性,
0:表示普通大小
1:最小化
2:最大化


Option Explicit

Private Sub Form_Resize()
    Select Case Me.WindowState
        Case 0
            Me.Caption = "普通大小"
        Case 1
            Me.Caption = "最小化"
        Case 2
            Me.Caption = "最大化"
    End Select
End Sub


[解决办法]
其他办法:
Option Explicit
Private Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function IsZoomed Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Mmax As Long, Mmin As Long

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    Mmax = IsZoomed(Me.hwnd)
    Mmin = IsIconic(Me.hwnd)
    If Mmax > 0 Then
       Me.Caption = "窗口已最大化"
    Else
       If Mmin > 0 Then
          Me.Caption = "窗口已最小化"
       Else
          Me.Caption = "窗口已被还原"
       End If
    End If
End Sub

热点排行