-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: PavanajaMVP
Message 6 in Discussion
I dont know what is the problem in Select Case statement. When I changed it into If
.... Then, it worked. Here is the code- Dim sinp As String
Private Sub Form_Load()
sinp = ""
End Sub Private Sub TextBox2_KeyUp(KeyCode As MSForms.ReturnInteger, Shift As
Integer) Dim ch As String
Dim i As Integer
i = KeyCode
If i = vbKeyR Then 'r
ch = ChrW(&HCC0) 'ii matra
End If
If i = 68 Then 'd
ch = ChrW(&HCCD) 'halant
End If
If i = 75 Then 'k
ch = ChrW(&HC95) 'ka
End If
If i = 86 Then 'v
ch = ChrW(&HCA8) 'na
End If
If i = 219 Then '[
ch = ChrW(&HCA1) 'DDA
End If
sinp = sinp & ch
TextBox2.Text = sinp
End Sub
I am yet to test this on Win 98. Rgds, Pavanaja
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
