Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Or KeyCode = 37 Then
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0
End If
End Sub
如果控制长度就不知道了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024