?
Solved

Set Focus to Modeless VBA Userform

Posted on 2007-11-24
3
Medium Priority
?
4,464 Views
Last Modified: 2012-05-05
Hi.  Could you please tell me how to set the focus to a modeless VBA userform?  Individual controls have a function named SetFocus(), but userforms do not have this function.
0
Comment
Question by:deatc
  • 2
3 Comments
 
LVL 81

Accepted Solution

by:
zorvek (Kevin Jones) earned 2000 total points
ID: 20343677
You are going to need some extra code to do this. Replace "UserForm1" in the code below with the name of your user form.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
      ByVal lpClassName As String, _
      ByVal lpWindowName As String _
   ) As Long

Private Declare Function SetForegroundWindow Lib "user32" ( _
      ByVal hwnd As Long _
   ) As Long

Public Sub ActivateUserForm()

   SetForegroundWindow DialogHWnd(UserForm1)

End Sub

Public Function DialogHWnd( _
      ByRef WindowObject As Object _
   ) As Long

' Return the hWnd value for the window.

  If TypeName(WindowObject) = "DialogSheet" Then
      Select Case (CDbl(Application.Version))
         Case 7 ' Excel 95
            DialogHWnd = GetWindowFromTitle(WindowObject.DialogFrame.Caption, "bosa_sdm_XL")
         Case 8 ' Excel 97
            DialogHWnd = GetWindowFromTitle(WindowObject.DialogFrame.Caption, "bosa_sdm_XL8")
         Case 9 ' Excel 2000
            DialogHWnd = GetWindowFromTitle(WindowObject.DialogFrame.Caption, "bosa_sdm_XL9")
         Case Else
            Exit Function
     End Select
   Else
      Select Case (CDbl(Application.Version))
         Case 8 ' Excel 97
            DialogHWnd = GetWindowFromTitle(WindowObject.Caption, "ThunderXFrame")
         Case Is >= 9 ' Excel 2000 or later
            DialogHWnd = GetWindowFromTitle(WindowObject.Caption, "ThunderDFrame")
         Case Else
            Exit Function
       End Select
  End If
 
End Function

Public Function GetWindowFromTitle( _
      ByVal WindowTitle As String, _
      Optional ByVal ClassName As String _
   ) As Long
   
' Find the window handle of the window with the class and name provided.

   Dim hwnd As Long
   
   If Len(ClassName) = 0 Then
      hwnd = FindWindow(vbNullString, WindowTitle)
   Else
      hwnd = FindWindow(ClassName, WindowTitle)
   End If
   
   GetWindowFromTitle = hwnd

End Function

Kevin
0
 
LVL 81

Expert Comment

by:zorvek (Kevin Jones)
ID: 20343680
The above assumes you are working in Excel. Is that true?

Kevin
0
 

Author Comment

by:deatc
ID: 20400608
Thanks, Kevin!
0

Featured Post

[Webinar] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

Question has a verified solution.

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

Quickbooks hosting can do wonders to your enterprise but considering the points elaborated in the article which will help you to better analyze the outcomes. So scan your business, its needs and then move to the new world of limitless benefits.
Windows Explorer lets you open cabinet (cab) files like any other folder. In VBA you can easily handle normal files and folders, but opening and indeed creating cabinet files takes a lot more - and that's you'll find here.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…
Suggested Courses

615 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