Change Font in all forms

Is it possible to change the FontNames of all Textboxes and
Labels (etc...) of all Forms (in VB3)?

For example: When the user clicks on a commdbutoon all
fonts in all forms change to 'Arial'

I would be very happy for some positive answers,
Matt-D(eutschland) :rolleyes: :)

You can go trough all controls in the form and chech if they have a fontname property. For each control in controls. I they have, change it. You can put on error resume next to avoid controls that don't have that property.

Something like

Code:

---


Dim objTemp as Object

For Each ObjTemp in Form1.Controls

    On Error Resume Next

        ObjTemp.FontName= "Arial"

    On Error Goto 0

Next ObjTemp

---

you can do this by using the forms and controls collection

Code:

---

Private Sub Edit_Controls()
  Dim Y As Form
  Dim X As Control
 
  For Each Y In Forms
      For Each X In Y.Controls
     
        If (TypeOf X Is TextBox) Or (TypeOf X Is Label) Then
            X.Font = "Arial"
            X.Font.Bold = True
        End If
       
      Next X
  Next Y
End Sub

---

however, this only works for loaded forms

MSDN says:

Quote:

---

A Forms collection is a collection whose elements represent each loaded form in an application. The collection includes the application'sMDI form,MDI child forms, and non-MDI forms.

---

[Edited by Nina on 05-04-2000 at 03:29 PM]

In VB3 it doesn't work.
BUT it alse tried it in VB4 and its prefect !
Soon I'll switch my program to VB 4

THX :rolleyes:
[i] Matt-D(eutschland) :)

Matt--
This should work in VB3

Sub renameControls(frm As Form)
Dim i As Integer
For i=0 to frm.Controls.Count - 1
If TypeOf frm.Controls(i) Is CheckBox Then
frm.Controls(i).FontName = "Arial"
ElseIf TypeOf frm.Controls(i) Is CommandButton Then
frm.Controls(i).FontName = "Arial"
ElseIf ...
...
End If
Next i
End Sub

In the Form_Load event of each form place the following code:
Call renameControls(Me)

You just have to make sure you've enumerated all the controls you've used. This will also work with custom controls.

viel Glück
--Carl