Differenze tra le versioni di "Ridurre in una Label il testo avente dimensioni superiori alla lunghezza della Label medesima"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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....") |
|||
Riga 1: | Riga 1: | ||
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. | 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. | ||
− | <BR>L'intento è quello di ridurre la dimensione del ''font'' del testo, | + | <BR>L'intento è quello di ridurre la dimensione del ''font'' del testo, affinché questo entri adeguatamente nella dimensione della ''Label''. |
Versione delle 16:43, 26 ago 2019
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