Solved

Set Focus to Modeless VBA Userform

Posted on 2007-11-24
3
4,024 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 500 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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
Outlook Free & Paid Tools
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …

708 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now