Option Explicit Private m_fClose As Boolean Private Sub Command1_Click() m_fClose = True Unload Me End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = Not m_fClose Me.WindowState = vbMinimized End SubPrivate Sub Form_Resize() If Me.WindowState = vbMinimized Then Me.Hide'不过隐藏了之后你得再弄个方法让他再出来 End If End Sub//让窗体没有任务栏上的任务条后,最小化可以不缩在左下角,而是完完全全的最小化 那么这个窗体该缩到哪里去呢?
Option ExplicitPrivate Sub cmdEnd_Click()' 用按钮关闭 Unload Me End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then'禁止用窗体右上角的关闭按钮 MsgBox "sorry,you can't close me!", vbInformation, "提示" Cancel = 1 End If End Sub unloadmode 参数返回下列值:常数 值 描述 vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 vbFormCode 1 Unload 语句被代码调用。 vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。 vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。 vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。
Private m_fClose As Boolean
Private Sub Command1_Click()
m_fClose = True
Unload Me
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = Not m_fClose
Me.WindowState = vbMinimized
End SubPrivate Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.Hide'不过隐藏了之后你得再弄个方法让他再出来
End If
End Sub//让窗体没有任务栏上的任务条后,最小化可以不缩在左下角,而是完完全全的最小化
那么这个窗体该缩到哪里去呢?
Unload Me
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then'禁止用窗体右上角的关闭按钮
MsgBox "sorry,you can't close me!", vbInformation, "提示"
Cancel = 1
End If
End Sub
unloadmode 参数返回下列值:常数 值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode 1 Unload 语句被代码调用。
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。
vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。
MsgBox "sorry,you can't close me!", vbInformation, "提示"
换为:
Me.WindowState = vbMinimized
就可以最小化