サンプル投稿用掲示板 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
 |
