VB6のコンボボックスのテキストプロパティ

VB6のコンボボックスのテキストプロパティですが、
Combo1.text="test"と入れてもコンボボックスにtestと表示されません。
Form_Loadモジュールに記載するとtestと表示されるのですが、
最初testと表示されていて、コンボボックスの候補を一つ選んで、
今の設定ではその候補は使用できないので、初期状態のtestという表示に戻したいのですが、
testに戻りません。

No.3 回答者： redfox63 回答日時： 2014/08/12 22:00

多分 コンボボックスのClickイベントで選択が正しいのかを判定しているのでしょう

対処療法ですが タイマーオブジェクトをフォームに貼り付けて
タイマーの EnabledをFalseに設定しておきます
Intervalは 100程度にします


Clickイベントの中の判定部分に
if hanntei = ダメ then
timer1.Enabled = true
end if

Timer1のTimerイベントで
combo1.text = "test"
Timer1.Enabled = false

といった具合にしてみましょう

No.3 回答者： redfox63 回答日時： 2014/08/12 22:00

多分 コンボボックスのClickイベントで選択が正しいのかを判定しているのでしょう

対処療法ですが タイマーオブジェクトをフォームに貼り付けて
タイマーの EnabledをFalseに設定しておきます
Intervalは 100程度にします


Clickイベントの中の判定部分に
if hanntei = ダメ then
timer1.Enabled = true
end if

Timer1のTimerイベントで
combo1.text = "test"
Timer1.Enabled = false

といった具合にしてみましょう

No.2 回答者： emsuja 回答日時： 2014/08/12 06:54

#1 ですが

こういったことじゃないのですか？

Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.Text = "test"
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "A", "B"
Case "C"
Combo1.Text = "test"
End Select
End Sub

具体的に上手くいかない部分を単純化してアップされた方がアドバイスが楽なんですが

No.1 回答者： emsuja 回答日時： 2014/08/08 20:11

なんだか質問内容がいまひとつつかみきれないのですが

>最初testと表示されていて、コンボボックスの候補を一つ選んで、
>今の設定ではその候補は使用できないので、

と判断した時点で
Comobo1.text="test"

としてはいけないのですか？

この回答へのお礼

そのように記述したのですが、
実際にプログラムを動かすとtestと表示されずに
空白になってしまいます。

お礼日時：2014/08/11 22:39