19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Public Sub Button1_Click() While Label1.W < Label1.Font.TextWidth(Label1.Text) Dec Label1.Font.Size WendEnd
" 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!
Codice: [Seleziona]Public Sub Button1_Click() While Label1.W < Label1.Font.TextWidth(Label1.Text) Dec Label1.Font.Size WendEnd
Cosa vuoi che ti dica...
Sei "nato con la camicia": S
Public Sub Form_Resize()Dim iLabW As Integer = LabelOutput.WidthDim iFontW As Integer = LabelOutput.Font.TextWidth(LabelOutput.Text)Dim bUpDown As Boolean If Max(iLabW, iFontW) = iFontW Then bUpDown = TrueIf Not bUpDown Then Repeat Inc LabelOutput.Font.Size iLabW = LabelOutput.Width iFontW = LabelOutput.Font.TextWidth(LabelOutput.Text) Until iLabW <= iFontW Dec LabelOutput.Font.SizeElse Repeat Dec LabelOutput.Font.Size iLabW = LabelOutput.Width iFontW = LabelOutput.Font.TextWidth(LabelOutput.Text) Until iLabW >= iFontW End IfEnd