国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Dim a() As String '定義一個(gè)數(shù)組
Private Sub Command1_Click()
a() = Split(Text1.Text, vbCrLf)'以Text1的回車符分割Text1的內(nèi)容。
For b = 0 To UBound(a) '從0到數(shù)組a的最大數(shù)字
Label1.Caption = Label1.Caption & vbCrLf & a(b) '一行一行輸入Label1。這里有一個(gè)重點(diǎn)，就是輸入回車用vbCrLf，這是回車符。
Next ’結(jié)束循環(huán)

End Sub

**************************

Label1.Caption = "你好!" & vbCrLf & "好嗎"

************************************

VB中l(wèi)abel控件的文字換行

代碼如下：
Str1 = "TryTryString 這是一個(gè)測(cè)試數(shù)據(jù)" 'Str1是數(shù)據(jù)庫的記錄

Dim BlockStrLen As Integer
BlockStrLen = 2 ’字符塊的長(zhǎng)度，這里設(shè)置為2

Label1.Caption = ""
Do While Len(Str1) > BlockStrLen
Label1.Caption = Label1.Caption & Left(Str1, BlockStrLen) & vbCrLf
Str1 = Right(Str1, Len(Str1) - BlockStrLen)
Loop

Label1.Caption = Label1.Caption & Str1