Da Gambas-it.org - Wikipedia.
|
|
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.
| + | #REDIRECT [[Ridurre_in_un_Oggetto_grafico_o_di_testo_la_dimensione_del_font_se_il_testo_ha_una_lunghezza_superiore_a_quella_dell'Oggetto]] |
− | <BR>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()
| |
− |
| |
− | <FONT Color=#B22222>While label1.W < label1.Font.TextWidth(label1.Text)
| |
− | Dec label1.Font.Size
| |
− | Wend</font>
| |
− |
| |
− | '''End'''
| |
Versione attuale delle 13:51, 5 gen 2022