投稿日 | : 2003/01/23(Thu) 23:23 |
投稿者 | : kazu |
URL | : |
タイトル | : Re^4: TextBox 内の文字列の印刷…改行したら…… |
いろいろとありがとうございます。
> どうすれば良いかは考えて見たのでしょうか?
いろいろと考えた見たのですが……、今の私の力が現実を
物語っています。
もう少し勉強してみます。
No.2369 のようなことを行っています。
外部ファイルから印字位置をユーザーが変更できるようにしたいのです。
今は、このように文章で悩んでいます。一行だけの数字や文字列はできるのですが…
とにかく頑張ってみます。
ありがとうございます。
> 試しにForm1に 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 のどちらを押しても各行の先頭は1,2,3..とかになります。
>
> L1=Left(Text1.Text,15)
> L2=Mid(Text1.Text,16,15)
> ...とかの様に取得位置固定ではTextに入力
> された状況により取得されるものが期待値にはなりません。