View Single Post
  #3 (permalink)  
Old March 29th, 2008, 02:54 AM
haarishr haarishr is offline
Registered User
 
Join Date: Mar 2008
Location: Eorde, TN, India.
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Option Explicit
Public ascval As String
-------------------------------------------------------
Private Sub txt_String_KeyPress_KeyPress(KeyAscii As Integer)
ascval = ascval & KeyAscii
End Sub
---------------------------------------------------------------
Private Sub txt_String_KeyPress_KeyUp(KeyCode As Integer, Shift As Integer)
txt_String_KeyPress = ascval
End Sub
Reply With Quote