Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Set Focus to Modeless VBA Userform

Posted on 2007-11-24
3
Medium Priority
?
4,325 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Suggested Courses

688 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