2个回答
展开全部
可以拖动TIMER(时间)控件到FORM里,设置控件属性interval(延迟 2次活动之间的间隔)=2次按ENTER键的间隔时间,具体代码如下:
Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 60 Or 1 Then
SendKeys Chr(13)
If i = 60 Then
i = 0
End If
End If
End Sub
Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 60 Or 1 Then
SendKeys Chr(13)
If i = 60 Then
i = 0
End If
End If
End Sub
展开全部
用VBS脚本嵌入VB代码中实现自动按回车键
-----------------------------------------
Set a = CreateObject("wscript.shell")
中间加上条件,不然就无限按回车键了。可以设置成多长时间按一次等等。
a.SendKeys "{enter}"
-----------------------------------------
或者用定时器
在timer事件中设置每隔几秒触发下命令按钮。
-----------------------------------------
Set a = CreateObject("wscript.shell")
中间加上条件,不然就无限按回车键了。可以设置成多长时间按一次等等。
a.SendKeys "{enter}"
-----------------------------------------
或者用定时器
在timer事件中设置每隔几秒触发下命令按钮。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询