|
鼠标移动COMBOBOX时就下拉选择。- Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- Me.ComboBox1.DropDown
- End Sub
- Private Sub ComboBox1_GotFocus()
- Dim arr, arrItem
- Me.ComboBox1.Clear
- Me.ComboBox1.ListStyle = fmListStylePlain
- If Len([d12]) Then
- arr = Range([d12], [d12].End(xlToRight))
- For Each arrItem In arr
- ComboBox1.AddItem arrItem
- Next
- ComboBox1.DropDown
- End If
- End Sub
复制代码 |
|