Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

icq: 194381182
skype: viter.alex
По умолчанию

Используй событие 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, 19:10   #3
Otradnoe_4D
 
Регистрация: 07.03.2018
Сообщений: 6
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести из ComboBox в Label Danon7757 C++ Builder 4 22.04.2015 09: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 15:10
Соединение Combobox и Label Евгений Д. Microsoft Office Excel 1 02.06.2009 05:56


04:16.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru