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

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

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.03.2018, 18:08   #1
Otradnoe_4D
 
Регистрация: 06.03.2018
Сообщений: 8
По умолчанию Взаимосвязь между ComboBox и Label

Доброе. Поможете реализовать задуманное?)
В Word создал UserForm1 в ней есть несколько элементов управления ComboBox1 и ComboBox2 нужно чтобы формировался текст в Label в зависимости от значений в ComboBox.
Вложения
Тип файла: rar Пример.rar (17.1 Кб, 18 просмотров)
Otradnoe_4D вне форума Ответить с цитированием
Старый 12.03.2018, 22:39   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Используй событие Change
Код:
Private TextStrings

Private Sub ComboBox2_Change()
    SetText
End Sub

Private Sub ComboBox3_Change()
    SetText
End Sub

Private Sub SetText()
    Dim text1 As String
    Dim text2 As String
    text1 = IIf(ComboBox3.ListIndex = 0, TextStrings(0), ComboBox3.Text & " " & TextStrings(1))
    text2 = ComboBox2.Text
    Label1.Caption = text1 & text2
End Sub

Private Sub UserForm_Initialize()
    ComboBox3.List = Array("Начальник", "ВРИО", "ИО")
    ComboBox2.List = Array("Внуково", "Дорогомилово", "Крылатское", "Кунцево", "Можайский", "Ново-Переделкино", "Очаково-Матвеевское", "Проспект Вернадского", "Раменки", "Солнцево", "Тропарёво-Никулино", "Филёвский парк", "Фили-Давыдково")
    TextStrings = Array("Начальник фабрики по району ", "начальника фабрики по району ")
End Sub
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 14.03.2018, 18:10   #3
Otradnoe_4D
 
Регистрация: 06.03.2018
Сообщений: 8
По умолчанию

Спасибо. Все работает отлично)))
Otradnoe_4D вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести из ComboBox в Label Danon7757 C++ Builder 4 22.04.2015 08:04
Взаимосвязь между формами Neolit1819 C# (си шарп) 1 23.05.2011 07:15
Из бд access в label используя ComboBox Itachi Помощь студентам 1 22.05.2011 16:25
отсутствует взаимосвязь между датой поступления товара и датой отгрузки Forget Microsoft Office Access 0 13.02.2011 14:10
Соединение Combobox и Label Евгений Д. Microsoft Office Excel 1 02.06.2009 05:56