Impostare le dimensioni di un InputBox

Se nel programma Gambas è impostato il componente gb.gui o il componente gb.gtk o il componente gb.gtk3, è possibile modificare le dimensioni della finestra dell'Oggetto InputBox.

Dimensionare la "lunghezza"

Per modificare la "larghezza" (lunghezza) della finestra possiamo utilizzare la funzione Chr(9) .
Esempio:

s = Inputbox("Immetti un valore" & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9))

Maggiore è il numero di funzioni Chr(9) inserite, maggiore sarà la larghezza della finestra dell'oggetto InputBox.

Al posto di tante funzioni "Chr(9)" è possibile utilizzare anche un codice più breve con la funzione: String(nn, Chr(9)):
Esempio:

s = InputBox("Immetti un valore:" & String(10, Chr(9)))

Poiché il risultato della funzione "Chr(9)" corrisponde al codice escape: \t (tabulazione orizzontale ), possiamo utilizzare anche questo codice:

s = InputBox("Immetti un valore:\t\t\t\t\t\t\t\t\t\t")

oppure più brevemente con la funzione "String()":

s = InputBox("Immetti un valore:" & String(10, "\t"))

Dimensionare l' "altezza"

Per modificare l' "altezza" della finestra è possibile utilizzare il comando html "<BR>":

s = InputBox("Immetti un valore:" & String(5, "<BR>"))

Dimensionare sia la lunghezza che l'altezza

Ovviamente, per dimensionare sia la larghezza che l'altezza dell'Oggetto InputBox, utilizzeremo entrambe le modalità sopra esposte:

s = InputBox("Immetti un valore:" & String(10, Chr(9)) & String(5, "<BR>"))

Stratagemma con l'uso del codice HTML

Per impostare la dimensione dell'Oggetto InputBox, potremo utilizzare anche creare con il codice HTML un tabella di una qualunque dimensione all'interno di quell'Oggetto: l'InputBox si adatterà alle dimensioni della tabella. Il testo dell'InputBox potrà essere scritto all'interno della tabella oppure all'esterno.

Questa modalità però è utilizzabile esclusivamente con la libreria grafica QT.

Vediamo una riga essenziale esemplificativa, con la quale sarà dimensionata sia la lunghezza che l'altezza dell'Oggetto InputBox:

InputBox("<TABLE width=400 height=400><TR><TD>Testo interno alla tabella</td></tr></table>Testo esterno alla tabella")