Adattare la dimensione di un Oggetto grafico al testo contenuto
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. [nota 1]
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
Note
[1] Vedere anche questa pagina: Ridurre in un Oggetto grafico o di testo la dimensione del font se il testo ha una lunghezza superiore a quella dell'Oggetto