VB textbox validation

ASP Free Forums Sponsor:

December 30th, 2003, 07:50 AM

The Slayer

Registered User

Join Date: Dec 2003

Location: Sheffield, UK

Posts: 7

Time spent in forums: < 1 sec
Reputation Power: 0

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.

December 30th, 2003, 07:51 AM

The Slayer

Registered User

Join Date: Dec 2003

Location: Sheffield, UK

Posts: 7

Time spent in forums: < 1 sec
Reputation Power: 0

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

December 30th, 2003, 08:02 AM

Memnoch

Unholy Moderator

ASP Free God 15th Plane (12000 - 12499 posts)

Join Date: Oct 2003

Location: In hell, where did you think?

Posts: 12,024

Time spent in forums: 3 Weeks 6 Days 12 h 21 m 9 sec
Reputation Power: 628

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

December 30th, 2003, 08:06 AM

The Slayer

Registered User

Join Date: Dec 2003

Location: Sheffield, UK

Posts: 7

Time spent in forums: < 1 sec
Reputation Power: 0

PERFECT!!!

Thankyou SO much! You are t3h 1337 M4570R!

Viewing: ASP Free Forums > Programming > Visual Basic Programming > VB textbox validation

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Create the Optimal Architecture for your Critical Applications
Warburton's the largest independently owned bakery in the UK faced a number of difficult challenges in providing the most robust yet efficient IT infrastructure for their organization's success. IBM's services combined with their xSeries servers created the perfect platform for their SAP environment with sufficient flexibility, and did so in very time effective fashion.

Five Best Practices for Deploying a Successful Service-Oriented Architecture
This white paper describes the benefits you can expect with SOA, and how IBM can help take your business there.

Gartner Magic Quadrant for Application Delivery Controllers
Gartner summarizes its view on Application Delivery Controllers, evaluates strengths and weaknesses of solutions, and provides Magic Quadrant reporting for a quick comparison across all vendors. Learn from Gartner how you can benefit from an all-in-one device like Citrix NetScaler that delivers the highest levels of availability, performance and security.

Knowledge is Power
What you don't know can hurt you, and is likely costing you money and increasing your security risks during an era of scarce resources. This white paper proposes six key strategies that enterprise security managers can use to improve their network defense posture.

Rationalizing the Multi-Tool Environment
The rationalized multi-tool approach is flexible, scalable and cost effective. It provides the necessary input to the IT service management business processes. It preserves prior investments in monitoring tools, empowers technologists to select the best tools with which to do their jobs, and enhances effective response to incidents.

More Free IT White Papers!