Единый стиль оформления для форм

@VeX · Регистрация: 04.07.2015

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

Подскажите пожалуйста возможно ли создать единый стиль оформления для всех техтбокс в форме не прописывая код для каждой из них?
то есть требуется при входе в каждый текстбокс менять цвет фона, а при выходе менять еще раз. Где это прописать один раз чтоб не писать внутри каждого события. Спаибо

@The_Prist · 13.07.2015, 21:06

Надо через модули классов это делать. Наберите в Яндексе: Работа с модулями классов

@Kubuntovod · 14.07.2015, 07:04

А офис у Вас какой?

@VeX · 14.07.2015, 20:30 **[ТС]**

2013

@Kubuntovod · 16.07.2015, 15:44

Если в 2013 есть событие Enter у контрола TextBox, то да, можно использовать. Добавляете модуль класса, называете его, к примеру, TBControl. У него в коде пишите:

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
 
Public WithEvents TBC As MSForms.TextBox
 
Private Sub TBC_Enter(...)
  TBC.BackColor = RGB(255, 0, 0)
End Sub
 
...

В любом модуле объявляете массив своих текстбоксов. Что-то типа tbi(7) As New TBControl

В форме, в процедуре инициализации, добавляете текстбоксы на форму и оформляете их:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  For i = 0 To 6
    Set tbi(i).TBC = Info.Controls.Add("Forms.TextBox.1", a(i))
  Next i
  With tbi(0).TBC 'Первый текстбокс
    .MaxLength = 200
    .TextAlign = fmTextAlignLeft
    .BorderStyle = fmBorderStyleSingle
    .BorderColor = RGB(171, 171, 171)
    .Font.Size = 9
    .Font.Bold = True
    .Top = 28
    .Left = 60
    .Width = 444
    .Height = 16
    .SelectionMargin = False
  End With
 
...

Вот как-то так.

@VeX · 21.07.2015, 02:32 **[ТС]**

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

Private Sub TBC_Enter(...)

это значит что процедура будет приминима для всех событий Enter?

@Kubuntovod · 21.07.2015, 09:18

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

это значит что процедура будет приминима для всех событий Enter?

Да. Для контролов, созданных на основе этого класса. К сожалению, у меня офис 2003, а в нём нет такого события у контрола TextBox. Поэтому, в примере многоточие.

@VeX · 21.07.2015, 15:16 **[ТС]**

Блин че-то ниче не работает

Мне не нужно создавать текстбоксы - они уже созданы
Я хочу избавить себя от записи в каждом событии прописывать изменение цвета.
Что мне прописать в модуле классов, чтоб автоматом события применяли их

Что написать в модуле формы, чтоб работало для всех событий _Enter и _Exit?

Модуль класса:

Code
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Public WithEvents Свойства_поля As MSForms.TextBox
 
Sub Свойства_поля_Enter()
    Свойства_поля.BackColor = &H80000018
End Sub
 
Sub Свойства_поля_Exit()
    Свойства_поля.BackColor = &H80000005
End Sub

@The_Prist · 21.07.2015, 15:40

В двух словах сложно пояснять. Я уже предлагал Вам поискать. Здесь нельзя ссылки на сторонние ресурсы выкладывать - могу в личку скинуть.
Сама ссылка(да простят меня модераторы): Работа с модулями классов
Там я приводил пример и с созданием новых TextBox-ов и с использованием уже существующих на форме. С подробным описанием что за что отвечает.

@VeX · 22.07.2015, 03:16 **[ТС]**

так это ваш пример

я его видел но голова че-то совсем не та что 20 лет назад. да и освоить программирование за неделю не легко. в голове полный бардак

Добавлено через 4 часа 8 минут
Спустя 2 часа вроде разобрался что к чему, не совсем понятно что такое Me.Control? Это объект текстбокс?
Если у каждого объекта уникальное имя их надо каждый отдельно прописывать?

Code
1
2
3
Set aoTxtBxes(1).oTxtBx = Me.Controls(Номер_договора)
Set aoTxtBxes(2).oTxtBx = Me.Controls(Дата заключения)
Set aoTxtBxes(3).oTxtBx = Me.Controls(и_тд)

И можно ли использовать глобальные переменные с такими же именами как текстбоксы? Чем это грозит?

@VeX · 22.07.2015, 03:45 **[ТС]**

Че то не хочет работать - пишет несовпадение типов
может гляньте что не так?

@Kubuntovod · 22.07.2015, 07:06

Имена в кавычки возьмите.

Добавлено через 11 минут
И пункт "Менеджер" у Вас является типом ComboBox, а Вы его туда же впяливаете, как TextBox. Внимательнее надо

@The_Prist · 22.07.2015, 11:49

Тут как бы нечего больше советовать. Там конкретный пример для Вашего случая так же описан.

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

И можно ли использовать глобальные переменные с такими же именами как текстбоксы?

Я бы не советовал. Это дурной тон. Внутри формы обращение будет все равно к объекту самой формы, т.к. у них приоритет. В других модулях это не помешает, но существенно может запутать логику кода. Лучше сразу старайтесь выстраивать логику так, чтобы не пришлось давать одинаковые имена модулям, процедурам, объектам.

@VeX · 22.07.2015, 23:29 **[ТС]**

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

И пункт "Менеджер" у Вас является типом ComboBox, а Вы его туда же впяливаете, как TextBox. Внимательнее надо

Если у меня единые свойства что для КомбоБокс что для ТекстБокс как мне это записать? Неужели создавать отдельный класс для КомбоБокс?

@The_Prist · 22.07.2015, 23:43

Не понял вообще смысла написанного. В классе создаете события. Там не может быть двойственности. Либо Вы классом это событие для контрола обрабатываете, либо внутри формы.

@Kubuntovod · 23.07.2015, 06:45

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

Если у меня единые свойства что для КомбоБокс что для ТекстБокс как мне это записать?

Вот смотрите, Вы пишите:

Public WithEvents Свойства_полей As MSForms.TextBox

А затем туда впихиваете невпихуемое:

Свойства_полей = Me.Controls("Менеджер")

Но поле "Менеджер" то у Вас совсем другого типа! Т.е. Вы пишите, фактически, объект "круг" равен объекту "квадрат". VBA Вам закономерно отвечает про несоответствие типов.

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

Неужели создавать отдельный класс для КомбоБокс?

Если у Вас всего один комбобокс на форме, то можно в форме код и прописать.

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

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

Не понял вообще смысла написанного.

Файлик скачайте и сразу поймёте

@Kubuntovod · 23.07.2015, 07:57

VeX, в свете последних данных о событии "Enter" у TextBox-ов, придётся Вам вернуться к тому, с чего Вы начинали

С прописывания события у каждого контрола. Но можно значительно сократить код, если использовать единую процедуру. Примерно так:

@VeX · 23.07.2015, 19:18 **[ТС]**

Ура заработало

Добавлено через 1 час 45 минут
А запись такого типа как реализовать? и возможно ли это?
то есть требуется автоматически брать имя активного текстбокса и создавать аналогичное событие

Code
1
Private Sub (Me.ActiveControl.Name)&_Enter()

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@VeX 0 / 0 / 0 Регистрация: 04.07.2015 Сообщений: 53

	Единый стиль оформления для форм 13.07.2015, 20:12. Показов 1955. Ответов 17 Метки нет (Все метки) Подскажите пожалуйста возможно ли создать единый стиль оформления для всех техтбокс в форме не прописывая код для каждой из них? то есть требуется при входе в каждый текстбокс менять цвет фона, а при выходе менять еще раз. Где это прописать один раз чтоб не писать внутри каждого события. Спаибо 0

@The_Prist 2053 / 483 / 133 Регистрация: 13.11.2008 Сообщений: 922
	13.07.2015, 21:06
	Надо через модули классов это делать. Наберите в Яндексе: Работа с модулями классов 0

@Kubuntovod 3305 / 933 / 201 Регистрация: 14.01.2013 Сообщений: 4,769
	14.07.2015, 07:04
	А офис у Вас какой? 0

@VeX 0 / 0 / 0 Регистрация: 04.07.2015 Сообщений: 53
	14.07.2015, 20:30 [ТС]
	2013 0

@The_Prist 2053 / 483 / 133 Регистрация: 13.11.2008 Сообщений: 922
	21.07.2015, 15:40
	В двух словах сложно пояснять. Я уже предлагал Вам поискать. Здесь нельзя ссылки на сторонние ресурсы выкладывать - могу в личку скинуть. Сама ссылка(да простят меня модераторы): Работа с модулями классов Там я приводил пример и с созданием новых TextBox-ов и с использованием уже существующих на форме. С подробным описанием что за что отвечает. 0

@Kubuntovod 3305 / 933 / 201 Регистрация: 14.01.2013 Сообщений: 4,769
	22.07.2015, 07:06
	Имена в кавычки возьмите. Добавлено через 11 минут И пункт "Менеджер" у Вас является типом ComboBox, а Вы его туда же впяливаете, как TextBox. Внимательнее надо 1

@The_Prist 2053 / 483 / 133 Регистрация: 13.11.2008 Сообщений: 922
	22.07.2015, 23:43
	Не понял вообще смысла написанного. В классе создаете события. Там не может быть двойственности. Либо Вы классом это событие для контрола обрабатываете, либо внутри формы. 0

Единый стиль оформления для форм

Решение