Форум программистов CodeGuru
23 Июль 2018, 05:51:13 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Заглавная строка в Combobox  (Прочитано 16949 раз)
0 Пользователей и 1 Гость смотрят эту тему.
max1m9
Новичок
*
Офлайн Офлайн

Сообщений: 3


Просмотр профиля
« : 21 Март 2010, 13:48:13 »

Здравствуйте,пишу макрос на Vba и никак не могу решить следующую проблему: надо,чтобы по умолчанию в Combobox была не пустая строка,а первая из открывающегося списка("Занята").Гуглил,спрашивал у препода - безрезультатно.Прошу у вас помощи.
Вот сам фрагмент:

Private Sub ComboBox1_Change()
Dim S1, Ms1, Ts1 As Single
S1 = ComboBox1.Value
If S1 = "Свободна" Then Ms1 = InputBox("Введите пункт нахождения")
If S1 = "Скоро освободиться" Then Ms1 = InputBox("Введите пункт нахождения")
If S1 = "Скоро освободиться" Then Ts1 = InputBox("Введите время,через которое машина освободиться(в часах)")
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem "Занята"
ComboBox1.AddItem "Свободна"
ComboBox1.AddItem "Скоро освободиться"
Записан
Valery
Пользователь
***
Офлайн Офлайн

Сообщений: 83


Просмотр профиля
« Ответ #1 : 24 Март 2010, 11:25:54 »

Ну а выделять нужную строку после того как добавил строки кто будет?
не совсем силен в Басике но чтото типа SelectItem, SetItem
С уважением Валерий
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!