菜鸟问题，如何响应鼠标的down和up事件

Question

使用该按钮的MouseDown和MouseUp事件写你处理的代码

Answer 1

fs_windy(雲海飛龍)你好，我要的就是代码！

Answer 2

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Recordset.movenext
End Sub

Answer 3

使用该按钮的MouseDown和MouseUp事件在加上一个Timer控件和一个全局变量，也可以写一个函数原理一样。
用MousDown事件控制开始，
用MousUp事件控制结束
在Timer中判断全局变量，以决定是否继续移动。

Answer 4

su27s(大菜) 你好!你明白我的意思，能给个例子吗?我是一只小小鸟.

Answer 5

private sub command1_mousedown(button as integr,shift as integer,x as integer,y as integer)'''如果在COMMAND1上按下鼠标按键
if button=1 then''''如果是鼠标左键---则发生
   file1.listindex=file1.listindex+1''文件列表框的LISTINDEX你应该知道
''''了吧
end if
end sub

Answer 6

bob008(冻冬)的例子是什么意思？我说的是数据库记录指针的连续移动,在mousedown时不会停下来,发生mouseup时停下来,也就是使recordset.movenext连续发生.请高手指点!

Answer 7

su27s(大菜) :你的方法不行！还有什么高招？

Answer 8

private sub .......(button as integr,shift as integer,x as integer,y as integer)'''如果在........上按下鼠标按键
if button=1 
   确发timer控件
end if
end sub
Private Sub ......(Button As Integer, Shift As Integer, X As Single, Y As Single)
  if button=1 
   停止timer控件运行
end if
End Sub
 
在timer里面写你要移动的记录代码