Гиперссылки в ComboBox: вопрос реализации

@me007 · Регистрация: 23.10.2012

Студворк — интернет-сервис помощи студентам

привет всем) мне нужно из вылазиющих строчек в ComboBox сделать Гиперссылки на другую форму. (чтобы при нажатии на одно из слов в списке открывалась другая форма) такое можно сделать? если да, то как? заранее благодарен

SoftIce · 06.12.2012, 15:47

Visual Basic
1
2
3
Private Sub Combo1_Click()
    If Combo1.ListIndex = 1 Then Form2.Show ' "Строчки " в комбобоксе считаются с нуля.
End Sub

@Маршинин · 06.12.2012, 18:54

Так будет правильней!

Visual Basic
1
2
3
4
5
6
7
Select Case ComboBox1.SelectedIndex 'Индетификатор елемента
            Case 0
               Form1.Show()'Открытие формы
            Case 1
            Case 2
            Case 3
        End Select

@me007 · 06.12.2012, 19:15 **[ТС]**

к сожалению у меня не получилось, можете написать на примере уже с выдвигющейся строкой

Добавлено через 8 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Combo1_Click()
Cells(1, 1).Value = Combo1.Text
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "Один"
Combo1.AddItem "Два"
Combo1.AddItem "Три"
Combo1.AddItem "Десять"
End Sub

- вот написаны действия, что написать, чтобы при нажатии на "один" появлялась Form2.
-заранее благодарен

SoftIce · 06.12.2012, 19:31

Маршинин, не путайте человека

В ВБ6 нет SelectedIndex .

Сообщение от me007

к сожалению у меня не получилось, можете написать на примере уже с выдвигющейся строкой

me007, Сначала нужно список заполнить

Типа

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
   Combo1.AddItem "1111111111"
   Combo1.AddItem "22222"
   Combo1.AddItem "333"
End Sub
 
Private Sub Combo1_Click()
    If Combo1.ListIndex = 1 Then Form2.Show ' "Строчки " в комбобоксе считаются с нуля.
End Sub

Добавлено через 1 минуту

Сообщение от me007

Cells(1, 1)

А об этом разговора не было.

Добавлено через 10 минут

Сообщение от me007

что написать, чтобы при нажатии на "один" появлялась Form2.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Combo1_Click()
If Combo1.Text = "Один" Then Form2.Show
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "Один"
Combo1.AddItem "Два"
Combo1.AddItem "Три"
Combo1.AddItem "Десять"
End Sub

@Denri · 06.12.2012, 19:34

Visual Basic
1
2
3
4
5
6
7
Private Sub Combo1_Change()
If Trim(Combo1.Text) = Trim("òóò òåêñò êîòîðûé áóäåò â") Then Form2.Show
End Sub
 
Private Sub Combo1_Click()
If Trim(Combo1.Text) = Trim("òóò òåêñò êîòîðûé áóäåò â") Then Form2.Show
End Sub

Можно и вот так

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@me007 0 / 0 / 1 Регистрация: 23.10.2012 Сообщений: 135

	Гиперссылки в ComboBox: вопрос реализации 06.12.2012, 14:20. Показов 1187. Ответов 5 Метки combobox, работа (Все метки) привет всем) мне нужно из вылазиющих строчек в ComboBox сделать Гиперссылки на другую форму. (чтобы при нажатии на одно из слов в списке открывалась другая форма) такое можно сделать? если да, то как? заранее благодарен 0