いつも参考にさせていただいております、いちごと申します。

今、VB6.0/WindowsXPを使って、住所録を作成しているのですが、
テキストデータ(.txt)ファイルを読み込み、１列目をコンボボックスで表示させた後に、
コンボボックスのリストから選ばれたデータをテキストボックスに表示させるという
処理をしたくて、ここ何日か資料やネットで調べていたのですが、
Combo1_Changeでコンボボックスを表示させることは出来たのですが、それに連動させて
テキストボックスに表示することが出来ません。

どなたかご存知の方がいらっしゃいましたら、ご返答をお願い致します。

下記ではどうですか？

Private Sub Combo1_Click()
    Text1.Text = Combo1.Text
End Sub

花ちゃんさん、　お返事ありがとうございます。

すみません。いちごの書き方が悪かったようで・・・

> Private Sub Combo1_Click()
>     Text1.Text = Combo1.Text
> End Sub

↑は出ました。同じ行のそのほかのデータをテキストボックスに表示する方法はありますか？
データは・・・

"aaa","bbbbb","ccc","dd","eee","fff","ggg"
"iiii","jjj","kkk","","lll","mmm","nnnn"　　の様な不規則な配列になっています。

１列目をコンボボックスとテキストボックス１に、
２列目をテキストボックス２に・・・

という状態に表示させたいのですが・・・

考えたコードを念のため、載せておきます。
Private Sub Combo1_Change()
    MyFile = "C:\Program Files\test\test.txt"
    MyFile = FreeFile
    Open "C:\Program Files\test\test.txt" For Input As #MyFile
    Do Until EOF(MyFile)
        Input #MyFile, strあ, strい, strう, strえ, strお, strか
        Combo1.AddItem strあ
    If Combo1.Text = strあ Then
         Text1.Text = strあ
         Text2.Text = strい
         Combo2.AddItem strう
         Text4.Text = strえ
         Text5.Text = strお
         Text6.Text = strか
    Exit Do
    End If
    Loop
   Close #MyFile
End Sub

わかりにくかったらゴメンナサイ。今、上に載せているコードでは
エラーも出ないのですが、表示もできません。
えらーが出れば、ソコを直すという作業が出来るのですが・・・
出ないので、何が違うのかがわかりません。(泣)宜しくお願いします。

Private Sub Combo1_Change() ではイベントが発生していないのでは、

Combo1_Click() に書いても同じですか？

> Private Sub Combo1_Change() ではイベントが発生していないのでは、
>
> Combo1_Click() に書いても同じですか？

花ちゃんさん、早速の返信ありがとうございます。combo1_change()だと、
コンボボックスに『strあ』の内容は出てくるのですが、
combo1_clickで宣言すると内容が表示されなくなってしまうので、
Changeのまま進めていたのですが、やはり間違いでしょうか？？

ComboBoxの初期値はどうなっているのですか？
Combo1_Change() イベントはどのような状態で発生させているのですか

以下の部分が表示しないのなら
ここにブレークポイントを設けて、Combo1.Text の値と strあ　の値を見て見て下さい
又、iF 文の前に Debug.Print Combo1.Text, strあ  と入れて表示させて見るとか
すれば、原因が掴めると思います。
又、 [F8] を押して起動してみるとかしてみて下さい。
Combo1.Text には期待している値が入っていますか？

    If Combo1.Text = strあ Then
         Text1.Text = strあ
         Text2.Text = strい
         Combo2.AddItem strう
         Text4.Text = strえ
         Text5.Text = strお
         Text6.Text = strか
    Exit Do
    End If

おはようございます。
せっかく返信頂いたのに、お返事遅くなって申し訳ありません。

表題の件ですが、色々やってるうちに出来るようになりました。
ありがとうございましたｍ(＿＿)ｍ

自己解決で申し訳ありません・・・