- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按钮响应 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129711)
-- 发布时间：2019/1/4 12:20:00
-- [求助]按钮响应
如下图、【宽带帐号】字体的【单击控件后执行】写有以下命令
Dim r As Row = Tables("装机工单清单表").current
ClipBoard.SetText(r("宽带帐号"))
想实现点击该字体后、字体能够有一个像按钮被点击过那样一个下沉的动作；能够让人明显的感知到点击成功
此主题相关图片如下：360截图20190104121626880.jpg
此主题相关图片如下：360截图20190104121722681.jpg
-- 发布时间：2019/1/4 15:56:00
--
mousedown
e.sender.backcolor = Color.red
mouseup
e.sender.backcolor = Color.gray