Главная страницаОбратная связьКарта сайта

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



Private Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Sub SetComboDropDown(cboCombo As ComboBox, ByVal bDown As Boolean)
Dim nRet As Long

nRet = SendMessageByNum(cboCombo.hwnd, CB_SHOWDROPDOWN, bDown, 0)
End Sub

Private Sub Command1_Click()
Call SetComboDropDown(Combo1, True)
End Sub

Private Sub Command2_Click()
Call SetComboDropDown(Combo1, False)
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как программно открыть/закрыть ComboBox", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info