Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Заглавная строка в Combobox 
:(
    Опции темы
max1m9
Дата 21.3.2010, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 13.12.2009

Репутация: нет
Всего: нет



Здравствуйте,пишу макрос на 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 "Скоро освободиться"


Это сообщение отредактировал(а) Akina - 21.3.2010, 20:25
PM MAIL   Вверх
Akina
Дата 21.3.2010, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Код

Combobox1.ListIndex=0



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0797 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.