如何在满足某条件后，使FORM某事件禁止执行？

Question

有一个苯办法
声明一个布尔值变量bolChoose
在引发事件中先对其赋值
bolChoose=true
在要限制的事件中写入
if bolChoose=true and form1.height<=1800 then
   ....
end if

Answer 1

先建立数据库连接
Databasename=""     '数据库名称
Datascoure=""       '数据库里指定的表的名称------------------------Data1.Recordset.Movefirst
if txtname.text <> Data1.Recordset("姓名") and txtpassword.text <> Data1.Recordset("密码") then
form1.Enabled = ture
Else 
form1.Enabled = false 
unload.me   '当用户名和密码不等于数据库相应表单里的记录时可以触发多种行为
例如，像楼上的兄弟说的，可以禁止调整窗体大小，也可以像我说的可以关闭该窗体，或进入别的其他窗体end if 

Answer 2

事件()
  if a<>满足条件 then
    执行过程
  end if
结束事件

Answer 3

to Wesely:我是新手，请问那事件处理函数有哪些？

Answer 4

要这么复杂吗？
在事件的开头加IF语句判断，用EXIT SUB离开事件不就好了

Answer 5

就是WWolf(白狼)说的。比如： 
private sub form_resize(....)
   if me.windowsstate=vbminimized then exit sub
   ......
end sub

Answer 6

Private Sub Form_Load()
    Timer1.Interval = 1
End SubPrivate Sub Form_Resize()
    If Form1.Height <= 1800 Then
        Form1.Enabled = False
        Form1.Height = 1801
    End If
End Sub
Private Sub Timer1_Timer()
    Form1.Enabled = True
End Sub