VB中怎么加入一个标签

1、首先我们新建一个工程，并新建一个标准Exe工程。

2、这时候我们找到工具箱中标签框。

3、这时候我们可以直接双击控件即可成功绘制。

4、或者我们可以选中他，然后在页面上绘制。

5、如果对它的外观不满意，我们在属性窗口中修改。

6、双击控件即可进入代码窗口。完成效果图。

1、首先第一步就是要点击“开始”然后再点“Visual Studio 2015”，启动Visual Studio 2015程序，这时候就是要点“新建项目”。

2、接着控件里的有个image属性可以添加图片，存入项目的一个Resources文件夹中，然后这时候就是选择“Windows 窗体应用程序”。

3、然后就是 运行通用对话框，）要点击“确定”，这时候就是一个Windows 窗体应用程序。

4、接着就是要从工具箱中添加一个imagelist控件注意的是到windows窗体上。

5、接着就是要进行设置imagelist，然后就要点击...按钮，再注意的是打开图像集合编辑器。

6、然后就是进行“添加”，然后就是要注意的是这时候将图片添加到imagelist控件。

7、最后一步就可以看到图片添加到了pictureBox。

'Dim WithEvents NewText As TextBox

Private Sub Command1_Click()

For i = 1 To 4

sname = "Txt" &i

Set NewText = Controls.Add("VB.TextBox", sname)

NewText.Move 2000, 500 * i, 1000, 360

Controls(sname).Text = "文本框" &i

NewText.Visible = True

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 4

sname = "Cmdnew" &i

Set NewButton = Controls.Add("VB.CommandButton", sname)

NewButton.Move 500, 500 * i, 1000, 360

Controls(sname).Caption = "按钮" &i

NewButton.Visible = True

Next i

End Sub

Private Sub Command3_Click()

For i = 1 To 4

BqName = "Lbl" &i

Set Newlbl = Controls.Add("VB.Label", BqName)

Newlbl.Move 3500, 500 * i, 1000, 360

Controls(BqName).Caption = "标签" &i

Newlbl.Visible = True

Next i

End

'Set Newlbl = Controls.Add("VB.Label", BqName)中，Label可替换成工具箱中任意控件类名

更多VB代码可参阅我的博客：http://hi.baidu.com/zgmg/blog/item/c1a68eec0fabdb2b63d09f5b.html#

---