Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.07.2012, 11:28   #1
Sac Svipe
 
Регистрация: 18.07.2012
Сообщений: 4
Восклицание Проблема с Visual Basic

Я здесь новичок, да и Visual Basic узнал недавно, и меня вот что интересует.
Мне нужно сделать вот что: выпадающий список, чтобы вот запустил программу и там есть выпадающий список, и рядом с ним (в этой же форме) небольшое окошко, и когда из списка что-нибудь выбираешь, то в этом окошке появляется нужный текст.

Например: запустил я программку, открыл список и выбрал (допустим) "Адрес" и рядом в окошке появился мой адрес, выбрал я из списка "Телефон" и рядом в окошке появился телефон.

Кто может, помогите!
Sac Svipe вне форума Ответить с цитированием
Старый 19.07.2012, 00:13   #2
gaw4
Форумчанин
 
Регистрация: 31.05.2010
Сообщений: 407
По умолчанию

Код:
Dim mass, mass1
Private Sub Combo1_Click()
Label1 = mass1(Combo1.ListIndex)
'или
Text1.Text = mass1(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
mass = Array("Адрес", "Телефон", "Другое")
mass1 = Array("Мой Адрес", "Мой Телефон", "Другое")
For i = 0 To UBound(mass)
Combo1.AddItem mass(i)
Next i
Combo1.Text = "выбор"
End Sub
icq 584 308 611
gaw4 вне форума Ответить с цитированием
Старый 20.07.2012, 19:24   #3
Sac Svipe
 
Регистрация: 18.07.2012
Сообщений: 4
По умолчанию

Цитата:
Сообщение от gaw4 Посмотреть сообщение
Код:
Dim mass, mass1
Private Sub Combo1_Click()
Label1 = mass1(Combo1.ListIndex)
'или
Text1.Text = mass1(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
mass = Array("Адрес", "Телефон", "Другое")
mass1 = Array("Мой Адрес", "Мой Телефон", "Другое")
For i = 0 To UBound(mass)
Combo1.AddItem mass(i)
Next i
Combo1.Text = "выбор"
End Sub
ПОдскажи а куда это вставлять? НУжно кнопку делать или что?
Sac Svipe вне форума Ответить с цитированием
Старый 21.07.2012, 23:08   #4
gaw4
Форумчанин
 
Регистрация: 31.05.2010
Сообщений: 407
По умолчанию

на форме
Combo1 - выпадающий
Label1 - метка или Text1 - текстовое поле
icq 584 308 611
gaw4 вне форума Ответить с цитированием
Старый 22.07.2012, 10:10   #5
Sac Svipe
 
Регистрация: 18.07.2012
Сообщений: 4
По умолчанию

Цитата:
Сообщение от gaw4 Посмотреть сообщение
на форме
Combo1 - выпадающий
Label1 - метка или Text1 - текстовое поле
Блин, добавь меня в скайпе: stalker3752
Sac Svipe вне форума Ответить с цитированием
Старый 22.07.2012, 18:58   #6
gaw4
Форумчанин
 
Регистрация: 31.05.2010
Сообщений: 407
По умолчанию

icq 584 308 611
/это я накидал в вб 6,0/
icq 584 308 611
gaw4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Basic проблема с размещением программы на пк Rudimo Помощь студентам 0 26.03.2012 04:24
Проблема в Visual Basic Dima1110 Помощь студентам 2 24.08.2010 10:52
проблема по решению VISUAL BASIC for Application (VBA) Мариночка=)! Microsoft Office Excel 9 17.05.2010 10:13
Проблема с файлом setup на visual basic. irbiss Помощь студентам 5 03.04.2008 15:41