Просто используйте ToolStripControlHost
вместе с ToolStripDropDown
, и он будет работать так же, как и выпадающий список ComboBox
.Вам не придется беспокоиться об обработке событий мыши.
Я использовал это раньше:
Private Sub ShowControl(ByVal fromControl As Control, ByVal whichControl As Control)
'\\ whichControl needs MinimumSize set:'
whichControl.MinimumSize = whichControl.Size
Dim toolDrop As New ToolStripDropDown()
Dim toolHost As New ToolStripControlHost(whichControl)
toolHost.Margin = New Padding(0)
toolDrop.Padding = New Padding(0)
toolDrop.Items.Add(toolHost)
toolDrop.Show(Me, New Point(fromControl.Left, fromControl.Bottom))
End Sub
Быстрое демо с элементом управления Button на форме:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
ShowControl(Button1, New MonthCalendar)
End Sub
Чтобы ответить на вопрос в вашем заголовке, я думаю вызовы pinvoke SetCapture и Release Capture используются для обработки функций такого типа.