关于FORM的锁定

如何将一个FORM控件设置为不可编辑呢???编的程序里遇到了这种问题.

解决方案 »

  1.   

    这样就可以Private Sub Form_Load()
        Dim tObj As Control
        
        For Each tObj In Me.Controls
            tObj.Enabled = False
        Next
    End Sub
      

  2.   

    提供一个方法
    form里面放个frame
    frame.enabled=false就ok
    所有控件放frame里面不过这个方法不灵活
      

  3.   

    谢谢楼上两位,但是问题还没有根本解决,也许我的问发有点误导大家了,不光是FORM上的所有控件都变的不可编辑,关键是要让FORM被锁定,就象WINDOWS里面的很多程序一样，当填写一个对话框的时候另外一个对话框根本不能移动.
      

  4.   

    什么叫:"就象WINDOWS里面的很多程序一样，当填写一个对话框的时候另外一个对话框根本不能移动",能解释一下么?
      

  5.   

    msgbox弹出对话框时另外的窗体不就不能动吗?
      

  6.   

    Form.Enabled = False 就行了，另外还可以设置 Form 的 Moveable 属性而控制 Form 是否可以移动。
      

  7.   

    如果是模式加载窗体，请调用 Form 的 Show 方法：Form.Show 1
      

  8.   


    Moveable 属性
          返回或设置一个值，该值指定了对象是否可移动。语法object.Moveable = boolean部分 描述 
    object 对象表达式，其值是“应用于”列表中的对象。 
    boolean 布尔表达式，指定对象是否可以移动。 
    设置值boolean 的设置值是：常数 值 描述 
    True -1 可移动对象。 
    False 0 不可移动对象。 
      

  9.   

    谢谢大家,不够MOVEABLE属性在我的程序里不知道为什么用不了,