Solved

GotFocus

Posted on 2000-02-16
11
282 Views
Last Modified: 2010-05-02
I couldn't get GotFocus() to work, so I tried going to the extreme and put the following code on my main form:

Private Sub Form_GotFocus()
 End
End Sub

However, the program never ends regardless of whether I load another form and switch back, or switch to another program.

Any ideas?
0
Comment
Question by:aerelorn
  • 4
  • 2
  • 2
  • +3
11 Comments
 
LVL 22

Expert Comment

by:ture
ID: 2528897
aerelorn,

The form doesn't get focus if there are objects on it that can get the focus.

If you have a simple form with nothing at all on it and show that form, the event procedure will run.

Ture Magnusson
Karlstad, Sweden
0
 
LVL 32

Expert Comment

by:Erick37
ID: 2528938
From Help
"A form receives the focus only when all visible controls are disabled."

Therefore the form will not get this event as long as there are any controls on the form capable of getting the focus.
0
 
LVL 22

Expert Comment

by:ture
ID: 2528945
:o)
0
Does Powershell have you tied up in knots?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

 
LVL 32

Accepted Solution

by:
Erick37 earned 50 total points
ID: 2528946
You can subclass the form to see when it gets the focus:

"HOWTO: Determine When Your Application Gains or Loses Focus"

http://support.microsoft.com/support/kb/articles/Q186/9/08.ASP
0
 
LVL 32

Expert Comment

by:Erick37
ID: 2528950
:^)
0
 
LVL 6

Expert Comment

by:Marine
ID: 2529183
One more thing to be pointed out , never use END within your application. END terminates the program without firing TERMINATE EVENT what this means is that the memory doesn't get released cauing memory leack. Always either unload them or find anohter way to release the resources.
0
 

Expert Comment

by:TheEmpire
ID: 2530115
Use a picture box and set its size & properties to match your form, then use the gotfocus event as you wish. Also you may want to set its tab index to 0.
0
 
LVL 32

Expert Comment

by:Erick37
ID: 2531912
Still, the last control with focus will only receive the GotFocus event.  If there is a textbox with focus on the picturebox, when reactivating the form, Text1_GotFocus is fired.
0
 
LVL 4

Expert Comment

by:tmack
ID: 2539294
Couldnt you use the form_activate event to run code when the form is first activated and in a sense have the 'focus'?? Just a thought...

T
0
 

Expert Comment

by:lhquah
ID: 2549472
use Form_activate event instead of form_gotfocus to fire the end command
0
 
LVL 4

Expert Comment

by:tmack
ID: 2552665
uhhh....is there an echo in here?
0

Featured Post

Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question