tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: コンボボックスのリスト作成
投稿日: 2008/02/28(Thu) 18:32
投稿者魔界の仮面弁士
> 表示させる時間を短縮させる事は可能でしょうか?

ComboBox コントロールの代わりに、
DataCombo コントロールを使ってみては如何でしょう。


これなら一瞬。

Option Explicit

Private rs As ADODB.Recordset

Private Sub Command1_Click()
    Set rs = New ADODB.Recordset
    rs.Fields.Append "KEY", adVarWChar, 4
    rs.Open
    Dim i As Long
    For i = 1 To 9999
        rs.AddNew "KEY", Format$(i, "0000")
    Next
    For i = 1 To 9
        DataCombo1(i).BoundColumn = "KEY"
        DataCombo1(i).ListField = "KEY"
        Set DataCombo1(i).RowSource = rs
        
        DataCombo2(i).BoundColumn = "KEY"
        DataCombo2(i).ListField = "KEY"
        Set DataCombo2(i).RowSource = rs
    Next
End Sub

Private Sub Command2_Click()
    MsgBox DataCombo1(1).BoundText
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。