Validating Text Box Data Causes Extra LostFocus Events (96846)

MORE INFORMATION

To work around the problem, you need to handle the intended LostFocus event and ignore those generated as a side-effect of handling invalid data. Using a Dim Shared variable in Visual Basic for Windows or Visual Basic for MS-DOS, you can use the LostFocus event to validate text box data. A Dim Shared variable holding either the TabIndex of the next control to be validated or a flag indicating that any control can be validated next, allows you to ignore unintended LostFocus events in other controls.

The example below demonstrates how to use a Dim Shared variable to validate Text box data in the LostFocus event. The example gives step-by-step instructions for Visual Basic for Windows, but you can use the exact same code and controls in Visual Basic for MS-DOS without modification.

Steps to Create Example

1. Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default.
2. Add two text boxes (Text1 and Text1) to Form1.
3. Add the following code to the General Declarations section of Form1. (In Visual Basic for MS-DOS, add the code to the form-level code.)

      Dim Shared Focus As Integer
   
      Function IsValid (t1 As TextBox) As Integer
         If t1.Text = "" Then
            IsValid = False
         Else              ' add other data restrictions here
            IsValid = True
         End If
      End Function
   
   						

4. Add the following code to the Form_Load event procedure of Form1:

      Sub Form_Load ()
         Focus = -1
      End Sub
   
   						

5. Add the following code to the Text1_LostFocus event procedure:

      Sub Text1_LostFocus ()
         If Not IsValid(Text1) And (Focus = -1 Or Focus = Text1.TabIndex) Then
            MsgBox "Text in Text1 invalid"
            Focus = Text1.TabIndex
            Text1.SetFocus
         Else
             Focus = -1
         End If
      End Sub
   
   						

6. Add the following code to the Text2_LostFocus event procedure:

      Sub Text2_LostFocus ()
         If Not IsValid(Text2) And (Focus = -1 Or Focus = Text2.TabIndex) Then
            MsgBox "Text in Text2 invalid"
            Focus = Text2.TabIndex
            Text2.SetFocus
         Else
            Focus = -1
         End If
      End Sub
   
   						

7. From the Run menu, choose Start (ALT, R, S) to run the program. Text boxes Text1 and Text2 both contain the default text, their Name property.
8. Delete the text in Text1.
9. Press the Tab key to move the focus to Text2. The Text1_LostFocus event detects that there is no text in the text box, displays a message box stating that the text in the Text1 box is invalid, and sets the focus back to the Text1 box.