O4en' nugna pomocsh!!!

[Sirik]

Est' proekt (o4en' mnogo form, moduley i ActiveX).
Mogno li na vsem formah i vsem elementah v formah pomenjat 6rift?
Narod pomogite, o4en' nado!!!

[ALX_2002]

Ne brat.... Ja dumaju te pridetsa samomu vse zameniat' vru4nuju, kak eto ne obidno.

Esli bi u tebja v kajdoj forme bilobi propisano tipa

Код: Выделить всё

me.FontName="...."


togda mojno bilo bi global'noj zamenoj eto sdelat'.... a tak....

P.S Xz... Mojet ja prosto ne znaju...

[Sirik]

Ne brat.... Ja dumaju te pridetsa samomu vse zameniat' vru4nuju, kak eto ne obidno.

Esli bi u tebja v kajdoj forme bilobi propisano tipa

Код: Выделить всё

me.FontName="...."


togda mojno bilo bi global'noj zamenoj eto sdelat'.... a tak....

P.S Xz... Mojet ja prosto ne znaju...

Ja prosto pomnu gde-to v fome bilo: v proete mogna bilo uzant' kol. form i ihnie imena. Ja dumal 4to tak mogno uznat' elementi na forme.
Prosto ja sozdau proekt s ital'jancami i u menja ihnii 6rift ni figa ne pokazivaet

[Mikle]

Элементарно.
Пишешь программу, которая открывает frm-файлы (обычный текст), ищет там свойства фонтов и меняет, как нужно.

Народ... называйте темы информативно
Транслит тоже достал, или у тебя украинский шрифт

[A.A.Z.]

Если надо в ран-тайме, то:
Если надо только у форм, то:

Код: Выделить всё

Dim frm As Form
For Each frm In Forms
With frm
.Font.Name = "Arial"
.Font.Size = 12
End With
Next

А если и у форм, и у их контролов, то:

Код: Выделить всё

Dim frm As Form, ctl As Control
For Each frm In Forms
With frm
.Font.Name = "Arial"
.Font.Size = 12
For Each ctl In .Controls
If ctl Not Is Timer And ctl Not Is Menu And ctl Not Is Image Then
With .ctl
.Font.Name = "Arial"
.Font.Size = 12
End With
Next
End With
End If
Next

Только, к сожалению, код проверить не могу...

[Sirik]

Элементарно.
Пишешь программу, которая открывает frm-файлы (обычный текст), ищет там свойства фонтов и меняет, как нужно.

Народ... называйте темы информативно
Транслит тоже достал, или у тебя украинский шрифт

Nazval temu kak mog!!! Nac4et translit, ja prosto s4as v Italy, i kak ti ponimae6 tut NET russkoy raskladki.

[alibek]

Mikle сказал единственный дельный способ. Я в свое время так Visual Data Manager "локализовал", чтобы он кириллицу правильно писал.
Ищешь все, что начинается с "BeginProperty Font" и меняешь нужные свойства.

[Sirik]

Mikle сказал единственный дельный способ. Я в свое время так Visual Data Manager "локализовал", чтобы он кириллицу правильно писал.
Ищешь все, что начинается с "BeginProperty Font" и меняешь нужные свойства.

Da ja eto ponjal, no mne eto ne podhodit: u menja proekt moget rabotat' na 4 jazikah (poka na 4). Moget est' drugoy sposob?

[ASD]

а при чем тут языки? Ты же тип фонта меняешь.

[Sirik]

Italjanci hotjat 4tobi u nih bil font MS Sans, a menja dolgen bit MS Sans Serif. Vot v 4em problemma