qzgx.net
当前位置:首页 >> vB.nEt lABEl 换行 >>

vB.nEt lABEl 换行

如果要自动换行,设置label的宽度固定即可. 如果手动换行,可以这样:label1.caption = "这是标签" & vbcrlf & "内容换行"

假设你的标签是Label1,用以下的语句:Label1.Caption = "ABC" & Chr$(10) & "你好!" & Chr$(10) & "OK" 这里,Chr$(10) 就是换行了!也可以用Chr$(13) ,这个是回车.例子中用了二个换行,结果是有三行.

提供一点思路仅供参考:在界面画一个label,设置为可以自动换行,隐藏,然后有label需要动态加载就拷贝这个界面上画的label的属性.

Dim a() As String '定义一个数组 Private Sub Command1_Click() a() = Split(Text1.Text, vbCrLf)'以Text1的回车符分割Text1的内容.For b = 0 To UBound(a) '从0到数组a的最大数字 Label1.Caption = Label1.Caption & vbCrLf & a(b) '一行一行输入Label1.这里有一个重点,就是输入回车用vbCrLf,这是回车符.Next '结束循环 End Sub

晕,副总裁答案~~`````不如回家~~````` Label是可以换行的,将Label的AutoSize的属性设置为True,然后将数据库记录字符串Str1分割为规定长度,对于Label控件是可以使用Vbcrlf换行符的~~~`` 代码如下:Str1 = "TryTryString 这是一个测试数据

Private Sub Form_Load() Label1.Caption = "信息" & Chr(13) + Chr(10) & "换行" End Sub

label1.caption = "你好!" & vbcrlf & "好吗" 无法在属性里设置,只能如上面所示设置.text里面可以设置自动换行.

VB标签LEABEL的换行有两种方式: 1、编写代码实现换行: LABEL1.CAPTION = "第一行内容" & vbCrLf & "第二行内容" 'vbCrLf就是一个回车符,实现换行 原创: http://hi.baidu.com/netee 2、编辑LABEL的属性,实现自动换行: 将AutoSize 设置为False,将WordWrap设置为True,,此时在CAPTION中任意输入文字,将实现自动换行 .

dim s as strings="aaa"& vbcrlf & "bbb"text1.text=s

label1.caption="a" & vbcrlf & "b" 这样就会出现换行了

mwfd.net | xmlt.net | rprt.net | 369-e.com | qwfc.net | 网站首页 | 网站地图
All rights reserved Powered by www.qzgx.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com