各位高手,怎樣才能將一個從下拉框中作選擇后,然后下面的文本即時更新!

Question

在一個form中具有一個combo box控件及兩個文本框,我現在想做成一個從combo box中選擇一個項目后，可以即時更新文本內容，我用了combo box的lostfocus事件，但是我發現只能顯示一次,如果選擇第二次,好象兩個文本框就不能正確顯示（內容不變），必須重新打開一次form才可以，求高手幫忙．

Answer 1

用combo box 的CLICK事件试一试。

Answer 2

combo box的click事件，只要每次点击这个combo box都会响应这个事件，不管有没有改变combo box中的选项。
Private Sub cmbState_Click()
    Select Case cmbState.ListIndex
    Case 0:
        txtOpenTime= Format(Now, "YYYYMMDD")
    Case 1:
        txtFrozeTime= Format(Now, "YYYYMMDD")
    End Select
End Sub

Answer 3

Private Sub Combo1_Change()
Combo1_Click
End SubPrivate Sub Combo1_Click()
Text1.Text = Combo1.Text & "^2=" & (Val(Combo1.Text)) ^ 2
Text2.Text = Combo1.Text & "^3=" & (Val(Combo1.Text)) ^ 3
End SubPrivate Sub Form_Load()
For i = 1 To 100
Combo1.AddItem i
Next
End Sub