
用Controls:
dim frame1 as Frame
Set frame1 = Controls.Add("VB.Frame", "aa") ‘添加
frame1 .Visible = True
frame1.Width = 1000‘调整大小
frame1.Height = 1000
Controls.Remove aa’删除
用控件数组:
首先在窗体上添加一个Frame控件,命名为frameArray,Index属性为0
Load frameArray(1) '添加
frameArray(1).Width = 1000‘调整大小
frameArray(1).Height = 1000
frameArray(1).Visible = True
Unload frameArray(1) '删除
使用数组方式,前提是已经初始化一个控件示例:
存在一个text1(0)控件
Private Sub Command1_Click()
Load Text1(1)
Text1(1).Top = Text1(0).Top + 500
Text1(1).Visible = True
Load Text1(2)
Text1(2).Top = Text1(1).Top + 500
Text1(2).Visible = True
End Sub
启动Visual Basic 6.0,创建一个工程并保存为"工程1.vbp",同时产生一个名为"Form1"的窗口。在工具箱的空白处单击鼠标右键,从d出的快捷菜单中启动"部件"窗口,点击"浏览"按钮,从存放下载控件的文件夹中找到控件。欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)