投稿日	： 2005/02/22(Tue) 19:59
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: コンボボックスのテキスト出力

> 表題の件ですが、コンボボックスの内容をテキストに出力するには
テキストファイルに保存したいという事なら
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

★ - コンボボックスのテキスト出力 - 見習い僧侶 02/22-18:24No.2229
• Re: コンボボックスのテキスト出力 - 花ちゃん 02/22-19:59 No.2231
  • Re^2: コンボボックスのテキスト出力 - 見習い僧侶 02/22-21:36 No.2234
    • Re^3: コンボボックスのテキスト出力 - 花ちゃん 02/22-22:19 No.2236
      • 簡単なサンプル - 花ちゃん 02/22-22:44 No.2237
        • Re: 簡単なサンプル - 見習い僧侶 02/23-11:25 No.2238