Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic 5.0/6.0 - Элементы управления Windows

Все примеры / Интерфейс / Элементы управления Windows

Программное разворачивание/сворачивание ComboBox

Автор: Алексей Немиро | добавлено: 06.03.2010, 10:19 | просмотров: 2814 (1+) | комментариев: 0 | рейтинг: *x0
Пример показывает, как можно развернуть/свернуть список ComboBox.

Код

'Разместите на форме один элемент ComboBox и два элемента CommandButton

Option Explicit

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
Private Const CB_SHOWDROPDOWN = &H14F

Public Sub SetComboDropDown(cboCombo As ComboBox, ByVal bDown As Boolean)
 SendMessageByNum cboCombo.hwnd, CB_SHOWDROPDOWN, bDown, 0
End Sub

'развернуть
Private Sub Command1_Click()
 SetComboDropDown Combo1, True
End Sub

'свернуть
Private Sub Command2_Click()
 SetComboDropDown Combo1, False
End Sub

'заполняем комбо данными
Private Sub Form_Load()
 Dim i As Long
 For i = 1 To 10
 Combo1.AddItem i
 Next i
End Sub
Файлы combobox1226.zip (2,89 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики