1、首先我们新建一个工程,并新建一个标准Exe工程。
2、这时候我们找到工具箱中标签框。
3、这时候我们可以直接双击控件即可成功绘制。
4、或者我们可以选中他,然后在页面上绘制。
5、如果对它的外观不满意,我们在属性窗口中修改。
6、双击控件即可进入代码窗口。完成效果图。
根据我的判断。前面两个应该是错的。是创建、而不是显示已有的。有两种方法,以下代码是简便的一种:
'(创建一个按钮即可运行)
Private hTimes As Long '这里是创建了几个Label的计数器
Private Sub Command1_Click()
Dim ExLabel As Label
hTimes = hTimes + 1
Set ExLabel = Me.Controls.Add("VB.Label", "label" &LTrim(Str(hTimes)))
With ExLabel '标准的几个属性,可以根据需要更改
.Width = 2415
.Height = 255
.Left = 0
.Top = hTimes * .Height '方位长度
.Caption = "hello world" '显示的文字
.Visible = True '显示的属性
End With
End Sub
如还有疑问,请追问。
答案系原创
Property AutoSize As BooleanVB.Label 的成员
决定控件是否能自动调整大小以显示所有的内容。
Property BackColor As Long
VB.Label 的成员
Property BackStyle As Integer
VB.Label 的成员
指出 Label 或 Shape 的背景样式是透明的还是不透明的。
Property BorderStyle As Integer
VB.Label 的成员
返回/设置对象的边框样式。
Property Font As StdFont
VB.Label 的成员
返回一个 Font 对象。
Property Height As Single
VB.Label 的成员
返回/设置对象的高度。
Property Left As Single
VB.Label 的成员
返回/设置对象的内部左边缘与容器左边缘之间的距离。
Property ForeColor As Long
VB.Label 的成员
返回/设置对象中文本和图形的前景色。
Property Width As Single
VB.Label 的成员
返回/设置对象的宽度。
Property Top As Single
VB.Label 的成员
返回/设置对象顶端与其容器顶端之间的距离。
另外:可以用ctrl键选中多个控件,通过【格式】菜单调整。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)