Codejock Developer Community : How to SetFocus to a ComboBox?

How to SetFocus to a ComboBox? : Thank you, this will work. :-) ...

Tue, 15 Feb 2011 03:54:49 +0000

Author: Jebo
Subject: 17845
Posted: 15 February 2011 at 3:54am

Thank you, this will work. :-)

How to SetFocus to a ComboBox? : btw maybe such code will work...

Tue, 15 Feb 2011 03:38:31 +0000

Author: Oleg
Subject: 17845
Posted: 15 February 2011 at 3:38am

btw maybe such code will work for you. there is SetPopupToolBar method that make context menu looks like minibar:

Option Explicit

Public oCmdBar As CommandBar

Private Declare Function apiSetFocus Lib "user32.dll" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private Declare Function apiGetFocus Lib "user32.dll" Alias "GetFocus" () As Long

Private mo_MiniToolbar As XtremeCommandBars.MiniToolBar

Private mo_Combo As XtremeCommandBars.CommandBarComboBox

Private Sub Command1_Click()

oCmdBar.ShowPopup , 5000, 5000

End Sub

Private Sub CommandBars1_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)

If Control Is mo_Combo Then

If Control.Visible Then

If apiGetFocus <> mo_Combo.EditHandle Then

Debug.Print "Setting Focus " & Timer

'apiSetFocus mo_Combo.EditHandle

mo_Combo.Execute ' Set focus for Combo

End If

End Sub

Private Sub Form_Load()

With CommandBars1

Set oCmdBar = .ContextMenus.Add(1, "Test1")

With oCmdBar

Set mo_Combo = .Controls.Add(xtpControlComboBox, 100, "Test")

With mo_Combo

.DropDownListStyle = True

End With

oCmdBar.Controls.Add xtpControlButton, 1, "Test1"

oCmdBar.SetPopupToolBar True

oCmdBar.Width = 400

End With

End Sub

How to SetFocus to a ComboBox? : I have tried to open a second...

Wed, 09 Feb 2011 16:21:29 +0000

Author: Jebo
Subject: 17845
Posted: 09 February 2011 at 4:21pm

I have tried to open a second MiniToolbar without a part of a popup. But now I have another problem - it is not possible to set it on a individual screen-position.

mo_MiniToolbar.PopupMiniToolBar , 1500,1500 <<< ist NOT POSSBILE!

...I think it's because the MiniToolbar fades if it is not in the near of the mouse pointer. Is there any way to show a MiniToolBar on a individual screen-position?

How to SetFocus to a ComboBox? : > If so, you will probably...

Wed, 09 Feb 2011 15:15:15 +0000

Author: Jebo
Subject: 17845
Posted: 09 February 2011 at 3:15pm

> If so, you will probably have to open a support ticket for this.
Yes, already done now... Hope, they can help me.

How to SetFocus to a ComboBox? : I think the problem is that the...

Wed, 09 Feb 2011 14:39:38 +0000

Author: jpbro
Subject: 17845
Posted: 09 February 2011 at 2:39pm

I think the problem is that the oCmdBar part of the popup is eating the keyboard presses to see if it should execute one of the menu items. In your example, if you type T it will exexute the Test1 control. Any other keypress will do nothing (since there are no matching captions to execute.

What exactly do you need to accomplish? You want a ComboBox with focus, and a menu beneath it that doesn't accept accelerator key presses (that is, all keypresses go to the combobox, but the menu below remains visible)? If so, you will probably have to open a support ticket for this.

How to SetFocus to a ComboBox? : Thank you, but it still not work...

Wed, 09 Feb 2011 13:13:14 +0000

Author: Jebo
Subject: 17845
Posted: 09 February 2011 at 1:13pm

Thank you, but it still not work with Mini-Toolbars!

Here is my complete code. So you can see it doesn't work!

Option Explicit

Public oCmdBar As CommandBar

Private Declare Function apiSetFocus Lib "user32.dll" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function apiGetFocus Lib "user32.dll" Alias "GetFocus" () As Long

Private mo_MiniToolbar As XtremeCommandBars.MiniToolBar
Private mo_Combo As XtremeCommandBars.CommandBarComboBox

Private Sub Command1_Click()
    mo_MiniToolbar.PopupContextMenu oCmdBar
End Sub

Private Sub CommandBars1_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)
   If Control Is mo_Combo Then
      If Control.Visible Then
         If apiGetFocus <> mo_Combo.EditHandle Then
            Debug.Print "Setting Focus " & Timer
            apiSetFocus mo_Combo.EditHandle
         End If
      End If
   End If
End Sub

Private Sub Form_Load()
With CommandBars1
    Set oCmdBar = .ContextMenus.Add(1, "Test1")
    .ContextMenus.AddPopup mo_MiniToolbar
    Set mo_MiniToolbar = .AddMiniToolBar("Test2")

    With mo_MiniToolbar
       Set mo_Combo = .Controls.Add(xtpControlComboBox, 100, "Test")
       With mo_Combo
          .DropDownListStyle = True
       End With
    End With
End With

oCmdBar.Controls.Add xtpControlButton, 1, "Test1"
End Sub

How to SetFocus to a ComboBox? : This appears to work okay, but...

Tue, 08 Feb 2011 22:35:46 +0000

Author: jpbro
Subject: 17845
Posted: 08 February 2011 at 10:35pm

This appears to work okay, but you lose the fade in of the MiniToolbar:


Option Explicit

Private Declare Function apiSetFocus Lib "user32.dll" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function apiGetFocus Lib "user32.dll" Alias "GetFocus" () As Long

Private mo_MiniToolbar As XtremeCommandBars.MiniToolBar
Private mo_Combo As XtremeCommandBars.CommandBarComboBox

Private Sub Command1_Click()
   mo_MiniToolbar.PopupMiniToolBar
End Sub

Private Sub CommandBars1_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)
   If Control Is mo_Combo Then
      If Control.Visible Then
         If apiGetFocus <> mo_Combo.EditHandle Then
            Debug.Print "Setting Focus " & Timer
            apiSetFocus mo_Combo.EditHandle
         End If
      End If
   End If
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      Set mo_MiniToolbar = .AddMiniToolBar("Test")
      With mo_MiniToolbar
         Set mo_Combo = .Controls.Add(xtpControlComboBox, 100, "Test")
         With mo_Combo
            .DropDownListStyle = True
         End With
      End With
   End With
End Sub

How to SetFocus to a ComboBox? : I didn't try it with the...

Tue, 08 Feb 2011 22:24:30 +0000

Author: jpbro
Subject: 17845
Posted: 08 February 2011 at 10:24pm

I didn't try it with the Minibar - maybe that's the problem? I will see if I can find a workaround and get back to you.

How to SetFocus to a ComboBox? : Thanks, but I had tested already...

Tue, 08 Feb 2011 21:29:09 +0000

Author: Jebo
Subject: 17845
Posted: 08 February 2011 at 9:29pm

Thanks, but I had tested already with SetFocus-API. But it doesn't work!

The Cursor is blinking in the ComboBox. But if I press any key, nothing happens!

BTW: I use an commandBar-ContextMenu AND a MiniBar. The ComboBox is a part of the MiniBar!!!

How to SetFocus to a ComboBox? : Looks like the ComboBox isn't...

Tue, 08 Feb 2011 16:22:47 +0000

Author: jpbro
Subject: 17845
Posted: 08 February 2011 at 4:22pm

Looks like the ComboBox isn't properly forwarding the focus to the edit window of the control (notice if you start typing, it works but misses the first character that you typed).

It looks like using the SetFocus API on the edit handle works though:


Option Explicit

Private Declare Function apiSetFocus Lib "user32.dll" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private mo_Combo As XtremeCommandBars.CommandBarComboBox

Private Sub Command1_Click()
   apiSetFocus mo_Combo.EditHandle
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      With .AddMenuBar("Test")
         Set mo_Combo = .Controls.Add(xtpControlComboBox, 100, "Test")
         With mo_Combo
            mo_Combo.DropDownListStyle = True
         End With
      End With
   End With
End Sub