- 889 名前：デフォルトの名無しさん mailto:sage [2009/05/23(土) 16:12:54 ]
- VB6のコンボボックスについて質問です。
ドロップダウンコンボでリストから何かを選択したら、選択したものを
リストの一番上に移動するというのをやりたくて以下のようなコードを書いたのですが、
何故か選択した後、コンボボックスの内容表示( .Text )が空になってしまいます。
2〜3で入れ替えを行い、2で消えてしまった表示を4で補完するという流れなのですが
ステップ実行してみると、4が実行されたときにちゃんと選択文字列がコンボボックスに
表示されるのですが、End Subが実行されると何故か消えてしまいます。
原因と解決方法を教えてください。
Private Sub Combo1_Click()
Dim buf As String
'1 選択項目の文字列を保持
buf = Combo1.Text
'2 選択項目を削除
Combo1.RemoveItem Combo1.ListIndex 'ここで一端コンボボックスの内容表示は空になる
'3 一番上に追加
Combo1.AddItem buf, 0
'4 選択項目の文字列を表示
Combo1.Text = buf ' ステップ実行ではここでちゃんと表示される
End Sub ' 何故かここで再度表示が消える
Private Sub Form_Load()
Combo1.AddItem "aaa": Combo1.AddItem "bbb": Combo1.AddItem "ccc"
End Sub
|
 |
