![VB6.0如何用代码添加控件?,第1张 VB6.0如何用代码添加控件?,第1张](/aiimages/VB6.0%E5%A6%82%E4%BD%95%E7%94%A8%E4%BB%A3%E7%A0%81%E6%B7%BB%E5%8A%A0%E6%8E%A7%E4%BB%B6%EF%BC%9F.png)
使用
数组方式,前提是已经初始化一个
控件\x0d\x0a示例:\x0d\x0a存在一个text1(0)控件\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aLoad Text1(1)\x0d\x0aText1(1).Top = Text1(0).Top + 500\x0d\x0aText1(1).Visible = True\x0d\x0aLoad Text1(2)\x0d\x0aText1(2).Top = Text1(1).Top + 500\x0d\x0aText1(2).Visible = True\x0d\x0aEnd Sub先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,
设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0aLoad Option1(i) 这句是关键,,,,,\x0d\x0aOption1(i).Top = Option1(0).Top\x0d\x0aOption1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200\x0d\x0aOption1(i).Visible = True\x0d\x0a Next\x0d\x0a Option1(0).Caption = "10"\x0d\x0a Option1(1).Caption = "15"\x0d\x0a Option1(2).Caption = "20"\x0d\x0a Option1(3).Caption = "30"\x0d\x0a End Sub\x0d\x0a\x0d\x0aPrivate Sub Option1_Click(Index As Integer)\x0d\x0a Text1.FontSize = Val(Option1(Index).Caption)\x0d\x0aEnd Sub主要有两种方法:
第一种,是最常用的,也是使Vb变得简单的一个优势,就是直接从工具箱中zhidao选择空间,添加到窗体中,还可以选中控件,设置各种专属性,设置好后,就无需再用代码进行设置。
第二种,比较复杂,就是直接用代码添加控件。需要用代码指定控件的大小属、位置等等各种属性,一般在Vb中用的较少。
评论列表(0条)