• Home
 · 
• Miscellaneous
 · 
• converting ascii number to its character equivalent

converting ascii number to its character equivalent

converting ascii number to its character equivalent

Rate converting ascii number to its character equivalent

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo erhand

Label1.Caption = Chr(Text1.Text)
Exit Sub
erhand: 'on error erase text written in text1and in label 1

  Text1.Text = Empty
  Label1.Caption = Empty
  End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii 'prevent user from presing wrong keys
Case 48 To 57 ' numbers from 0 to 9
Case Else
KeyAscii = 0
End Select

End Sub