' Процедурата установява шрифта за всички обекти (контроли) върху Форма

 ' Може лесно да бъдат добавени и други свойства на шрифта

 ' Ако boolSetToAllForms = True ще се промени шрифта на всички обекти (контроли) върху всички Форми в проекта

 ' (правете това само ако всички форми от проекта са заредени)

 ' Ако някой от контролите има .Tag "FontLocked" неговия шрифт няма да се промени

 ' Пример: Call Sub_SetFont(Form1,"Tahoma",204,False) -> Ще промени шрифта на всички обекти (контроли) върху Form1

Public Sub Sub_SetFont( _

           objTarget As Object, _

           strFontName As String, _

           intFontCharset As Integer, _

           Optional boolSetToAllForms As Boolean = False)





On Error Resume Next



Dim objTargets As Object

Dim objTargetControls As Object





 ' Ако не е за всички Форми а само за objTarget

If boolSetToAllForms = False Then

   For Each objTargetControls In objTarget.Controls

       If objTargetControls.Tag <> "FontLocked" Then

          objTargetControls.Font.Charset = intFontCharset

          objTargetControls.Font.Name = strFontName

       End If

   Next

Else ' Ако е за всички Форми в проекта

   For Each objTargets In VB.Forms

       For Each objTargetControls In objTargets.Controls

           If objTargetControls.Tag <> "FontLocked" Then

              objTargetControls.Font.Charset = intFontCharset

              objTargetControls.Font.Name = strFontName

           End If

       Next

   Next

End If



End Sub

Редактирано от Щиpлиц на 30.09.03 20:25.