タイトル : 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 |