挑战高手(二）

dabster

我作一个组合框，数据来源于表，现有一个三键鼠标，我想轮转中间键，使组合框内记录由小到大移动，哦哦或者鼠标双击也可[em07]

高手回答（一）
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&ID=15975

[此贴子已经被作者于2004-3-26 20:03:14编辑过]

cg1

这种问题不用高手吧？

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    If Me.ActiveControl.Name = "combo2" Then
        If Count > 0 Then
            Me.ActiveControl.Text = Me.ActiveControl.Text - 1
        Else
            Me.ActiveControl.Text = Me.ActiveControl.Text + 1
        End If
    End If
End Sub