SERGIO
29 de Agosto del 2003

Necesito cambiar la fuente a todos los labels, botones etc de mis formularios, como lo hago todos a la vez???

Juan
29 de Agosto del 2003

Te pongo un ejemplo de como hacerlo. El ejemplo recorre
la colección controls del formulario y va filtrando los
controles según el tipo, es necesario que sólo actue
sobre aquellos controles que tienen propiedad font,
para finalmente cambiar la fuente.


Private Sub Form_Click()
Dim auxControl As Control
'Recorre la colección Controls del formulario
For Each auxControl In Me.Controls
'Filtra los controles por tipo
If TypeOf auxControl Is CommandButton _
Or TypeOf auxControl Is TextBox _
Or TypeOf auxControl Is Label _
Or TypeOf auxControl Is ComboBox _
Or TypeOf auxControl Is ListBox _
Then
'Cambia valores de la propiedad font
With auxControl
.Font.Bold = True
.Font.Name = "verdana"
End With
End If
Next auxControl
End Sub


P.D.: para ver como funciona pon algunos controles
en un formulario y haz click sobre el mismo formulario.