Gambas-it

Gambas dal mondo esterno => Germania => Topic aperto da: vuott - 06 Marzo 2016, 18:16:28

Titolo: E' possibile modificare la dimensione del carattere in tutto il Form ?
Inserito da: vuott - 06 Marzo 2016, 18:16:28

https://www.gambas-club.de/viewtopic.php?f=3&t=5116

Titolo: Re:E' possibile modificare la dimensione del carattere in tutto il Form ?
Inserito da: Gianluigi - 06 Marzo 2016, 22:56:41

Probabilmente non ho capito la domanda, perché altrimenti basta fare

Codice: [Seleziona]

Public Sub Button1_Click()

  Me.Font.Size = Me.Font.Size * 2

End

così tanto per semplificare
 :ciao:

Titolo: Re:E' possibile modificare la dimensione del carattere in tutto il Form ?
Inserito da: Gianluigi - 07 Marzo 2016, 11:51:21

Così forse è meglio?

Codice: [Seleziona]

Public Sub Button1_Click()

 Dim o As Object
 Me.Font.Size = Me.Font.Size * 2
 For Each o In Me.Children
   If Object.Type(o) = "ToolBar" Then o.Font.Size = Me.Font.Size
 Next

End

:ciao:
PS: Scusa mi sono sbagliato, quella sopra è a modo tuo    ;D

Codice: [Seleziona]

Dim c As Control
 Me.Font.Size = Me.Font.Size * 2
 For Each c In Me.Controls
   If c.Name = "ToolBar" Then c.Font.Size = Me.Font.Size
 Next

Questo è il modo corretto  :P

 :ciao: :ciao: