タイトル : ComboBoxの初期セット 投稿日 : 2007/10/01(Mon) 17:28 投稿者 : びぎ
先日は、ありがとうございました。 ComboBoxの初期セット方法を教えて下さい。 下記はForm上の全てのComboBoxを Indexが0番目を表示するようにしようとしている コードです。 初期セットはTextBoxであればTextプロパティに空白をセットしますが ComboBoxの初期セットは0番目を表示したいと思います。 Private Sub sClearControl(ByVal pControl As Control) Dim vComboBox As ComboBox '*** For Each cldControl As Control In pControl.Controls If pControl.HasChildren = True Then sClearControl(cldControl) End If Select Case True Case TypeOf cldControl Is ComboBox '*** ComboBox *** vComboBox = DirectCast(cldControl, ComboBox) vComboBox.SelectedIndex = 0 End Select Next End Sub しかし、0のInvalidArgument = Value はSelectIndexに対して有効ではありません。 のエラーになってしまいます。 個別に ComboBox1.SelectedIndex = 0 ComboBox2.SelectedIndex = 0 ComboBox3.SelectedIndex = 0 はできるのですが.. ComboBoxの初期セット方法(0番目を表示)は、たくさんあるプロパティの 何にセットするのでしょうか? |