关于COMBO的使用技巧

Question

呵呵，写在COMBO1的Chang中，但是根据MS的BUG LIST，你最好也在COMBO1的Click过程中也写同样的代码。

Answer 1

Private Sub Combo1_Click()
    Select Case Combo1.ListIndex
           Case 0
             '相應操作
           Case 1
           ......
    End Select
End Sub

Answer 2

在Click事件中调用函数
if Combo1.ListIndex>=0 then
   call 函数
end if

Answer 3

Private Sub Combo1_Click()
    Select Case Combo1.Text
           Case "科目ID"
             '相應操作
           Case "姓名"
           '........
    End Select
End Sub