同样的代码click事件，button按钮可以执行，图片控件快速点击有时候不执行

asd888

用listbox存储图片名，有两个button,可以顺利单击上一张或者下张浏览图片，但是同样的代码，将BUTTON用image或者picture代替，快速单击有时候就不能切换图片成功，不知道什么原因，

Public Sub Command2_Click()
If List1.ListIndex <= 0 Then

    List1.ListIndex = List1.ListCount - 1

     Image1.Picture = LoadPicture(App.Path & "\" & List1.List(List1.ListIndex))
ElseIf List1.ListIndex > 0 Then
    List1.ListIndex = List1.ListIndex - 1
     Image1.Picture = LoadPicture(App.Path & "\" & List1.List(List1.ListIndex))
End If

End Sub

19900603

双击触发DblClick事件。。


    Const GCL_STYLE = (-26)
    Const CS_DBLCLKS = &H8
    Dim CsStyle As Long

    CsStyle = GetClassLong(WinHwnd, GCL_STYLE)
    Call SetClassLong(WinHwnd, GCL_STYLE, CsStyle And Not CS_DBLCLKS)


取消掉双击事件就好了。。