VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1470|回复: 1

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

[复制链接]
发表于 2015-10-13 09:30:15 | 显示全部楼层 |阅读模式
本帖最后由 asd888 于 2015-10-13 10:58 编辑

用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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

Image或Picture还要处理DblClick事件  发表于 2015-10-13 17:07
发表于 2015-10-13 18:08:43 | 显示全部楼层
本帖最后由 19900603 于 2015-10-13 18:09 编辑

双击触发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)


取消掉双击事件就好了。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 19:18

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表