請(qǐng)教，這種情況要如何循環(huán)顯示？

goto2008

請(qǐng)看圖片。。。

默認(rèn)的是：禁止，
當(dāng)雙擊時(shí)就顯示--只讀，
再雙擊就顯示----查看
依次循環(huán)。。。

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

老鬼

Private Sub 權(quán)限選擇_DblClick(Cancel As Integer)
Static i
If i > 3 Then i = 0
Me.權(quán)限選擇 = Me.權(quán)限選擇.ItemData(i)
i = i + 1
End Sub

chaojianan

不用這么復(fù)雜，一句代碼就搞定。
Private Sub cmbBenBuCode_DblClick(Cancel As Integer)

    On Error GoTo cmbBenBuCode_DblClick_Error

    '雙擊選擇組合框的內(nèi)容
    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

wufeng980114

呵呵，都很厲害啊，學(xué)習(xí)了

zxklzxm1983

借此帖提問, 如goto2008所問,

怎樣用鼠標(biāo)滾輪實(shí)現(xiàn)呢