VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/02/27(Thu) 14:00 |
| 投稿者 | ： これ |
| ＵＲＬ | ： |
| タイトル | ： Re: コンボボックスのリストに追加 |
こんにちは。
他にもいろいろ手はあると思いますが
単にTextファイルを読んでComboに追加する場合は
こんな感じでしょうか。
Dim strBuff As String
FreeNo = FreeFile
Open "a.txt" For Input As #FreeNo
Do
Line Input #FreeNo, strBuff
Combo1.AddItem strBuff
Loop Until Eof(FreeNo)
Close #FreeNo
分類分けして追加する場合
読み込みファイルの先頭１文字が必ず分類の区分として
"1あああ"
"1いいい"
"2ううう"
"3えええ"
先のAddItem部分に条件分岐を付けます。
Select Case Left$(strBuff, 1)
Case "1"
Combo1.AddItem Mid(strBuff, 2)
Case "2"
Combo2.AddItem Mid(strBuff, 2)
Case "3"
Combo3.AddItem Mid(strBuff, 2)
Case Else
End Select
Excel使用の場合はこちらのサイト左のメニューから
「Excel&Word関係」を見て
VBからExcelを操作する場合のあれこれを参考に
Textファイルの読み込み部分を置き換えればいけると思います。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）