投稿日	： 2005/02/22(Tue) 21:36
投稿者	： 見習い僧侶
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: コンボボックスのテキスト出力

大変わかりやすいサンプルありがとうございました。
おかげで出来ました！

で、ついでに申し訳ないのですが、
Private Sub Form_Load()
    With Combo1
        .AddItem "りんご"
        .AddItem "バナナ"
        .AddItem "みかん"
        .AddItem "いちご"
        .AddItem "トマト"
        .AddItem "りんご"
    End With
End Sub
このような同じ項目(りんご)が存在している場合は、
1件としてテキスト出力する方法はありますでしょうか？


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