Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Передача в другой модуль ссылки на объект
 
#1
04.11.2018 19:27:57
Добрый день, Уважаемые!

На пользовательской форме (UserForm1) есть TextBox1 (объект может быть так же и ComboBox)
Ссылку на этот объект надо передать в другой модуль, что бы в нем произвести например изменение цвета фона.

Вопрос - Какого типа нужно объявить переменную "perem", что бы в ней можно было хранить ссылку на объект?
Что бы в дальнейшем определить:
Код
Set perem = UserForm1.TextBox1
Call Chang (perem)

А во втором модуле выполнить процедуру
Код
Sub Chang (perem)
   If perem.Value = "" Then
      perem.BackColor = &HC0FFFF
   Else
      perem.BackColor = &HFFFFFF
   End If
End Sub

Задача: На UserForm есть несколько объектов, которые при запуске формы пустые. Если объект пустой, то фоновый цвет желтый, если не пустой, то фоновый цвет белый.
Подобную проверку хочу сделать отдельной процедурой.

Вопрос 2.
Как переменной "perem" присвоить ссылку на активный объект?
У меня после каждого изменения поля на форме запускается процедура SetKod
Вот в этой процедуре переменной "perem" присвоить ссылку на активный объект и далее вызвать процедуру Chang
Изменено: Allleksey - 04.11.2018 23:34:11
 
 
 
#2
04.11.2018 19:37:50
обьявите без определения типа
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
04.11.2018 19:43:46
Вот так не сработало
Код
Dim CheckYelow

Sub Check()
CheckYelow = UserForm1.TextBox1
MsgBox CheckYelow.Value
End Sub
 
 
 
#4
04.11.2018 19:52:36
а так?
Код
Set CheckYelow = UserForm1.TextBox1
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
04.11.2018 20:02:17
Ігор Гончаренко, да, так сработало :)
А как передать ссылку на активное поле?
 
 
 
#6
04.11.2018 20:08:59
Цитата
Вопрос - Какого типа нужно объявить переменную "perem", что бы в ней можно было хранить ссылку на объект?
Объявляйте тип Object

Цитата
А как передать ссылку на активное поле?
Сначала определите какое поле у вас активное в данный момент, а потом передавайте ссылку на это поле (опять же предварительно объявив его как Object)
 
 
 
#7
04.11.2018 20:17:26
Цитата
tsap написал: Сначала определите какое поле у вас активное в данный момент, а потом передавайте ссылку на это поле
Вот это я и не понимаю, как сделать
 
 
 
#8
04.11.2018 21:44:26
Цитата
Allleksey написал:
как передать ссылку на активное поле?
А что такое активное поле? C модальными (открытыми) формами в VBA обычно работают из процедур обработки событий объектов формы. Там такой вопрос не возникает.
После того, как форма обработана пользователем и скрыта, "активное поле" тоже не имеет смысла.
Изменено: sokol92 - 04.11.2018 21:48:30
Владимир
 
 
 
#9
04.11.2018 22:30:02
Раз у вас после каждого изменения поля запускается процедура отлавливающая изменения, то в данной процедуре и присваивайте объекту ссылку на поле, которое изменилось. К примеру, у Вас есть событие TextBox1_Change() в котором отслеживается изменение данных в текстовом поле. В нем у Вас будет что-то наподобие

Код
Sub TextBox1_Change()
Dim perem as object
Set perem = UserForm1.TextBox1
Call Chang (perem)
End Sub


Я правильно Вас понял?
Изменено: tsap - 04.11.2018 22:32:58
 
 
 
#10
04.11.2018 23:25:39
Цитата
Allleksey написал:
А как передать ссылку на активное поле?
ActiveControl не подойдёт?
 
 
 
#11
04.11.2018 23:53:00
Юра,
ты видишь в теме царь! нужно сначала царя спросить
Всемилостивейший Государь, ничего что я о Вас в Вашем присутствии в 3-ем лице?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#12
05.11.2018 00:04:17
Козел (цап) и царь... Хотя, да - иногда похожи :)
 
 
 
#13
05.11.2018 07:36:06
Цитата
Юрий М написал:
ActiveControl не подойдёт
Если я правильно понимаю, то ActiveControl используется только для чтения. С его помощью я не могу изменять свойства :(

tsap, да, именно так я сейчас и делаю. Но хотелось унифицировать код, что бы каждый раз не корректировать его под изменение конкретного поля, а что бы код сам определял, в каком именно поле произошли изменения.
Изменено: Allleksey - 05.11.2018 14:37:51
 
 
 
#14
05.11.2018 10:57:36
Посмотрите здесь, у Дмитрия Щербакова.
Владимир
 
 
 
#15
05.11.2018 13:39:40
Модуль класса штука хорошая, но ..., например событие
Код
TextBox_Exit

там отсутствует
Как получить активный Texbox?
Изменено: RAN - 05.11.2018 14:39:22
 
 
 
#16
05.11.2018 14:34:27
Цитата
vikttur написал:
Цитата - не копирование

Цитата сообщения с кодом не работает. Цитируется именно так, как у меня в сообщении. (было)
 
 
 
#17
05.11.2018 14:35:42
А зачем там вообще цитата?
 
 
 
#18
05.11.2018 14:38:06
поправил
 
 
 
#19
05.11.2018 14:39:49
Ранее скрытые сообщения отображаются.
 
 
 
#20
05.11.2018 14:44:27
Цитата
Юрий М написал:
ActiveControl не подойдёт?
Цитата
Allleksey написал:
Если я правильно понимаю, то ActiveControl используется только для чтения. С его помощью я не могу изменять свойства
Вы проверили это утверждение?
 
 
 
Страницы: 1
Наверх