只是要使自身程序不能被最小化完全没必要这么麻烦。。。
Dim prevState%
Private Sub Form_Load()
prevState = Me.WindowState
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.WindowState = prevState
End If
prevState = Me.WindowState
End Sub
或者连假象都不需要制造的话就直接设置窗体的最小化按钮为false吧。。。
处于安全方面的考虑,另外就是缓存内存受限制吧
舷泉水坎孛称为裳