Форма вместо раскрывающегося списка

В этой заметке я хочу продемонстрировать два новых для меня подхода в области построения пользовательского интерфейса. Точнее, они относятся к проблеме улучшения стандартного раскрывающегося списка (Combo Box). Пример для Access'97 находится здесь.

Сначала рассмотрим реализацию замены раскрывающегося списка на форму. Она представляет собой попытку использовать для этой цели комбинацию поля ввода, кнопки и формы. Форма открывается при нажатии на кнопку непосредственно под полем, имитируя таким образом поведение раскрывающегося списка.

Не вдаваясь в подробности, замечу, что удовлетворительный результат (нужное место открытия, тонкая граница, отсутствие заголовка окна и т.п.) можно получить только путем использования большого числа функций Windows API. Я не большой специалист в этой области, поэтому сделал всё наверняка не самым оптимальным образом, и, кроме того, пока не стал оформлять всё как отдельную функцию или какой-либо другой структурный элемент программы. Возможно я сделаю это позднее.

Другой новый подход относится к реализации передачи параметров между формой и программой, которая её контролирует. Сначала создаётся новый экземпляр формы как объектная переменная:

 Dim frmChoose As New Form_choose_color

Затем с её окном выполняются описанные выше манипуляции, после чего производится начальная инициализация значения, возвращаемого формой. Оно представляет собой свойство (Property), определяемое в модуле формы:

Private lngValue As Long
Public Property Get ChoosedValue() As Variant
 ChoosedValue = lngValue
End Property
Public Property Let ChoosedValue(ByVal vNewValue As Variant)
 If lngValue <> vNewValue Then
 Me.RecordsetClone.FindFirst "c_id = " & vNewValue
 Me.Bookmark = Me.RecordsetClone.Bookmark
 lngValue = Me.ed_c_id
 End If
End Property

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

 frmChoose.ChoosedValue = Nz(Me!i_color_id, 0)
 frmChoose.Visible = True

После чего форма делается видимой. Так как форма открывается не командой

DoCmd.OpenForm "choose_color", , , , , acDialog

то управление в конце концов передаётся следующей строке программы. Это вынуждает выполнять в цикле простейшую проверку состояния формы:

 While frmChoose.Visible = True
 DoEvents
 Wend

Когда пользователь выберет значение (или откажется от выбора), форма будет снова сделана невидимой, выполнение программы продолжится и мы сможем получить возвращаемое формой значение, после чего её можно закрыть окончательно:

 Me!i_color_id = frmChoose.ChoosedValue
 Set frmChoose = Nothing