qzgx.net
当前位置:首页 >> 怎么在VB的标签里实现换行? >>

怎么在VB的标签里实现换行?

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

方法1:用vbcrlf 进行换行:msgbox "第一行" & vbcrlf & "第二行" 方法2:用chr(13) & chr(10)来换行:msgbox "第一行内容" & chr(13) & chr(10) & "第二行内容" 以上两种方法均能实现msgbox中的换行:

把文本框的MultiLine属性设置为True就可以,字符串用vbcrlf换行.

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

在控件中是可以设置的,将multiline属性改为true可以多行显示 当multiline为真时,使用scrollbars属性可以添加滚动条! 在句末加chr(13),或vbcrlf 也可以换行

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

首先,文本框控件(TextBox)的MulitLine属性应该设为True,这样才能实现多行文本的效果;其次,如果文本框无法显示全部文字,还应该设置滚动条,即把ScrollBars属性设为2(纵向滚动条,如果是1则是横向滚动条,3则是横向纵向都有滚动条);如果要在文字中手动插入回车换行符,可以用常量vbCrLf,比如:Text1.Text = "第一行" & vbCrLf & "第二行" & vbCrLf & "第三行"

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

有两种方式: 1、编写代码实现换行: label1.caption = "第一行内容" & vbcrlf & "第二行内容" 'vbcrlf就是一个回车符,实现换行 2、编辑label的属性,实现自动换行: 将autosize 设置为false,将wordwrap设置为true,,此时在caption中任意输入文字,将实现自动换行 .

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

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