7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xsp 2003-04-03
- 打赏
- 举报
键盘：在keydown,keyup或keypress事件中任选一个写代码
鼠标：在mousedown,mouseup事件中任选一个写代码
鼠标：在mousedown,mouseup事件中任选一个写代码
ningkang 2003-04-03
- 打赏
- 举报
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if Button=1 then Text1.Text="按下"
End Sub
if Button=1 then Text1.Text="按下"
End Sub
horsefly 2003-04-03
- 打赏
- 举报
在form的keydown和mousedown下处理不就可以了。
minajo21 2003-04-03
- 打赏
- 举报
在窗体或控件的mousedown 和 keydown事件里写
