请教：如何控制VB的RESIZER事件不触发

Question

我想设计一段代码，就是当窗体上的某个控件（例如叫AAA）为Visible = TRUE时，窗体不准许最大化，谢谢了

Answer 1

Private Sub Form_Resize()
    If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
End Sub

Answer 2

属性的 Maxbutton 设定 false就可以了。

Answer 3

呵呵 服了你~~想的满周到~~属性设定为 FixedDialog, MinButton=TRUE, MaxButton=Fasle
基本上解决了吧
= =

Answer 4

'添加一个 Check1  当它打勾时容许一切的变化, 没打勾则一切变化都会还原为初始的窗体尺寸Dim OldWidth&, OldHeight&Private Sub Form_Load()
   OldWidth = Me.Width: OldHeight = Me.Height
End SubPrivate Sub Form_Resize()
   If Check1.Value = 0 Then
      Me.WindowState = 0
      If Me.Width <> OldWidth Then Me.Width = OldWidth
      If Me.Height <> OldHeight Then Me.Height = OldHeight
   End If
End SubPrivate Sub Check1_Click()
   Form_Resize
End Sub

Answer 5

setwindowlongif Msg=WM_SIZING(正在调整大小)或 Msg=WM_SIZE

Answer 6

改变窗体风格,变成FixSignal或FixDialog