投稿日 | : 2005/02/22(Tue) 19:59 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 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