Конференция VBStreets

**djalex777** » 12.11.2009 (Чт) 21:38

Можно ли изменить шрифт у всех компонентов сразу для проекта (форм, объектов на формах) естественно только для тех у которых есть свойство Font? Требуется изменить само написание (т.е. font.name). Просто есть проект - в нем куча форм и т.д. Хотелось бы сразу поменять всем объектам шрифт на определенный, а не изменять свойство отдельно каждому контролу.

**iGrok** » 12.11.2009 (Чт) 22:17

Ну.. Любой нормальный текстовый редактор - Replace In Files, и вперёд.

**Денис** » 13.11.2009 (Пт) 8:31

iGrok писал(а):Ну.. Любой нормальный текстовый редактор - Replace In Files, и вперёд.

Ты сейчас о каких файлах говоришь? О bas или о vb? Мы вообще-то в разделе 6-го бейсика. Хотя, не спорю, может и автор раздел перепутал.

Автор!
У тебя проект-то в какой студии? И если это не .NET то сообщи нам, задаются ли шрифты кодом или прописаны в свойствах компонентов?

**iGrok** » 13.11.2009 (Пт) 14:33

Денис писал(а):
iGrok писал(а):Ну.. Любой нормальный текстовый редактор - Replace In Files, и вперёд.

Ты сейчас о каких файлах говоришь? О bas или о vb? Мы вообще-то в разделе 6-го бейсика. Хотя, не спорю, может и автор раздел перепутал.

Я сейчас в разделе 6ой студии и говорю о файлах bas, frm, cls, ctl и т.п. А что?
Если шрифты прописаны в свойствах, это что-то меняет?

UPD:
Угу. Вижу. Если они не прописаны вообще, а стоят "по дефолту", то это многое меняет, ага. (
Ну тогда дополнительно в Main или Form_Load добавить обход Me.Controls с заданием написания шрифта.

**Antonariy** » 13.11.2009 (Пт) 14:35

Он все правильно говорит.
Нужно открыть в текстовом редакторе frm и ctl файлы и изменить

Код: Выделить всё: Name = "MS Sans Serif"

на допустим

Код: Выделить всё: Name = "Courier New CYR"

**Денис** » 13.11.2009 (Пт) 15:07

Antonariy писал(а):Он все правильно говорит.
Нужно открыть в текстовом редакторе frm и ctl файлы и изменить

Если в проекте шрифт не меняли, то для контролов отсутствуют секции BeginProperty Font ... EndProperty
Впрочем, если текстовый редактор достаточно "нормальный" (как выражались выше), то такую секцию можно и добавить.

**djalex777** » 13.11.2009 (Пт) 16:01

Я говорю о VB6. Первое что пришло в голову это пройтись по всем файлам и заменить секцию, но

Денис писал(а):Если в проекте шрифт не меняли, то для контролов отсутствуют секции BeginProperty Font ... EndProperty

Вот из-за этого такой вариант не подошел. Плюс ко всему не всякий контрол имеет свойство Font... (просто так секцию тоже не добавишь). Я понимаю, что можно в инете найти супер-пупер редактор и изменять что угодно и где угодно, просто думал, может это (шрифт) можно поменять из среды разработки к примеру.

**Antonariy** » 13.11.2009 (Пт) 20:03

Можно и из среды. Аддин напиши.

**djalex777** » 14.11.2009 (Сб) 20:35

Antonariy писал(а):Можно и из среды. Аддин напиши.

Спасибо за подсказку! Думал что там сложно Add-in написать... Сделал за 10 минут.

Конференция VBStreets

Изменить шрифт для всех компонентов проекта сразу

Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Re: Изменить шрифт для всех компонентов проекта сразу

Кто сейчас на конференции