Vb net msgbox ошибка

• 
• VBForums
• Visual Basic
• Visual Basic .NET
• MsgBox error

1. Jan 31st, 2005, 02:39 AM

   
   

   #1

   

   Thread Starter

   
   Junior Member
   

   

   ---

   Without this code my program works. With the code I get an error message after each character. It lets me close the error message after each character. Strange. Yet it works in other programs with no problem.

   VB Code
   —————————
   Else

   ‘input box did not match Name
   ‘MsgBox(«Please re-enter a Name»,
   MessageBoxButtons.YesNo, «State Lookup»)
   End If
   ——————————
   End VB Code

   Last edited by terrytemes; Feb 1st, 2005 at 02:27 AM.

   Reason: Resolved

   ---

2. Jan 31st, 2005, 02:46 AM

   
   

   #2

   Re: MsgBox error
   

   Originally Posted by terrytemes

   Without this code my program works. With the code I get an error message after each character. It lets me close the error message after each character. Strange. Yet it works in other programs with no problem.

   VB Code
   —————————
   Else

   ‘input box did not match Name
   ‘MsgBox(«Please re-enter a Name»,
   MessageBoxButtons.YesNo, «State Lookup»)
   End If
   ——————————
   End VB Code

   edit: ohhh, mistake by me.

   gjon already answer it.

   sorry wrong interpretation small problem converting to a big one.

   Last edited by mar_zim; Jan 31st, 2005 at 03:02 AM.

   ---

3. Jan 31st, 2005, 02:57 AM

   
   

   #3

   Re: MsgBox error
   

   Originally Posted by terrytemes

   Without this code my program works. With the code I get an error message after each character. It lets me close the error message after each character. Strange. Yet it works in other programs with no problem.

   VB Code
   —————————
   Else

   ‘input box did not match Name
   ‘MsgBox(«Please re-enter a Name»,
   MessageBoxButtons.YesNo, «State Lookup»)
   End If
   ——————————
   End VB Code

   VB Code:

   MessageBox.Show("Please re-enter a Name", "State Lookup", MessageBoxButtons.YesNo)

   ---

4. Jan 31st, 2005, 03:28 AM

   
   

   #4

   

   Thread Starter

   
   Junior Member
   

   

   ---

   Re: MsgBox error
   

   oddly enough I get the same error. Is the keypress the problem? I have noticed when using the keypress with other programs it seems to create problems.

   ---

5. Jan 31st, 2005, 03:46 AM

   
   

   #5

   Re: MsgBox error
   

   Originally Posted by terrytemes

   oddly enough I get the same error. Is the keypress the problem? I have noticed when using the keypress with other programs it seems to create problems.

   huh? will you pls. post more code for us to see if what cause your problem
   

   ---

6. Jan 31st, 2005, 04:00 AM

   
   

   #6

   

   Thread Starter

   
   Junior Member
   

   

   ---

   Re: MsgBox error
   

   Here is my code

   VB Code__________________
   Private Sub NameTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
   Handles NameTextBox.KeyPress, InitialTextBox.KeyPress

   ‘Do not allow numbers
   If (e.KeyChar < «a» OrElse e.KeyChar > «z») _
   AndAlso (e.KeyChar < «A» OrElse e.KeyChar > «Z») _
   AndAlso e.KeyChar <> ControlChars.Back _
   AndAlso e.KeyChar = «Enter» Then
   e.Handled = True
   End If

   ‘declare variable
   Dim strName As String

   ‘assign values to variables
   strName = UCase(Me.NameTextBox.Text)

   If Me.Name.TextLength = 100Then

   ‘valid Names
   If strName = «Amy» Then
   Me.IntialsLabel.Text = «AMB»
   ElseIf strName = «Debbie» Then
   Me.IntialsLabel.Text = «DBW»

   Else

   ‘input box did not match Employee Name
   MessageBox.Show(«Please re-enter a Name», «Name Lookup», MessageBoxButtons.YesNo)
   End If

   ‘End If
   End Sub
   End Class
   ———————
   end Code

   ---

7. Jan 31st, 2005, 04:26 AM

   
   

   #7

   Re: MsgBox error
   

   I found one error in your code. This line:

   VB Code:

   If Me.Name.TextLength = 100 Then

   Two things:

   1. Me.Name gets the name of the form.
   2. .TextLength isn’t a function associated with Strings. The correct way of doing it would be .Length

   I use Microsoft Visual Basic 2005. (Therefore, most code samples I provide will be based around the .NET Framework v2.0, unless otherwise specified)

   ---

8. Jan 31st, 2005, 04:34 AM

   
   

   #8

   

   Thread Starter

   
   Junior Member
   

   

   ---

   Re: MsgBox error
   

   I get this error message
   ‘Length’ is not a member of ‘system.Windows.Forms.TextBox’

   Even when I comment out

   VB Code
   ———————
   If Me.Name.TextLength = 100 Then
   —————-
   end code

   The MsgBox doesn’t work right. It pops up with each character entered. The Program works with out the MsgBox just fine. Oddly enough.

   Last edited by terrytemes; Jan 31st, 2005 at 04:43 AM.

   ---

9. Jan 31st, 2005, 04:45 AM

   
   

   #9

   Re: MsgBox error
   

   Yeah, that’s exactly right. Length isn’t a member of the TextBox class, rather it’s a member of the String class. Because the Text property is defined as type of String, it contains the Length member, so you would get the length of the text in the textbox by typing this:

   VB Code:

   TextBox1.Text.Length

   I use Microsoft Visual Basic 2005. (Therefore, most code samples I provide will be based around the .NET Framework v2.0, unless otherwise specified)

   ---

10. Jan 31st, 2005, 04:49 AM

    
    

    #10

    Re: MsgBox error
    

    Oh I see what’s wrong.

    Here’s my rewrite:

    VB Code:

    'assign values to variables
    strName = Me.NameTextBox.Text.ToUpper()
    'valid Names
    If strName = "AMY" Then
        Me.IntialsLabel.Text = "AMB"
    ElseIf strName = "DEBBIE" Then
        Me.IntialsLabel.Text = "DBW"
    Else
    'input box did not match Employee Name
        MessageBox.Show("Please re-enter a Name", "Name Lookup", MessageBoxButtons.YesNo)
    End If

    If you’re going to convert all the input to case, make sure that you compare with the same case because Amy and AMY are two different strings.

    I use Microsoft Visual Basic 2005. (Therefore, most code samples I provide will be based around the .NET Framework v2.0, unless otherwise specified)

    ---

11. Jan 31st, 2005, 05:23 AM

    
    

    #11

    

    Thread Starter

    
    Junior Member
    

    

    ---

    Re: MsgBox error
    

    at the moment the

    VB Code
    ————-
    Else

    ‘input box did not match Employee Name
    MessageBox.Show(«Please re-enter a Name», «Name Lookup», MessageBoxButtons.YesNo)
    End If
    ————
    end code

    Seems to be a problem. When I code it without the KeyPress it works.

    VB Code
    ——————
    ‘Do not allow numbers
    If (e.KeyChar < «a» OrElse e.KeyChar > «z») _
    AndAlso (e.KeyChar < «A» OrElse e.KeyChar > «Z») _
    AndAlso e.KeyChar <> ControlChars.Back Then
    e.Handled = True
    ____________________________
    End Code

    I have noticed that Keypress does caues problems with some Code.

    Last edited by terrytemes; Jan 31st, 2005 at 05:35 AM.

    ---

12. Jan 31st, 2005, 06:28 AM

    
    

    #12

    

    
    Member
    

    

    ---

    Re: MsgBox error
    

    i have this code

    VB Code:

    msgbox("error bad username or password", "this programe whil close in 5 sec")
    timer1.enabled = true

    VB Code:

    form1
    timer1.interger = 5000

    VB Code:

    if timer1.interger = 5000 then
    end
    end if

    this is what i use its not the best option sorry but it sothing to hold hackers in you can also add somthing that you wil have 3 times to enter the password and username if not he wil band of the programe and re instal
    

    ---

13. Jan 31st, 2005, 01:03 PM

    
    

    #13

    

    Thread Starter

    
    Junior Member
    

    

    ---

    Re: MsgBox error
    

    Thanks for the infor This might sound dumb. I have two textBoxes that can return error messages. The code is the same. In one you can look up a name in the other you look up intials. One works the other does not. Is one message box conflicting with the other?

    I am a newbie at this . Sorry for all the questions. this is what I trying now.
    VB Code
    ——————
    Private Sub NameForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    MsgBox(«error bad Name or Initials», «this program will close in 5 sec»)
    timer1.enabled = True

    Main()
    timer1.interger = 5000

    If timer1.interger = 5000 Then
    End
    End If
    End Sub
    ———————
    end Code

    I enter Main becasue I am using one form . the timer1 needs to be declared but it seems dim timer1 as interger doesn’t work.

    Last edited by terrytemes; Jan 31st, 2005 at 01:35 PM.

    ---

14. Feb 1st, 2005, 01:22 AM

    
    

    #14

    Re: MsgBox error
    

    Why do you have it in the KeyUp event. Of course the messagebox will appear every time because as you type the name, you will not fulfil the requirements until it’s actually finished.

    Try putting it in the Leave event of the textbox. The leave event fires when the textbox looses control. May be what you’re looking for.

    I use Microsoft Visual Basic 2005. (Therefore, most code samples I provide will be based around the .NET Framework v2.0, unless otherwise specified)

    ---

15. Feb 1st, 2005, 02:27 AM

    
    

    #15

    

    Thread Starter

    
    Junior Member
    

    

    ---

    Re: MsgBox error
    

    Thanks I knew some how the KeyPress was the problem. I just didn’t know why. It did not dawn on me why KeyPress was the problem.

    ---

16. Feb 1st, 2005, 04:51 AM

    
    

    #16

    

    
    Member
    

    

    ---

    Re: MsgBox error
    

    a you have 2 textboxes he ok then i have this script its for passwords and usernames but you can also use for onther

    VB Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text = "killerbeam2" and textbox2 = "rre" Then
                MsgBox("password compleet", "do you realy wand use the script page ?", MsgBoxStyle.YesNo)
            ElseIf TextBox1.Text = "killerbeam3" and textbox2 = "rre" Then
                MsgBox("password compleet", "do you realy wand enter alfra glas windows?", MsgBoxStyle.YesNoCancel)
            ElseIf TextBox1.Text = "killerbeam4" and textbox2 = "rre" Then
                MsgBox("password compleet", "do you realy wand to use the database ?", MsgBoxStyle.YesNo)
            Else
                MsgBox("sorry bad password try it later again !")
                timer1.enabled = true
            End If
        End Sub

    VB Code:

    form1.vb 
    timer1.interger = 5000

    i think er is somthing wrong in the script whit form1 but its the best what i have

    ---

17. Feb 1st, 2005, 05:20 AM

    
    

    #17

    Re: MsgBox error
    

    I should have mentioned this before… the ErrorProvider Control may help you simplify your data entry processes.

    Also, dont use the KeyPress event to display notices… its not user friendly.

    Heres a Inherited TextBox Control I wrote called «RestrictedTextBox’
    To Use:
    Add this to a you project….
    Build it …
    Right click on your Toolbox > Select Add/Remove Items…

    Click Browse…
    Browse to this projects bin directory and select the exe/dll…
    the New control should come up under my user controls.

    VB Code:

    Option Explicit On 
    Public Class RestrictedTextBox
        Inherits TextBox
    #Region " Member Variables "
        Private m_RestrictionValue As eRestrictions = eRestrictions.None
    #End Region
    #Region " Enums "
        Public Enum eRestrictions As Integer
            None = 2 ^ 0
            Letters = 2 ^ 1
            Digits = 2 ^ 2
            ControlCharacters = 2 ^ 3
            Punctuation = 2 ^ 4
        End Enum
    #End Region
    #Region " New Properties "
        Public Property Restrictions() As eRestrictions
            Get
                Return m_RestrictionValue
            End Get
            Set(ByVal Value As eRestrictions)
                m_RestrictionValue = Value
            End Set
        End Property
    #End Region
        Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
            If IsSet(m_RestrictionValue, eRestrictions.Letters) AndAlso _
                    Char.IsLetter(e.KeyChar) Then
                e.Handled = True ' Supress the character
            End If
            If IsSet(m_RestrictionValue, eRestrictions.Digits) AndAlso _
                    Char.IsDigit(e.KeyChar) Then
                e.Handled = True ' Supress the character
            End If
            If IsSet(m_RestrictionValue, eRestrictions.ControlCharacters) AndAlso _
            Char.IsControl(e.KeyChar) Then
                e.Handled = True ' Supress the character
            End If
            If IsSet(m_RestrictionValue, eRestrictions.Punctuation) AndAlso _
            Char.IsPunctuation(e.KeyChar) Then
                e.Handled = True ' Supress the character
            End If
        End Sub
        'Method to check if a flag is set
        Private Shared Function IsSet(ByVal Value As Integer, ByVal Flag As eRestrictions) As Boolean
            Return (Value = (Value Or Flag))
        End Function
    End Class

    Usage the default Restrictions value is None… (its basically a normal textbox)

    VB Code:

    'Usage (the IDE property editor doesnt handle flags so you need to do it like so, if you want to exclude multiple items )
    'If i wanted to exclude Letters And Digits
    RestrictedTextBox1.Restrictions = RestrictedTextBox.eRestrictions.Letters And RestrictedTextBox.eRestrictions.Digits

    Tips:

    • Google is your friend! Search before posting!
    • Name your thread appropriately… «I Need Help» doesn’t cut it!
    • Always post your code!!!! We can’t read your mind!!! (well, at least most of us!)
    • Allways Include the Name and Line of the Exception (if one is occuring!)
    • If it is relevant state the version of Visual Studio/.Net Framwork you are using (2002/2003/2005)

    If you think I was helpful, rate my post

    IRC Contact: Rizon/xous ChakraNET/xous Freenode/xous

    ---

18. Feb 1st, 2005, 05:28 AM

    
    

    #18

    

    
    Member
    

    

    ---

    Re: MsgBox error
    

    use a key in vb

    i have somthing for you not to big and long

    VB Code:

    private sub form1
    Me.KeyPreview = True

    VB Code:

    If e.KeyCode = Keys.F4 Then
                End
            End If

    this a simple script to use a key

    ---

19. Feb 1st, 2005, 05:34 AM

    
    

    #19

    

    
    Member
    

    

    ---

    Re: MsgBox error
    

    or do you wand somthing els ???

    ---

• 
• VBForums
• Visual Basic
• Visual Basic .NET
• MsgBox error

Posting Permissions