Gambas-it

Gambas3 => Programmazione => Topic aperto da: Gianluigi - 26 Agosto 2019, 19:57:27

Titolo: Ridimensionare il font in una label
Inserito da: Gianluigi - 26 Agosto 2019, 19:57:27
Avete un metodo di ridimensionamento più valido da propormi?
Grazie

Vedi allegato
Titolo: Re:Ridimensionare il font in una label
Inserito da: vuott - 26 Agosto 2019, 20:41:59
 sanmidi

" O San Midi (https://it.wikipedia.org/wiki/Musical_Instrument_Digital_Interface), sempre amato,
   gloria a te in ogni loco,
   riduci, orsù, ciò che è esagerato:
   un sorriso a te solo basta, come gioco. "


Codice: [Seleziona]
Public Sub Button1_Click()

  While Label1.W < Label1.Font.TextWidth(Label1.Text)
    Dec Label1.Font.Size
  Wend

End
Titolo: Re:Ridimensionare il font in una label
Inserito da: kicco - 26 Agosto 2019, 20:47:13
Citazione
sanmidi

" O San Midi, sempre amato,
   gloria a te in ogni loco,
   riduci, orsù, ciò che è esagerato:
   un sorriso a te solo basta, come gioco. "
Simpliciorem sancte!
S. Midi defendat usque in sempiternum!
Amen!
 :angel:
Titolo: Re:Ridimensionare il font in una label
Inserito da: vuott - 26 Agosto 2019, 20:58:32
Citazione da: kicco - 26 Agosto 2019, 20:47:13
Simpliciorem sancte!
S. Midi defendat usque in sempiternum!
Amen!


 sanmidi

In te, Sancte Midi, confitemur:
Tibi animas nostras reddidimus gaudentes !
Titolo: Re:Ridimensionare il font in una label
Inserito da: Gianluigi - 26 Agosto 2019, 22:48:52
Citazione da: vuott - 26 Agosto 2019, 20:41:59

Codice: [Seleziona]
Public Sub Button1_Click()

  While Label1.W < Label1.Font.TextWidth(Label1.Text)
    Dec Label1.Font.Size
  Wend

End

Cosa vuoi che ti dica: Ho una mente contorta  :-\

Grazie  :)
Titolo: Re:Ridimensionare il font in una label
Inserito da: vuott - 27 Agosto 2019, 00:35:47
Citazione da: Gianluigi - 26 Agosto 2019, 22:48:52
Cosa vuoi che ti dica...

Sei "nato con la camicia": San Midi veglia su di te !

Titolo: Re:Ridimensionare il font in una label
Inserito da: kicco - 27 Agosto 2019, 08:36:47
Citazione
Sei "nato con la camicia": S
Quando ti presenti nel Forum, mettiti anche qualcos'altro! :P
 :ciao:
Titolo: Re:Ridimensionare il font in una label
Inserito da: cogier - 27 Agosto 2019, 18:47:02
Prova questo.

(http://www.cogier.com/gambas/Expand.png)
Titolo: Re:Ridimensionare il font in una label
Inserito da: Gianluigi - 27 Agosto 2019, 20:18:36
Ciao cogier,
scusa l'ignoranza ma per me è un codice senza senso.
Da dove saltano fuori -100 e 20?

 :ciao:
Titolo: Re:Ridimensionare il font in una label
Inserito da: cogier - 29 Agosto 2019, 19:36:07
OK, sostituisci il codice del mio ultimo programma con questo. È meglio?

Codice: [Seleziona]
Public Sub Form_Resize()
Dim iLabW As Integer = LabelOutput.Width
Dim iFontW As Integer = LabelOutput.Font.TextWidth(LabelOutput.Text)
Dim bUpDown As Boolean 

If Max(iLabW, iFontW) = iFontW Then bUpDown = True

If Not bUpDown Then 
  Repeat
    Inc LabelOutput.Font.Size
    iLabW = LabelOutput.Width 
    iFontW = LabelOutput.Font.TextWidth(LabelOutput.Text)
  Until iLabW <= iFontW 
  Dec LabelOutput.Font.Size
Else
  Repeat
    Dec LabelOutput.Font.Size
    iLabW = LabelOutput.Width 
    iFontW = LabelOutput.Font.TextWidth(LabelOutput.Text)
  Until iLabW >= iFontW 
End If

End
Titolo: Re:Ridimensionare il font in una label
Inserito da: Gianluigi - 29 Agosto 2019, 23:45:01
Si questo per me ha più senso.
Ti ringrazio per aver postato il codice.
Per il quesito specifico (quello di ridurre il testo alla misura della label) ho adottato il codice suggerito da vuott, semplice e breve.

 :ciao: