Autore Topic: E' possibile modificare la dimensione del carattere in tutto il Form ?  (Letto 318 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.309
  • Ne mors quidem nos iunget
    • Mostra profilo
« Ultima modifica: 12 Aprile 2021, 20:31:29 da vuott »
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.158
  • Tonno verde
    • Mostra profilo
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:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.158
  • Tonno verde
    • Mostra profilo
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:
« Ultima modifica: 07 Marzo 2016, 11:59:32 da Gianluigi »
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro