SizeFonts in form

Un lugar dónde compartir funciones, procedimientos y aplicaciones
AngelMiguel
Nivel 2
Mensajes: 26
Registrado: Mar Nov 21, 2017 4:34 pm

SizeFonts in form

Mensajepor AngelMiguel » Mar Ene 15, 2019 4:11 pm

En un modulo

Public Const FONT_ZOOM_PERCENT_CHANGE = 0.1

Public Sub sizeFonts(ByRef frm As Form, ByVal fontZoom As Double)
On Error GoTo sizeFonts_Error

Dim ctl As Control
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acLabel, acCommandButton, acTextBox, acComboBox, acListBox, acTabCtl, acToggleButton
ctl.fontsize = CDbl(ctl.fontsize + fontZoom)
End Select
Next
fontZoom = fontZoom

On Error GoTo 0
Exit Sub
sizeFonts_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure sizeFonts, line " & Erl & "."
End Sub


En tu form
'' yo uso dos botones de comando pero tambien se puede usar con la rueda del ratón


Private fontZoom As Double

Private Sub Form_Load()
On Error GoTo Form_Load_ErrorPrivate Sub CmdMas_Click()

fontZoom = 1

On Error GoTo 0
Exit Sub
Form_Load_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure Form_Load, line " & Erl & "."
End Sub


Private Sub CmdMas_Click()
On Error GoTo CmdMas_Click_Error

fontZoom = fontZoom + FONT_ZOOM_PERCENT_CHANGE
sizeFonts Me, fontZoom

On Error GoTo 0
Exit Sub
CmdMas_Click_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure CmdMas_Click, line " & Erl & "."
End Sub

Private Sub CmdMenos_Click()
On Error GoTo CmdMenos_Click_Error

fontZoom = fontZoom - FONT_ZOOM_PERCENT_CHANGE
sizeFonts Me, -fontZoom

On Error GoTo 0
Exit Sub
CmdMenos_Click_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure CmdMenos_Click, line " & Erl & "."
End Sub

Volver a “Almacén Accesiano”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado