VB中怎么换行

 
 

有时候我们需要显示多行数据,使其更有逻辑性。下面我就说一下VB中的换行问题

现在我们将换行的环境分为三种:窗体输出,文本框(Text)输出标签(Label)输出

一、在窗体输出

换一行:Chr(13) 、Chr(10) 、 Chr(13)+Chr(10)

换两行:Chr(10)+Chr(13)、两个Chr(13)、两个Chr(10)

二、在文本框输出

换一行:Chr(13)+Chr(10),其他没有了

换两行:没有,除非第二行为空,即“”


三、在标签输出

换一行:Chr(10),Chr(13),以及所有的组合,都可以换一行,也都只能换一行

换两行:没有,除非第二行为空,即“”

下面我们来举个例子:

Private Sub Command1_Click()

    '在窗体上换行
    Print "我" & Chr(10) & _
          "是" & Chr(13) & _
          "十" & Chr(13) & Chr(10) & _
          "期" & Chr(10) & Chr(13) & _
          "崔" & vbNewLine & _
          "晓" & vbCrLf & _
          "光"
          
    '在文本框中换行
    Text1.Text = "我" & Chr(10) & _
                "是" & Chr(13) & _
                "十" & Chr(13) & Chr(10) & _
                "期" & Chr(10) & Chr(13) & _
                "崔" & vbNewLine & _
                "晓" & vbCrLf & "" & vbCrLf & _
                "光"
                
  '在标签中换行
  Label1.ForeColor = vbRed
  Label1.Caption = "我" & Chr(10) & _
          "是" & Chr(13) & _
          "十" & Chr(13) & Chr(10) & _
          "期" & Chr(10) & Chr(13) & _
          "崔" & vbNewLine & _
          "晓" & vbCrLf & "" & vbCrLf & _
          "光"
End Sub


其运行的效果图为


在VB中Chr(10)和Chr(13)还有如下表示,他们的用法一样,这里就不再重复了

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...