[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: テキストをtextboxに配置 投稿日 ： 2008/08/12(Tue) 05:26 投稿者 ： nobu
| 初めまして。 > VB6.0 winvista 32 環境でプログラムを作っています。 ＶＢ６と言う事なので私なら下記の様な Line Input 文で１行づつ読み込み Split でカンマ毎に項目を分割してコントロール配列のテキストボックスに 書き込むようにしますが．．．．。 ＶＢ６しか知らない私はテキストファイルを読むには何時も Line Input 文を使っているので提示されたコードはなじみがないですが 本当にＶＢ６なのでしょうか？ 今回の様に複数の（それも多数の）テキストボックスが必要な場合には コントロール配列のテキストボックスを使う方が良いかと思います。 Private Sub Command1_Click() Dim lngFileNo As Long Dim tmp As String Dim dat() As String Dim i As Integer lngFileNo = FreeFile Open "C:\test001.txt" For Input As #lngFileNo i = 0 Do Line Input #lngFileNo, tmp dat = Split(tmp, ",") Text1(i).Text = dat(2) i = i + 1 Loop Until EOF(lngFileNo) Close #lngFileNo End Sub > TextBox1.AppendText(Item(2)) > TextBox2.AppendText(Item(2)) Append を使えば同じTextBox1に次々に文字が追加されていってしまう様に思います。 |
をクリックするとツリー全体を一括表示します） - テキストをtextboxに配置 - イチノセ 08/08/12-00:37No.12885