Visualizza wikitesto di Mostrare del testo con caratteri ruotati orizzontalmente e verticalmente

E' possibile ottenere un testo con caratteri ruotati orizzontalmente e verticalmente usando alcuni simboli UNICODE richiamati con i codici numerici HTML.
<BR>In particolare va detto che:
* per ottenere le lettere dell'alfabeto maiuscole ruotate si farà uso del tipo di scrittura "Lisu".
* non è possibile ottenere caratteri numerici ruotati.
* non è possibile gestire caratteri con segni diacritici (à, è, é, ì, ò, ù, etc.). Per tali caratteri si dovrà usare la lettera pura seguita dal simbolo dell'accento (es.: <B>e'</b> invece che "è" o "é").
* la codifica numerica in HTML dei simboli UNICODE è accettata dalle seguenti Classi che permettono l'uso del protocollo HTML: <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
 - TextEdit (con la Proprietà ".RichText");
 - TextLabel (con la Proprietà ".Text");
 - InputBox (per il solo 1° parametro "Prompt");
 - Message (per il solo 1° parametro "Message" del Metodo .Info);
 - Balloon (per il 1° parametro "Message" del Metodo .Info);
 - GridView[n, n] (con la Proprietà ".RichText");
 - WebView  (con la Proprietà ".HTML");
 - Paint (con i Metodi ".DrawRichText" e ".RichText").
Per i restanti Controlli si dovrà utilizzare il Metodo ".Chr()" della Classe ''String'' con codice del carattere UNICODE espresso nella normale rappresentazione decimale o esadecimale.


Mostriamo un possibile esempio pratico usando la codifica numerica in HTML:
 Private caratteri As String[] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "h", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", "(", "+", ",", "-", ".", "/", "\\", "<", ">", "=", ")", "?", "!", "'", ";", "&#&#120;A4EF;", "&#&#120;A4ED;", "&#&#120;A4DB;", "&#&#120;A4F7;", "&#&#120;A4F1;", "&#&#120;A4DE;", "&#&#120;A4E8;", "&#&#120;0048;", "&#&#120;0049;", "&#&#120;A4E9;", "&#&#120;A4D8;", "&#&#120;A4F6;", "&#&#120;019C;", "&#&#120;004E;", "&#&#120;004F;", "&#&#120;0500;", "&#&#120;A779;", "&#&#120;A4E4;", "&#&#120;0053;", "&#&#120;A4D5;", "&#&#120;A4F5;", "&#&#120;A4E5;", "&#&#120;004D;", "&#&#120;0058;", "&#&#120;2144;", "&#&#120;005A;", "&#&#120;x0250;", "&#&#120;071;", "&#&#120;0254;", "&#&#120;0070;", "&#&#120;01DD;", "&#&#120;025F;", "&#&#120;0253;", "&#&#120;0265;", "&#&#120;1D09;", "&#&#120;017F;", "&#&#120;029E;", "&#&#120;A781;", "&#&#120;026F;", "&#&#120;0075;", "&#&#120;006F;", "&#&#120;0064;", "&#&#120;0062;", "&#&#120;0279;", "&#&#120;0073;", "&#&#120;0287;", "&#&#120;006E;", "&#&#120;028C;", "&#&#120;028D;", "&#&#120;0078;", "&#&#120;028E;", "&#&#120;007A;", "&#&#120;0020;", "&#&#120;0029;", "&#&#120;002B;", "&#&#120;0027;", "&#&#120;002D;", "&#&#120;16EB;", "&#&#120;005C;", "&#&#120;002F;", "&#&#120;003E;", "&#&#120;003C;", "&#&#120;003D;", "&#&#120;0028;", "&#&#120;00BF;", "&#&#120;00A1;", "&#&#120;060C;", "&#&#120;061B;"]
 
 
 Public Sub Form_Open()
 
  TextEdit1.Text = "www.gambas-it.org e' la Comunita' dei programmatori Gambas!"
 
 End
 
 
 Public Sub Button1_Click()
 
  Dim s As String
 
  For c As Short = (TextEdit1.Text.Len - 1) To 0 Step -1
    s &= caratteri[caratteri.Find(TextEdit1.Text[c, 1]) + 68]
  Next 
  
  TextEdit2.RichText = s
 
 End



=Note=
[1] Vedere al riguardo la seguente pagina della Wiki: [[Oggetti grafici e di testo che supportano il codice HTML]]