12
Ноябрь
2008
Как программно открыть ComboBox?
Как программно открыть ComboBox?
Option Explicit 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 Command1_Click() SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, -1, 0 End Sub Private Sub Form_Load() Dim i As Byte For i = 1 To 10 Combo1.AddItem Format$(i, "00") Next End Sub