我想让form1改变尺寸到一定大小时不改变!怎写代码?!急

Question

private sub form1_resize()
  if me.scalewidth<200
     me.scalewidth=200
  endif
  if me.scaleheight<200
     me.scaleheight=200
  end if
end sub
     

Answer 1

：　proking(小卢
好像不行啊 

Answer 2

：　proking(小卢
好像不行啊   

Answer 3

你用
me.Width=4000
试一下

Answer 4

Private Sub Form_Resize()
    If Form1.Width < 4000 Then
        Form1.Enabled = False
        Form1.Width = 4000
        Form1.Enabled = True
    End If
    If Form1.Height < 4000 Then
        Form1.Enabled = False
        Form1.Height = 4000
        Form1.Enabled = True
    End If
End Sub

Answer 5

Private Sub Form_Resize()
    If Form1.Width < 4000 Then
        Form1.Enabled = False
        Form1.Width = 4000
        Form1.Enabled = True
    End If
    If Form1.Height < 4000 Then
        Form1.Enabled = False
        Form1.Height = 4000
        Form1.Enabled = True
    End If
End Sub