用vb能不能实现点击，达到这种效果？

[此贴子已经被作者于2017-3-9 20:56编辑过]

你描述的问题有点不清楚，能不能发一个图片加深理解？
不过你说的过程用VB6做应该没有问题。

楼主说的这个，可以直接用Timer，配合调用其他窗口控件的事件来实现的。
示例代码（我现在电脑上只有VBA，已经测试通过。VB下应该也是没有问题的）：
1.

'DataGrid1.DataSource= myrec
myrec.movefirst '这样就可以移到第一行
myrec.move 10,0  '这样可以移到第10行，以此类推

2.

ComboBox1.SetFocus  '首先需要是ComboBox1获得光标
SendKeys "%{Down}"  '用SendKeys 模拟键盘操作，Alt + 下箭头，用词展开ComboBox1
for i= 1 to 3

 SendKeys "{Down}"   '用SendKeys 模拟键盘操作， 下箭头， 次数自己修改
next i 

3.
调用button_click事件即可

4.
这个很难实现，SendKeys 也不能实现。可以做一个假的对话框，再用timer控制关闭即可
要不然就需要用到API函数了

以上操作间隔很小，要体现一步一步的操作步骤，需要配合timer。 不过如果只是展示，我建议你做一个真实的窗口，然后用录屏软件来录制自己的操作更好。

如果控件事件没有很合适的，那么就需要API函数了
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

以上只是点击，如果要显示出光标的移动过程，还需要用到
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

[此贴子已经被作者于2017-3-2 09:17编辑过]

有时间发张图片，谢谢

谢谢！！

能不能发个完整的代码？

不好意思，把结贴分数搞错了，怎么办？