Office中国论坛/Access中国论坛

标题: 挑战高手(二） [打印本页]

作者: dabster 时间: 2004-3-27 04:02
标题: 挑战高手(二）
我作一个组合框，数据来源于表，现有一个三键鼠标，我想轮转中间键，使组合框内记录由小到大移动，哦哦或者鼠标双击也可[em07]

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

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

作者: cg1 时间: 2004-3-27 08:58
这种问题不用高手吧？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)