Differenze tra le versioni di "Testo verticale"

Da Gambas-it.org - Wikipedia.
Riga 5: Riga 5:
 
Con le <B>TextLabel</b> useremo il codice HTML:
 
Con le <B>TextLabel</b> useremo il codice HTML:
  
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
   TextLabel1.Text = "T&#060;BR>e&#060;BR>s&#060;BR>t&#060;BR>o&#060;BR>&#060;BR>v&#060;BR>e&#060;BR>r&#060;BR>t&#060;BR>i&#060;BR>c&#060;BR>a&#060;BR>l&#060;BR>e"
 
   TextLabel1.Text = "T&#060;BR>e&#060;BR>s&#060;BR>t&#060;BR>o&#060;BR>&#060;BR>v&#060;BR>e&#060;BR>r&#060;BR>t&#060;BR>i&#060;BR>c&#060;BR>a&#060;BR>l&#060;BR>e"
 
   
 
   
  '''End'''
+
  End
  
  
  
Invece con le semplici <B>Label</b> possiamo usare il carattere ''escape''  <FONT Color=#B22222>\n</font> :
+
Invece con le semplici <B>Label</b> possiamo usare il carattere ''escape''  <FONT Color=red>\n</font> :
  
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
   Label1.Text = "T\ne\ns\nt\no\n\nv\ne\nr\nt\ni\nc\na\nl\ne"
 
   Label1.Text = "T\ne\ns\nt\no\n\nv\ne\nr\nt\ni\nc\na\nl\ne"
 
   
 
   
  '''End'''
+
  End
  
  
...oppure <FONT Color=#B22222>''Chr(10)''</font>. Vediamo una soluzione mista:
+
...oppure <FONT Color=red>''Chr(10)''</font>. Vediamo una soluzione mista:
  
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
   Label1.Text = "T" & Chr(10) & "e\ns" & Chr(10) & "t\no" & Chr(10) & "\nv\ne" & Chr(10) & "r\nt" & Chr(10) & "i\nc\na" & Chr(10) & "l\ne"
 
   Label1.Text = "T" & Chr(10) & "e\ns" & Chr(10) & "t\no" & Chr(10) & "\nv\ne" & Chr(10) & "r\nt" & Chr(10) & "i\nc\na" & Chr(10) & "l\ne"
 
   
 
   
  '''End'''
+
  End
  
  

Versione delle 15:50, 29 giu 2024

Vediamo come ottenere una scritta disposta verticalmente mediante oggetti di testo come Label e TextLabel, aventi larghezze di qualsiasi dimensione, e mediante codice.


Con le TextLabel useremo il codice HTML:

Public Sub Button1_Click()

  TextLabel1.Text = "T<BR>e<BR>s<BR>t<BR>o<BR><BR>v<BR>e<BR>r<BR>t<BR>i<BR>c<BR>a<BR>l<BR>e"

End


Invece con le semplici Label possiamo usare il carattere escape \n :

Public Sub Button1_Click()

  Label1.Text = "T\ne\ns\nt\no\n\nv\ne\nr\nt\ni\nc\na\nl\ne"

End


...oppure Chr(10). Vediamo una soluzione mista:

Public Sub Button1_Click()

  Label1.Text = "T" & Chr(10) & "e\ns" & Chr(10) & "t\no" & Chr(10) & "\nv\ne" & Chr(10) & "r\nt" & Chr(10) & "i\nc\na" & Chr(10) & "l\ne"

End


In tutti e tre i casi avremo questo risultato:
T
e
s
t
o

v
e
r
t
i
c
a
l
e