Autore Topic: Ridimensionare il font in una label  (Letto 1439 volte)

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.244
  • Tonno verde
    • Mostra profilo
Ridimensionare il font in una label
« il: 26 Agosto 2019, 19:57:27 »
Avete un metodo di ridimensionamento più valido da propormi?
Grazie

Vedi allegato
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.683
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #1 il: 26 Agosto 2019, 20:41:59 »
 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.
"


Codice: [Seleziona]
Public Sub Button1_Click()

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

End
« 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 kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #2 il: 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:
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.683
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #3 il: 26 Agosto 2019, 20:58:32 »
Simpliciorem sancte!
S. Midi defendat usque in sempiternum!
Amen!


 sanmidi

In te, Sancte Midi, confitemur:
Tibi animas nostras reddidimus gaudentes !
« 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.244
  • Tonno verde
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #4 il: 26 Agosto 2019, 22:48:52 »

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  :)
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.683
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #5 il: 27 Agosto 2019, 00:35:47 »
Cosa vuoi che ti dica...

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

« 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 kicco

  • Senatore Gambero
  • ******
  • Post: 1.728
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #6 il: 27 Agosto 2019, 08:36:47 »
Citazione
Sei "nato con la camicia": S
Quando ti presenti nel Forum, mettiti anche qualcos'altro! :P
 :ciao:
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline cogier

  • Gambero
  • **
  • Post: 57
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #7 il: 27 Agosto 2019, 18:47:02 »
Prova questo.


Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.244
  • Tonno verde
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #8 il: 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:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline cogier

  • Gambero
  • **
  • Post: 57
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #9 il: 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

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.244
  • Tonno verde
    • Mostra profilo
Re:Ridimensionare il font in una label
« Risposta #10 il: 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:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro