Ridimensionare il font in una label

[Gianluigi]

Avete un metodo di ridimensionamento più valido da propormi?
Grazie

Vedi allegato

[vuott]

 

" 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

[kicco]

" 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!
 

[vuott]

Simpliciorem sancte!
S. Midi defendat usque in sempiternum!
Amen!

 

In te, Sancte Midi, confitemur:
Tibi animas nostras reddidimus gaudentes !

[Gianluigi]

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 

[vuott]

Cosa vuoi che ti dica...

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

[kicco]

Sei "nato con la camicia": S

Quando ti presenti nel Forum, mettiti anche qualcos'altro!
 

[cogier]

Prova questo.

[Gianluigi]

Ciao cogier,
scusa l'ignoranza ma per me è un codice senza senso.
Da dove saltano fuori -100 e 20?

 

[cogier]

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

[Gianluigi]

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.