またComboBoxで質問です。
ComboBoxをドロップダウンリストで使用しているのですが、
項目を選択した瞬間にLabel等のCaptionにリアルタイムで渡す方法が分かりません。
Private Sub ComboBox_Change()
Label.Caption = ComboBox.List(ComboBox.ListIndex)
End Sub
ではダメなのでしょうか?
プロシージャのChangeは違う項目になったときに行われると勝手に思い込んで井いるのですが、
違うのでしょうか?
環境はVB6.0です。
Private Sub ComboBox_Change()
Label.Caption = ComboBox.List(ComboBox.ListIndex)
End Sub
ではなく、
Private Sub ComboBox_Click()
Label.Caption = ComboBox.List(ComboBox.ListIndex)
End Sub
にかくとOKです。
Changeはコンボボックスの表示される内容が変更されたら
つまり、キーボードか何かで内容を変更した時に発生し、
選択されたときにはどうも発生していないみたいです。
実現できました。
ありがとう御座いました。
ツイート | ![]() |