PRB: GotFocus Event Fails If MsgBox Invoked in LostFocus Event (85856)

RESOLUTION

To work around the problem, set a flag in the control's LostFocus event procedure. Then call a generic test routine from the next control's GotFocus event, as demonstrated in the following example:

1. Start a new project in Visual Basic. Form1 is created by default.
2. Create the following controls and properties for Form1:

      Control     Name     Property Setting
      ----------------------------------
      Text Box    Text1    TabIndex = 0
      Text Box    Text2    TabIndex = 1
      Text Box    Text3    TabIndex = 2
   					

3. Add the following code to the general Declarations section of Form1:

      Dim LastControl As Control
      Dim CurrControl As Control
   
      Sub CheckLostFocus ()
   
        If (LastControl.Tag = "True") Then
           X%=MsgBox("Is the value OK ?", 36, LastControl + " has Lost Focus")
   
           If X% = 6 Then    'if YES
              LastControl.Tag = ""
              CurrControl.SetFocus
           Else
              LastControl.SetFocus
           End If
        End If
   
      End Sub
   
      Sub Form_Load ()
         Set LastControl = Text1     'set to the first editable control
      End Sub
   					

   The instructions 4 through 5 apply to EACH of the 3 Text Boxes:
   
   
4. Add the following code to the LostFocus event for EACH Text control:

      Sub Text1_LostFocus ()
         Set LastControl = Text1
      End Sub
   
      Sub Text2_LostFocus ()
         Set LastControl = Text2
      End Sub
   
      Sub Text3_LostFocus ()
         Set LastControl = Text3
      End Sub
   					

5. Add the following code to the GotFocus event of EACH Text control:

      Sub Text1_GotFocus ()
         Set CurrControl = Text1
         CheckLostFocus
      End Sub
   
      Sub Text2_GotFocus ()
         Set CurrControl = Text2
         CheckLostFocus
      End Sub
   
      Sub Text3_GotFocus ()
         Set CurrControl = Text3
         CheckLostFocus
      End Sub
   					

6. Add the following code to the Change event of EACH Text control:

      Sub Text1_Change ()
         Text1.Tag = "True"
      End Sub
   
      Sub Text2_Change ()
         Text2.Tag = "True"
      End Sub
   
      Sub Text3_Change ()
         Text3.Tag = "True"
      End Sub
   					

7. Press the F5 key to run the program. Note that both message boxes should appear as expected when the focus is changed by using the TAB key or by clicking the next text box.