如何让空间居中，并且不可移动？

我想做一个控件，当在工程中加载该控件的时候，控件自动居于窗体中间，且不可移动。请问代码该如何写？

解决方案 »

  1.   

    如果是按钮控件，那么Private Sub Form_Load()
    Command1.Left = (Form1.Width - Command1.Width) / 2
    Command1.Top = (Form1.Height - Command1.Height) / 2
    End Sub
    其余的控件类似
      

  2.   

    如果是在运行时，就照我上面说的方法；
    如果在设计时，就这么做：先选中控件，再执行菜单
    Format>Center in Form>Horizontally和Vertically   '居中，两个都执行
    Format>Lock Controls       '锁定控件，使之不能移动，如果想要解锁就再点一下这个菜单就可以了
      

  3.   

    楼上没明白我的意思，我是说在做ActiveX控件的时候，当加载我的这个控件的时候如何自动显示在指定位置。比如说我做了一个StatusBar控件，如果使用户加载它时，控件始终在窗体下方，不管设计时还是运行时，并且它是不可移动的。
      

  4.   

    应该比能够设置 Top、Left 属性的更简单吧。
      

  5.   

    窗体的borderstyle属性设置为0，窗体就是不可移动和删除的
      

  6.   

    设计控件时将控件的Aligable=true就有了你说的功能了,不用写代码
      

  7.   

    控件在运行是一般都是不可移动的，除非你实用MOVE方法，或者是改变了它的LEFT和TOP属性