Generates ASCII Value for every known character to a textbox. Good for developement using character…and stuff.
NOTE: PEOPLE WHO DOWNLOAD AND RAN THE ZIPPED VERSION OF THIS CODE MAY HAVE A VIRUS ON THEIR SYSTEM CALLED WIN95.CIH. YOU CAN LOOK IT UP AT NORMAN.COM. IF YOU ARE ONE OF THESE PEOPLE PLEASE DELETE THE FILE AND RUN A SYSTEM CHECK WITH A VIRUS SCANNER. SORRY FOR THE INCONVENIENCE.
Original Author: Jared Collums
Code
Function ASCIItoList(ListBox As Object)
Dim Character As Long
For Character& = 33 To 223
ListBox.AddItem Chr(Character&)
Next Character&
End Function
Private Sub Form_Load()
ASCIItoList List1
End Sub
Private Sub List1_Click()
Text1.Text = "Chr(" & List1.ListIndex + 33 & ")"
End Sub