Visual Basic - Consulta sobre programa ascii

Life is soft - evento anual de software empresarial
 
Vista:

Consulta sobre programa ascii

Publicado por Rommel Ruiz (2 intervenciones) el 21/06/2007 17:56:47
Hice un pequeño programa en visual basic para visualizar el equivalente ascii de un caracter cualquiera, de tal manera que me despliegue un listado del código ascii. El código del programa es el siguiente:

Private Sub cmdVer_Click()
Dim i As Integer
For i = 1 To 255
DoEvents
Me.ListBox1.AddItem& "=" & chr(i)
Next i
Me.ListBox1.SetFocus
End Sub

El problema es que el el cuadro de lista no se muestra la combinación ascii(Alt + )sólo se muestra el listado de sus equivalente de la siguiente manera:
=A
=B
=C
= D...

Quisiera saber dónde está mi error, cómo puedo corregirlo de manera que me muestre la tabla ascii(Con su correspondiente combinación en el teclado). Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta sobre programa ascii

Publicado por Harold V (104 intervenciones) el 21/06/2007 21:33:49
utiliza

asc(i)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta sobre programa ascii

Publicado por Rommel Ruiz (2 intervenciones) el 21/06/2007 21:57:42
Les agradezco su ayuda, pero creo que ya resolví el problema, el programa quedaría de la siguiente forma:
Private Sub cmdVer2_Click()
Dim i As Integer ' Se declara una variable i como entera
For i = 1 To 255 ' Utilizamos un arreglo o una matriz para desplegar la tabla
DoEvents
Me.ListBox1.AddItem& i & "=" & chr(i) ' Se concatena el arreglo con el ListBox y sus equival
Next i
Me.ListBox1.SetFocus ' El cuadro de lista conserva el enfoque
End Sub

El error estaba en que no le había concatenado "i" (&i), es decir el arreglo con el cuadro de lista y demás. Sin embargo, les agradezco su ayuda, voy a probar varias formas o variantes del programa tomando en cuenta sus aportes. Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar