Private Sub Form_Load()
For w = 1 To 100
EXCEL_ComboBox1.AddItem w
Next
EXCEL_ComboBox1.Visible = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
EXCEL_ComboBox1.Move X, Y - EXCEL_ComboBox1.Height
EXCEL_ComboBox1.DropDown
End Sub
Last edited by quickbbbb; Jan 19th, 2018 at 07:37 AM.
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case. Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
Re: if there is any third party dropmenu as like excel combobox ?
Well that's not really a menu that's just popping up a combobox where the mouse is. You could do that with a standard VB combobox; make a new form that's just a combobox, on the first form right click, set left and top to where the mouse is, then pop up your combobox form at that location. There's fancier ways but that will get the job done without a bunch of API.
Re: if there is any third party dropmenu as like excel combobox ?
Hi quick,
what's the purpose of a "flying about Combo", that would drive me crazy as a User, well but that's
just me
regards
Chris
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.