十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Anchor属性可以被设定为Top Bottom Left和Right的任何组合 默认设置是Top Left 这可以保持控件的top left角与视窗边框具有相同的相对位置 设置Anchor属性为Top and Bottom可以垂直地调整控件 保证从视窗底部到控件底部距离相同
创新互联是一家专业提供古丈企业网站建设,专注与成都网站设计、网站建设、html5、小程序制作等业务。10年已为古丈众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
Me TextBox Anchor = (System Windows Forms AnchorStyles Top Or System Windows Forms AnchorStyles Left)
Dock属性
这个属性可以被设置为Top Bottom Left Right或Fill 将其设置为Top Bottom Left或Right可以使控件紧挨指定的视窗边缘 或者紧挨已放置到相应视窗边缘的其他控件 设置Dock属性为Fill可以使控件调整为充满视窗的整个客户区
Me Panel Dock = System Windows Forms DockStyle Bottom
你还可以使用DockPadding对象来设置填充视窗边框和已放置好的控件间的区域 它有对应每个视窗边框的属性 如果想要边框对每个边都一致也可以通过设置All属性实现
Me DockPadding All = lishixinzhi/Article/program/net/201311/14503
mytest1是继承自什么类,通常应该继承自UerControl,虽然你这样也能编译通过,但实际上没有任何意义。所以你先改了再说。继承之后,编译,工具箱就会多这么个控件,拖动到Form1上,这样按钮下就不用再new了。然后你再来问。
Option Explicit
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
用vs.net创建控件项目,其他的和vb类似...
新建项目-windows 窗体控件库