投稿日	： 2005/02/22(Tue) 22:44
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： 簡単なサンプル

Private Sub Command1_Click()
    Dim i         As Long
    Dim intFileNo As Integer
    Dim strCobTxt As String
    For i = 0 To Combo1.ListCount - 1
        If InStr(strCobTxt, Combo1.List(i) & vbCrLf) = 0 Then
            strCobTxt = strCobTxt & Combo1.List(i) & vbCrLf
        End If
    Next i
    
    intFileNo = FreeFile
    Open "c:\Cobtest.txt" For Output As #intFileNo
    Print #intFileNo, strCobTxt
    Close #intFileNo
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