VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/05/08(Mon) 18:57
投稿者： なっちゃん
ＵＲＬ：
タイトル： はじめまして

　今、ＶＢ６．０でプログラムを作成しているのですが、どうしてもうまくいかない点があるためだ
れか教えてください。

　　一列１００行の配列のデータが入ったinput.txtというテキストファイルがあります。
　　コマンドボタンでネクストというボタンを作ってあり、またテキストボックスの中に今選択さ
れ
たファイル名が入るようにし、ネクストボタンを一回押すたびに次のファイルが選ばれ、テキスト
ボックスにそのファイル名が表示されるようにしたいのです。一つ筒順番に上からファイルが選ば
れ
ていくようにしたいのですが、どうしてもうまくいきません。
　まず、配列の上から順番に選択されない。突然５番目のファイル名が選択される。
　　　そして、もう一度ネクストボタんを押しても次のファイルが選択されません。
Private Sub cmdNext_Click()

Dim TextFileName As String
Dim SoundDate(1,j) As String
Dim j As interger


　TextName = "inputp.txt"
Open TextName For Input As #1
j = 1
Do Until EOF(1)
   j=j+1

Input #1,SoundDate(1,j)
  Maxj = j

  close #1

txtFilenme.Text = SoundDate(1,j)
wDate = SoundDate(1,j)
txtFileName.Text = wDate
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -