请教一个Combo的问题。（再线等待）

Question

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    SendKeys "{f4}"
End Sub

Answer 1

效果不是太好，可以再修改，把一些功能键排除在外if KeyAscii<>... then

Answer 2

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    if KeyAscii<>8 then    
       SendKeys "{f4}"
    end if
End Sub

Answer 3

Combo的下拉列表内容装入数组，清空列表框，KEYPRESS事件中用循环语句动态装入。