Popup Frame

[barianto]

Hi,

I was trying to make an popup frame, after made some post here (a month ago) i got some solution by user in vbforums (joacim andersson). But then i left the method and using another method. Now i want to using it back, but i realize something is not working. Which is when i click combo dropdown arrow once, an then click it once again, the message box will execute twice or more depend on many time i click combo dropdown arrow.

Here i attached vb project to make thing much more clear .

Please anyone help...

[barianto]

No luck today for me hah

Well, it's alright. Anyone please just see attachment and click on "combo dropdown arrow" for couple of time, hope you will get what i mean.

Bye for today

[Andrew G]

Try this

Private Sub Combo1_DropDown()
 
Static FrameShow As Boolean
 
If FrameShow Then Exit Sub
FrameShow = True
    Call HookMouse(Me.hWnd, Frame1.hWnd)
    Frame1.Move Combo1.Left, Combo1.Top + Combo1.Height + Screen.TwipsPerPixelY
    Do While Frame1.Visible
        Call Sleep(1)
        DoEvents
    Loop
    FrameShow = False
End Sub

[barianto]

Hi Andrew,

It work on the sample i attached, but let me merge the code on my project first before i marked this thread as resolved .

Any other suggestion are welcome.

Thanks Andrew.

Edited:

In my project i have more tham one combo button like that. And using your solution problem arise when i click first combo button (popup combo1 frame appear), then i click second combo button (popup combo2 frame appear) and then click first combo button. So otherwise.

please help.

[barianto]

Bump...

Anyone?

[tward]

All I did was copy the frame you currently have, paste it pack in, then changes all the Frame1 stuff in Combo1_DropDown to Frame1(0) and all the Frame1 stuff in Combo2_DropDown to Frame1(1).

Is that what you meant?

[tward]

Just in case you don't know what I mean, I attached the changes.

[barianto]

Hi tward,

Thnks for reply. But no tward, that's not what i mean.
Your method produce the same effect that i want to get rid off.

Try to change

debug.print "exit" ---> msgbox "exit"

And you will got the picture.

Thank's