乍么让DW的image具有按下和弹起的效果?

[zhongasen]

乍么让DW的image可以像button一样具有按下弹起的效果????(我没有找到 pbm_dwnlbuttondown ....)

[WorldMobile]

在数据窗口里自定义一个消息为pbm_lbuttondown, pbm_lbuttonup事件

即可实现

[bounty]

把图片放到图形按钮里不就完了

[li_willian114]

帮顶

[zhongasen]

不要用pbm_dwnlbuttondown吗?
在事件中没有这个事件哟!
嗯[Quote=引用 1 楼 lzp_lrp 的回复:]
在数据窗口里自定义一个消息为pbm_lbuttondown, pbm_lbuttonup事件

即可实现
[/Quote]

[zhongasen]

[Quote=引用 3 楼 zhongasen 的回复:]
不要用pbm_dwnlbuttondown吗?
在事件中没有这个事件哟!
嗯引用 1 楼 lzp_lrp 的回复:
在数据窗口里自定义一个消息为pbm_lbuttondown, pbm_lbuttonup事件

即可实现

[/Quote]???

[newease]

数据窗口 自定义事件 名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

以上代码基本可以实现按下弹起效果，请楼主自行完善

[zhongasen]

嗯! 謝謝!

[zhongasen]

乍麼沒有人回答呀?