Шаг 30 - Доступ к полю со списком из VBA

Давайте на форме, где есть поле со списком, поместим кнопку для того, чтобы попробовать добраться до выбранного значения.

30_1.gif (2072 b)

Теперь к этой кнопке нужно привязать процедуру обработки события. Щелкаем правой кнопкой.

30_2.gif (3573 b)

В выпавшем меню выбираем обработку события. Появляется окно с вопросом о том, что мы будем делать и мы выбираем программы.

30_3.gif (2853 b)

Ну и код пишем.

Private Sub Кнопка2_Click()
    Dim s As String
    'установить фокус
    Me.ПолеСоСписком0.SetFocus
    ' получает строку из поля со списком
    s = Me.ПолеСоСписком0.Text
    MsgBox s
End Sub

В этом коде есть некоторые тонкости, ну во-первых это Me. То есть мы ссылаемся на ту форму, где находится кнопка и чей обработчик выполняется. Во-вторых прежде чем получить текст нам придется установить фокус на элемент SetFocus, а только потом извлечь текст. А вот пример работы.

30_4.gif (4419 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 26.09.2001