| 投稿日 | ： 2003/01/23(Thu) 21:13 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: TextBox 内の文字列の印刷…改行したら…… |
> それが分かれば……(--)
どうすれば良いかは考えて見たのでしょうか？
試しにＦｏｒｍ１に Text1 は MultiLine プロパティを True にして、
Command1 , Command2 の各ボタン
Label1(0) から Label1(5) 迄をコントロール配列で作成してから試して下さい。
Dim strText As String
Dim dat As Variant
Dim i As Integer
Private Sub Command1_Click()
Text1.Text = "111111111111111" & vbCrLf & _
"222222222222222" & vbCrLf & _
"333333333333333" & vbCrLf & _
"444444444444444" & vbCrLf & _
"555555555555555" & vbCrLf & _
"666666666666666"
Disp_Label
End Sub
Private Sub Command2_Click()
Text1.Text = "111111111111111" & vbCrLf & _
"222222222222" & vbCrLf & _
"3333333" & vbCrLf & _
"" & vbCrLf & _
"5555555555555" & vbCrLf & _
"6666"
Disp_Label
End Sub
Private Sub Disp_Label()
strText = Text1.Text '入力文字列を取得
dat = Split(strText, vbCrLf) '改行コードで各行に分割
For i = 0 To UBound(dat) '最大行数まで表示
Label1(i).Caption = dat(i)
Next i
End Sub
Command1 と Command2 のどちらを押しても各行の先頭は１，２，３．．とかになります。
L1=Left(Text1.Text,15)
L2=Mid(Text1.Text,16,15)
．．．とかの様に取得位置固定ではＴｅｘｔに入力
された状況により取得されるものが期待値にはなりません。