当前位置: 代码迷 >> PB >> 乍么让DW的image具有按下和弹起的效果?该如何解决
  详细解决方案

乍么让DW的image具有按下和弹起的效果?该如何解决

热度:149   发布时间:2016-04-29 10:30:24.0
乍么让DW的image具有按下和弹起的效果?
乍么让DW的image可以像button一样具有按下弹起的效果????(我没有找到 pbm_dwnlbuttondown ....)

------解决方案--------------------
在数据窗口里自定义一个消息为pbm_lbuttondown, pbm_lbuttonup事件

即可实现
------解决方案--------------------
把图片放到图形按钮里不就完了
------解决方案--------------------
帮顶
------解决方案--------------------
数据窗口 自定义事件 名u_down
event id pbm_lbuttondown

Integer li_picture_sum, i, li_pos
String ls_object

ls_object = Lower(dw_main.GetObjectAtPointer())

li_pos = Pos(ls_object, "~t")

If li_pos > 0 Then ls_object = Left(ls_object, li_pos - 1)
If Describe(ls_object + ".type") <> "bitmap" Then Return
If dw_main.Modify(ls_object + ".Border='5'") = "" Then //按下效果
End If


建立自定义事件 u_up
event id:pbm_dwnlbuttonup

Integer li_picture_sum, i, li_pos
String ls_object

ls_object = Lower(dw_main.GetObjectAtPointer())

li_pos = Pos(ls_object, "~t")

If li_pos > 0 Then ls_object = Left(ls_object, li_pos - 1)

If Describe(ls_object + ".type") <> "bitmap" Then Return

If dw_main.Modify(ls_object + ".Border='6'") = "" Then

End If

以上代码基本可以实现按下弹起效果,请楼主自行完善
  相关解决方案