主题：请问如何用命令添加控件~~~~~~~
xjtuwangpeng
[专家分：30] 发布于 2008-11-14 12:05:00
用VB进行编程的时候如何用命令添加控件？？？
回复列表 （共3个回复）
沙发
merry05 [专家分：8920] 发布于 2008-11-14 14:59:00
VB：
controls.add
API：
CreateWindowEx
板凳
一江秋水 [专家分：9680] 发布于 2008-11-14 17:30:00
以添加文本框为例，用两种办法添加：
一、
Option Explicit
Dim WithEvents Text2 As VB.TextBox
Private Sub Form_Load()
Set Text2 = Controls.Add("vb.textbox", "text2")
With Text2
.Move 100, 1250, 4100, 350
.Visible = True
End With
...
End Sub
二、添加4个文本框，与原有的文本框形成控件数组（要求窗体上原来有一个Index为0的Text2)
Private Sub Form_Load()
For i = 1 To 4
Load Text2(i)
Text2(i).Move 15, (i - 1) * 265 + 30
Text2(i).Visible = True
Next
End Sub
3 楼
xjtuwangpeng [专家分：30] 发布于 2008-11-14 19:14:00
谢了啊~~~~~~~~~~~~~~~~~~~~~
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 请问如何用命令添加控件~~~~~~~