Ridurre in una Label il testo avente dimensioni superiori alla lunghezza della Label medesima
Da Gambas-it.org - Wikipedia.
Versione del 26 ago 2019 alle 16:43 di Vuott (Discussione | contributi)
Il caso in questione è quello in cui si ha una Label, alla cui proprietà .Text è assegnato un testo che risulta andare oltre la lunghezza della Label medesima.
L'intento è quello di ridurre la dimensione del font del testo, affinché questo entri adeguatamente nella dimensione della Label.
Mostriamo un possibile ccodice:
Private label1 As Label Private button1 As Button Public Sub Form_Open() With Me .W = 400 .H = 200 End With With label1 = New Label(Me) .X = 10 .Y = 10 .W = 380 .H = 50 .Font.Size = 30 .Text = "Questo è un testo qualsiasi" .Background = Color.Lighter(Color.Yellow) End With With button1 = New Button(Me) As "Button1" .X = Me.W - 100 .Y = Me.h - 80 .W = 80 .H = 50 End With End Public Sub Button1_Click() While label1.W < label1.Font.TextWidth(label1.Text) Dec label1.Font.Size Wend End