tagCANDY CGI VBレスキュー(花ちゃん) - コンボボックスのデータをテキストファイルに保存する(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
コンボボックスのデータをテキストファイルに保存する(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

コンボボックスのデータをテキストファイルに保存する(VB6.0) [No.100の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.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
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ