VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

コンボボックスのデータをテキストファイルに保存する(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/09/16 13:46
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[コンボボックス][ファイル入出力][リストボックス]                    *
* キーワード：ComboBox,TXTファイル,書き出し,,,                                    *
***********************************************************************************

元質問：コンボボックスのテキスト出力 - 見習い僧侶 2005/02/22-18:24 No.2229

表題の件ですが、コンボボックスの内容をテキストに出力するにはどうしたら良いのでしょうか？
Form_Loadでテキストの内容をコンボボックスに入れるのは分かったのですが、その逆が分からないのです・・・

----------------------------------------------------------------------------------
Re: コンボボックスのテキスト出力 - 花ちゃん 2005/02/22-19:59 No.2231
----------------------------------------------------------------------------------

テキストファイルに保存したいという事なら
Private Sub Command1_Click()
    Dim i         As Long
    Dim intFileNo As Integer
    Dim strCobTxt As String
    For i = 0 To Combo1.ListCount - 1
        strCobTxt = strCobTxt & Combo1.List(i) & vbCrLf
    Next i
    intFileNo = FreeFile
    Open "c:\Cobtest.txt" For Output As #intFileNo
    Print #intFileNo, strCobTxt
    Close #intFileNo
End Sub

Private Sub Form_Load()
    With Combo1
        .AddItem "りんご"
        .AddItem "バナナ"
        .AddItem "みかん"
        .AddItem "いちご"
        .AddItem "トマト"
    End With
End Sub