04-08-2006, 06:09 PM
Since ComboBoxes does not have MouseMove property, use a TextBox Over the ComboBox. Name the ComboBox as "cmbCombo" and the TextBox as "txtBox" and w/ this code it should work:
When the mouse is over the TextBox, this will get invisible and you will see the ComboBox, and when the mouse is over the form or any other object(easy to implement) it will become visible again but the text will change with the combo box.
Code:
Private Sub cmbCombo_Click()
txtBox.Text = cmbCombo.List(cmbCombo.ListIndex)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtBox.Visible = True
End Sub
Private Sub txtBox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtBox.Visible = False
End Sub
When the mouse is over the TextBox, this will get invisible and you will see the ComboBox, and when the mouse is over the form or any other object(easy to implement) it will become visible again but the text will change with the combo box.