關于 Combo 的簡單問題:

[CatchWind]

當Combo的Text改變后,為何它的ListIndex不能同步改變?
有如下代碼:
Private Sub Form_Load()
With Combo1
.AddItem "AAAA"
.AddItem "BBBB"
.AddItem "CCCC"
.AddItem "DDDD"
End With
End Sub

Private Sub Command1_Click()
Combo1.Text = "BBBB"
Debug.Print Combo1.ListIndex
'當Combo1的Style 設為組合下拉時,其ListIndex=-1,非得點擊一下下拉按鈕,才能變為1
'當Style設為單純下拉時,其值為1
End Sub

我希望當Combo1的Style為組合下拉,當其Text改變后,其ListIndex也能自動跟著改變,如何做?

[aiur2000]

会自动变啊.

[of123]

Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long

Private Const CB_FINDSTRINGEXACT = &H158

Private Sub Command1_Click()
Combo1.ListIndex = SendMessagebyString(Combo1.hWnd, CB_FINDSTRINGEXACT, -1, "BBBB")
End Sub

[aiur2000]

style 选2

[lyxhappy]

是不会变的，只有触发combox 的click事件才会变的

[CatchWind]

TO:of123() ( ) 信誉：120
你的辦法可能解決,謝謝!

[CatchWind]

TO:of123() ( ) 信誉：120
還有一個問題是,我想將此代碼放在Combo1的Change事件中,雖然當時其ListIndex已經改變,但在Change事件之外顯示其值,仍為-1

請問,是何原因?