Public Sub DropDownList(CombHwnd As Long, Optional KeyCode As Integer) '按下下拉框
If KeyCode = 0 Then
Call SendMessage(CombHwnd, &H14F, -1, ByVal 0&)
ElseIf KeyCode = vbKeyDown Or KeyCode = vbKeyUp Then
Call SendMessage(CombHwnd, &H14F, -1, ByVal 0&)
End If
End Sub
If KeyCode = 0 Then
Call SendMessage(CombHwnd, &H14F, -1, ByVal 0&)
ElseIf KeyCode = vbKeyDown Or KeyCode = vbKeyUp Then
Call SendMessage(CombHwnd, &H14F, -1, ByVal 0&)
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货