Please Help: Userform acting like I'm double clicking

[Peter h]

I have a userform with a listbox. When a selection is made from this listbox, controls become visible depending on the selection made, and this listbox becomes invisible. When I make 1 certain selection the alignment of another listbox that becomes visible is right where the original listbox is, so when I make that selection it automatically selects something in the second listbox when it becomes visible. I know it's not the mouse, because this is happening on different computers. I've also tried putting an Application.Wait for 2 seconds on the listbox1 click event, and it still makes the selection in the second listbox. My solution to this was just move the second listbox so that it is no longer aligned with the original listbox. Does anyone have any ideas why this would be happening?

 

[Yongle]

Please post the userform code - identify the bit that is causing the problem
In your reply, click on # icon (above post window) first and then and paste code BETWEEN the code tags (they appear automatically after clicking on the icon)

thanks

 

[Jaafar Tribak]

How about something like this :

    Dim t As Single     
    ListBox1.Visible = False
    With ListBox2
        .Locked = True
        .Visible = False
        t = Timer
        Do
            DoEvents
        Loop Until Timer - t >= 0.1
        .Visible = True
        .Locked = False
    End With

 

[Jaafar Tribak]

Or for a more robust and screen-flicker free code use this :

Option Explicit

[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=If"]#If[/URL]  VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Private Declare PtrSafe Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As IAccessible, phwnd As LongPtr) As Long
    Private hwnd As LongPtr
[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else"]#Else[/URL] 
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As IAccessible, phwnd As Long) As Long
    Private hwnd As Long
[URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End"]#End[/URL]  If

Private Const WM_SETREDRAW = &HB

Private Sub ListBox2_Change()
    Dim sngTop As Single, sngLeft As Single
    Dim sngTimer As Single

    On Error GoTo Xit:

    sngTop = Me.ListBox2.Top
    sngLeft = Me.ListBox2.Left
    ListBox1.Top = sngTop
    ListBox1.Left = sngLeft
 
    WindowFromAccessibleObject Me, hwnd

    SendMessage hwnd, ByVal WM_SETREDRAW, ByVal 0&, 0&
     
    ListBox2.Visible = False
    With ListBox1
        .Locked = True
        .Visible = False
        sngTimer = Timer
        Do
            DoEvents
        Loop Until Timer - sngTimer >= 0.1
        .Visible = True
        .Locked = False
    End With
Xit:
    SendMessage hwnd, ByVal WM_SETREDRAW, ByVal 1&, 0&
    Me.Repaint
End Sub

Where ListBox2 is the listbox that becomes invisible and ListBox1 the one that appears right where the original Listbox2 was.