Differenze tra le versioni di "Adattare la dimensione di un Oggetto grafico al testo contenuto"

Versione delle 14:30, 28 set 2022

La presente pagina considera i Controlli grafici (widget) che posseggono la Proprietà ".Text" o similare, alla quale assegnare una stringa di testo, ma non sono costituiti da un'area di testo.

Per adattare la dimensione di un Oggetto grafico al testo in esso contenuto, sono possibili alcune modalità.

Usando la Proprietà ".AutoResize" del Controllo grafico

Per adattare il Controllo grafico al suo testo contenuto, sarà sufficiente usare la sua Proprietà ".AutoResize", se supportata dal Controllo medesimo, assegnandole il valore "True", garantendo nel contempo un adeguata visibilità del testo contenuto.

Mostriamo un esempio usando un Button:

Private Button1 As Button


Public Sub Form_Open()

 With Button1 = New Button(Me) As "Button1"
   .X = 100
   .Y = 100
   .W = 100
   .H = 30
   .AutoResize = True
   .Text = "Testo"
 End With

End 

Public Sub Button1_Click()

' Assegna al Button il nuovo testo da mostrare:
 Button1.Text = "Questo è il nuovo testo contenuto dal Button"
 
End

Inserendo l'Oggetto grafico nel Contenitore grafico "HBox"

Si potrà anche inserire il Controllo grafico all'interno di un Contenitore "HBox". Si assegnerà altresì alla Proprietà ".AutoResize" di entrambi gli Oggetti grafici il valore "True".

Mostriamo un esempio usando un ToggleButton:

Private ToggleButton1 As ToggleButton
Private HBox1 As HBox


Public Sub Form_Open()

 Dim s As String = "testo"
 
 With HBox1 = New HBox(Me)
   .X = 100
   .Y = 100
   .H = 30
   .AutoResize = True
 End With

 With ToggleButton1 = New ToggleButton(hBox1) As "ToggleButton1"
   .X = HBox1.X
   .Y = HBox1.Y
   .W = HBox1.W
   .H = HBox1.H
   .AutoResize = True
   .Text = s
 End With

End

Public Sub ToggleButton1_Click()

 With ToggleButton1
   If .Value Then 
     .Text = "Questa è la prima riga\n questa invece è la seconda riga"
   Else 
     .Text = "Testo"
   Endif 
 End With 

End