Simple question

[Highland]

Ok if i have a text box and only want the input of number and letter, what do i do to set it to that?

[crptcblade]

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not(LCase$(Chr$(KeyAscii)) Like "[a-z]") And Not(Chr$(KeyAscii) Like "[0-9]") Then
        KeyAscii = 0
    End If
End Sub

[nishantp]

What if you're evil like me and you like pasting in wierd symbols just to screw up programs?

[jim mcnamara]

In the Keypress event check the ASCII code. I'm not sure what you want to do but this gives you an idea:

Private Sub Text1_KeyPress(KeyAscii As Integer)
 If (KeyAscii > 47 And KeyAscii < 58) Or _
    (KeyAscii > 64 And KeyAscii < 91) Or _
    (KeyAscii > 96 And Keascii < 123) Then
      ' ascii code is okay
    Exit Sub
 End If
 MsgBox "You entered an invalid character", vbOKOnly
 
 
End Sub

[crptcblade]

Originally posted by nishantp
What if you're evil like me and you like pasting in wierd symbols just to screw up programs?

Then consider yourself amongst the hacker elite.

[Highland]

Hmm that guys, but i used crptcblade code, and it work, only is i can't backspace anything.

[crptcblade]

Just add the backspace condition in

If Not(LCase$(Chr$(KeyAscii)) Like "[a-z]") And Not(Chr$(KeyAscii) Like "[0-9]")[b] And (KeyAscii <> vbKeyBack)[/b] Then

[Highland]

Ok thanks, also I have a splah screen, how do i make that start up first?

[Bruce Fox]

Private Sub [SpashScreen]_Load() 
    'Start timer. 
    Timer1.Interval = 2000    ‘2 Seconds
End Sub 
 
Private Sub Timer1_Timer() 
    'Disable the timer and show the frmMain form
    Timer1.Enabled = False 
    frmMain.Show 
    Unload Me 
End Sub 
 
Private Sub [SplashScreen]_dblClick() 
    ‘Gives the user a method to close off the SpashScreen
    frmMain.Show 
    Unload Me 
End Sub

[BuggyProgrammer]

or if it isnt because you want to do background stuff while it is loading jst go to Project>(project name) Properties> and choose startup object be your splash screen form.

[Bruce Fox]

Originally posted by nishantp
What if you're evil like me and you like pasting in wierd symbols just to screw up programs?

Well then............. u could do this:

Option Explicit
 
Private Sub Text1_Validate(Cancel As Boolean)
   Dim sBuff As String
   Dim s As String
   Dim i As Integer
 
   For i = 1 To Len(Text1.Text)
      s = Mid$(Text1.Text, i, 1)
      If s Like "[a-z]" Or s Like "[A-Z]" Or s Like "[0-9]" Then sBuff = sBuff & s
   Next
 
   Text1.Text = sBuff 'Or
   'myVariable = sBuff
 
End Sub

To trap evil, weird syboled people.......