caracter ascii en un textbox - VB-MUNDO

Zion_Tm · #1 (**permalink**) 28-02-2007, 03:36:00

Buenas noches, esta vez tengo una consulta simple, que variable se utiliza para caracteres ascii ??

es que quiero mostrar caracteres ASCII en un cuadro de texto al presionar un boton

Código:

Private Sub Command1_Click()
Text1.Text = Ã©ç¶

End Sub

gracias por la respuesta :smt026

csic20 · #2 (**permalink**) 28-02-2007, 05:08:12

Aqui dos funciones que te puede servir

Function AscEncode(str)
Dim i
Dim sAscii

sAscii = ""
For i = 1 To Len(str)
sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1))))
Next

AscEncode = sAscii
End Function

Function ChrEncode(str)
Dim i
Dim sStr

sStr = ""
For i = 1 To Len(str) Step 2
sStr = sStr + Chr(CLng("&H" & Mid(str, i, 2)))
Next

ChrEncode = sStr
End Function

Private Sub Text2_Change()
Text3 = AscEncode(Text2.Text)
End Sub

Saludos