|
|||||||||
|
|||||||||
|
|||||||||
 |
|||||||||
| |
||
|
|
|
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
| |
||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
ASP Free Forums Sponsor:
|
|
Generate data entry and reporting .NET Web apps in minutes, straight from your database. Read our FREE whitepaper “Build Web 2.0 Applications Without Hand-Coding” Download now! |
|
#1
December 30th, 2003, 07:50 AM
|
|||
|
|||
|
VB textbox validation
Hey all. I'm very new to VB and i need some help on validation.
I have 2 text boxes (txtLeft & txtTop) to change the loacation of a picture (imgMan), when a button (cmdLocate) is pressed I want the picture to appear where it's supposed to. I need the left value of the pic to be the same as whats in the left text box and same with the top values. That's all fine. What I need the help in is the text validation. How would i make the text box so it only accepts numbers between 0 & 7800 (for the left box) and 0 & 7200 (for the top box). It has to reject any other characters except numeric ones. Cheers, that probebly didn't make sense at all  Ben.
|
|
#2
December 30th, 2003, 07:51 AM
|
|||
|
|||
|
This is what I have so far....
Private Sub cmdLocate_Click() If Not IsNumeric(txtLeft.Text) Then MsgBox "The value you have entered is not valid. Please enter a different value" _ , vbOKOnly, "Error" txtLeft.Text = "" End If If Not IsNumeric(txtTop.Text) Then MsgBox "The value you have entered is not valid. Please enter a different value" _ , vbOKOnly, "Error" txtTop.Text = "" End If imgMan.Left = txtLeft.Text imgMan.Top = txtTop.Text imgMan.Visible = True End Sub Thats just making it numeric. I still need to know how to limit it to numbers between 0 and 7200/7800
|
|
#3
December 30th, 2003, 08:02 AM
|
||||
|
||||
|
try something like this
Code:
Private Sub cmdLocate_Click()
Dim LeftPos As Integer
Dim TopPos As Integer
If(IsNumeric(txtLeft.Text)) Then
If(Val(txtLeft.Text) >= 0 AND Val(txtLeft.Text) <= 7800) Then
LeftPos = Val(txtLeft.Text)
Else
MsgBox "Invalid number"
End If
Else
MsgBox "Value Must be numeric"
End If
If(IsNumeric(txtTop.Text)) Then
If(Val(txtTop.Text) >= 0 AND Val(txtTop.Text) <= 7200) Then
TopPos = Val(txtTop.Text)
Else
MsgBox "Invalid Number"
End If
Else
MsgBox "Value must be numeric"
End If
imgMan.Left = LeftPos
imgMan.Top = TopPos
imgMan.Visible = True
End Sub
|
|
#4
December 30th, 2003, 08:06 AM
|
|||
|
|||
|
PERFECT!!!
Thankyou SO much! You are t3h 1337 M4570R! 
|
|
| Viewing: ASP Free Forums > Programming > Visual Basic Programming > VB textbox validation |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
|
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
