Solved

Set Focus to Modeless VBA Userform

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

Enroll in May's Course of the Month

May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.

Question has a verified solution.

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

How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …

752 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