[RESOLVED] SetFocus issue !

[TheBionicOrange]

OK heres the thing.

Form A = Main Form
Form B = Error message

Form A calls Form B modally.

If user presses Button 1 on Form B, I want to set the focus on textbox A on Form A.

Unfortunately, because Form B is called Modally I can't do this.

So I declare a public Boolean in a module and set it to true on the click of the button, thinking I can check the boolean state in the Activate event of Form A.

Spotted the obvious error yet ? Even bothered reading this far ?

The Activate event of Form A isn't called when Form B is closed down, so how do I set my focus ?

I hope this ones easy

[Static]

when code is called to show form B...code should stop at that point untill form B is closed......then continue..

after code to show form b....check the boolean state and set focus

[TheBionicOrange]

Doh !

And the winner of the "Prize idiot" award goes to me !!!!

Thannks Static

[MartinLiss]

It's better practice to use a private property of a form then a global variable. I would add the following code to Form2.

Option Explicit
Private mbPressed As Boolean
 
Private Sub Command1_Click()
 
    mbPressed = True
    
End Sub
 
Private Sub Form_Activate()
 
    mbPressed = False
    
End Sub
 
Public Property Get Button1Pressed() As Boolean
 
    Button1Pressed = mbPressed
    
End Property
 
Public Property Let Button1Pressed(ByVal bTF As Boolean)
 
    mbPressed = bTF
    
End Property

And the code in Form1 would be something like

If Form2.Button1Pressed Then
    Text1.SetFocus
End If

Note that Button1Pressed will maintain its value even if Form2 is unloaded.

[TheBionicOrange]

I never knew they would retain their values even if the form was unloaded !

Well you learn something new every day !

Cheers Martin.

[Static]

Leave it to Marty to get all "Fancy" on us

[MartinLiss]

Originally posted by TheBionicOrange
I never knew they would retain their values even if the form was unloaded !

Well you learn something new every day !

Cheers Martin.

They're like Height, Left or any other property of a form in that respect.