Test Foro de elhacker.net SMF 2.1

Hola aqui veremos como obtener la lista de caracteres:

Agregamos:

1 Textbox:

-Multiline: True
-ScrollsBar: Vertical

Y agregamos este codigo:


'Programado By -Freeze- 01/08/2007
Private Sub Form_Load()
For c = 1 To 255 Step 1
Text1.Text = Text1.Text & " " & Chr(c)
Next c
End Sub



Tambien podemos agregar un ListBox y colocar este code:


'Programado By -Freeze- 01/08/2007
'L = Listbox
Private Sub Form_Load()
For c = 1 To 255 Step 1
L.AddItem Chr(c)
Next c
End Sub


Y listo...

Salu2..!! 8) 8) :o :o :P :)