Utilizzo Codici UNICODE(HEX) in Visual Basic

venerdì 20 ottobre 2006 - 11.22

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

talkoman Profilo | Junior Member

59 messaggi | Data Invio: ven 20 ott 2006 - 11:22

Ciao a tutti
se volessi creare un software che mi converte da scrittura normale a questa:

ℓзттз®з ѕт®αηз

come devo fare? per scrivere questa ho utilizzato i simboli in Word. Ma in Visual Basic come faccio?
Grazie
Ciao
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

Slave Profilo | Junior Member

101 messaggi | Data Invio: ven 20 ott 2006 - 12:26

ti cerchi la tabella dei codici ascii e poi fai una cosa del genere....

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = "valore ascii del carattere che vuoi sostituire allo'originale" Then
KeyAscii = 0
SendKeys ("tasto premuto da tastiera")
.....
End If
End Sub

è un po lungo perche dovresti farlo per tutti i caratteri pero dovrebbe funzionare....
Sono solo uno sballato in un mondo di sballati....

talkoman Profilo | Junior Member

59 messaggi | Data Invio: ven 20 ott 2006 - 18:31

Scusa non riesco a capire....mi fai un esempio pratico??

facciamo che voglio sostituire la "L" con questa "ℓ" che ha il seguente codice ASCII:"2113".

Data la seguente lettera in una textbox(txtinput) la voglio sostituita in una label(lblfine).

Incrocio le dita....
Grazie
Ciao
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

Slave Profilo | Junior Member

101 messaggi | Data Invio: sab 21 ott 2006 - 11:45

>Scusa non riesco a capire....mi fai un esempio pratico??
>
>facciamo che voglio sostituire la "L" con questa "ℓ" che ha il
>seguente codice ASCII:"2113".
>
>Data la seguente lettera in una textbox(txtinput) la voglio sostituita
>in una label(lblfine).
>
>Incrocio le dita....
>Grazie
>Ciao
>Luca
>www.catanianuoto2000.it
>luca@catanianuoto2000.it

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 2113 Then
KeyAscii = 0
SendKeys ("{L}")

End If
......
End Sub

allora nel metodo sovraindicato succede che ogni qualvolta tu premerai la lettera L (in qualunque text) il risultato che visualizzerai non sara piu "L" ma "ℓ"

se invece vuoi convertire il testo da una text ad una label scrivi prima il testo nella text,poi (ad esempio premendo un pulsante) lo scansioni lettera per lettera e utilizzi lo stesso metodo di prima....

Sono solo uno sballato in un mondo di sballati....

talkoman Profilo | Junior Member

59 messaggi | Data Invio: dom 22 ott 2006 - 00:48

scusa sarò andicappato....ma se non mi fanno un esempio preciso, non riesco a capiro. allora facciamo che in una textbox(txtinput) inserisco una frase. Premo un pulsante(cmdesegui) e in una label(lblfine) mi converte la frase di prima con invece delle "l", le "ℓ"(2113). mi fai l'esempio pratico??poi per le altre lettere capisco e le cambio io...
Grazie ancora
Ciao
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

Slave Profilo | Junior Member

101 messaggi | Data Invio: mer 25 ott 2006 - 09:39

>scusa sarò andicappato....ma se non mi fanno un esempio preciso,
>non riesco a capiro. allora facciamo che in una textbox(txtinput)
>inserisco una frase. Premo un pulsante(cmdesegui) e in una label(lblfine)
>mi converte la frase di prima con invece delle "l", le "ℓ"(2113).
>mi fai l'esempio pratico??poi per le altre lettere capisco e
>le cambio io...
>Grazie ancora
>Ciao
>Luca

dim stringa as string
stringa=txtinput.text
dim lungstringa as integer
lungstringa=len(stringa)
dim i as integer
dim valore as char 'carattere che leggo dalla stringa
for i =1 to lungstringa
valore = stringa.chars(i)
if valore = "L" then
lblfine.caption="ℓ"
end if
......
next i

puoi fare cosi ad esempio....
Sono solo uno sballato in un mondo di sballati....

talkoman Profilo | Junior Member

59 messaggi | Data Invio: mer 25 ott 2006 - 13:55

>valore = stringa.chars(i)

mi da errore questa parte...sai perchè??
Luca
www.catanianuoto2000.it
luca@catanianuoto2000.it

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !