请教，这种情况要如何循环显示？

goto2008

请看图片。。。

默认的是：禁止，
当双击时就显示--只读，
再双击就显示----查看
依次循环。。。

zxklzxm1983

借此帖提问, 如goto2008所问,

怎样用鼠标滚轮实现呢

wufeng980114

呵呵，都很厉害啊，学习了

chaojianan

不用这么复杂，一句代码就搞定。
Private Sub cmbBenBuCode_DblClick(Cancel As Integer)

    On Error GoTo cmbBenBuCode_DblClick_Error

    '双击选择组合框的内容
    Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount

    On Error GoTo 0
    Exit Sub

cmbBenBuCode_DblClick_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ")"


End Sub

老鬼

Private Sub 权限选择_DblClick(Cancel As Integer)
Static i
If i > 3 Then i = 0
Me.权限选择 = Me.权限选择.ItemData(i)
i = i + 1
End Sub

koutx

Option Compare Database

Private z As String

Private Sub Combo4_DblClick(Cancel As Integer)

z = IIf(z <> "只读", "只读", "查看")
Me.Combo4 = z
End Sub

Private Sub Form_Load()
Me.Combo4 = "禁止"
   
End Sub