ComboBox
Thanks
PLS, kak sdelat'tak chto by combobox zapominal posledniy bybor usera? u menya v combobox 15 zapisey, nuzhno chto by edinozhdy user vybral text combobox i combobox zapomnil eto, no s vozhmozhnost'u izmenit' ( chto by list combobox ostavalsya dostypnym).
Thanks
Речь идёт о VB или о VBA?
Речь идёт о VB или о VBA?
rech' idet o VB. est' spisok v comboBox, nuzhno chto by programa zapominala poslednii vybor usera.
thanks.
rech' idet o VB. est' spisok v comboBox, nuzhno chto by programa zapominala poslednii vybor usera.
thanks.
а если завести переменную под это дело, в которую заносить либо выбранную юзером строку? Если у каждой строки есть уникальный идентификатор, то вообще замечательно - совать его в ItemData, а для запоминания сохранять в какой-нить переменной:
UserSelection = combo.ItemData(combo.ListIndex)
А когда комбобокс должен будет "вспомнить" последний выбор юзера, то пробежать по циклу и поставить текущим нужный элемент.
Или проблема в том, чтоб сохранить выбор для следующего старта программы? Тогда пихать его в какой-нить свой INI или в реестр.
а если завести переменную под это дело, в которую заносить либо выбранную юзером строку? Если у каждой строки есть уникальный идентификатор, то вообще замечательно - совать его в ItemData, а для запоминания сохранять в какой-нить переменной:
UserSelection = combo.ItemData(combo.ListIndex)
А когда комбобокс должен будет "вспомнить" последний выбор юзера, то пробежать по циклу и поставить текущим нужный элемент.
Или проблема в том, чтоб сохранить выбор для следующего старта программы? Тогда пихать его в какой-нить свой INI или в реестр.
у меня как раз тот случай- что юзер может добавить строку в комбобокс. При
первом заходе он выбирает название из комбобокса, при последующих заходах с
тексте комбобокса будет уже выбранное значение (последнее пока), т.е юзер
может как согласиться с этим , так и выбрать другую строку из того же
комбобокса или же внести новую запись в комбобокс.
спасибо всем .
Первоначальное заполнение (напр., в Form_Load):
Dim I As Long
' заполнение требуемыми элементами
For I = 1 To 15
Combo1.AddItem "Test String " & CStr(I)
Next
' считывание из регистра текстовой строки,
' которая была выбрана юзером во время
' последнего запуска программы
'
' Если такая строка в комбобоксе уже есть,
' она становится текущей. Если нет - то она
' просто вносится в поле ввода комбобокса.
'
Combo1.Text = GetSetting("MyApp", "MySection", "ComboSelection", "")
---------------------------
Сохранение выбора юзера в Registry (напр., в Form_Unload):
SaveSetting "MyApp", "MySection", "ComboSelection", Combo1.Text
сохранив т.о. последний выбор юзера в реестре, программа может воспользоваться им при след. запуске.