投稿日	： 2004/05/29(Sat) 18:02
投稿者	： いちご
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: コンボボックスとテキストボックス

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

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

> 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

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

★ - コンボボックスとテキストボックス - いちご 05/29-16:47No.9081
• Re: コンボボックスとテキストボックス - 花ちゃん 05/29-17:26 No.9082
  • Re^2: コンボボックスとテキストボックス - いちご 05/29-18:02 No.9083
    • Re^3: コンボボックスとテキストボックス - 花ちゃん 05/29-18:29 No.9084
      • Re^4: コンボボックスとテキストボックス - いちご 05/29-18:51 No.9085
        • Re^5: コンボボックスとテキストボックス - 花ちゃん 05/29-19:12 No.9086
          • Re^6: コンボボックスとテキストボックス - いちご 05/31-09:47 No.9091