12 Ноябрь 2008

Как программно открыть ComboBox?

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

Запись опубликована on 12.11.2008 at 19:54 и размещена в рубрике: Combobox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.