VB高手进进急

来源：百度知道 编辑：UC知道 时间：2024/08/21 00:46:09
做一刷屏器想自动在语句后面+1，比如我要刷1，我要刷2，我要刷3…
在TIMER下我的代码
Dim i As Integer
i = 0
Text1.Text:=Cstr(Cint(Text1.Text)+1)
SendKeys Text1.Text + 1
SendKeys "{enter}"
运行后显示错误，实型不匹配。我定义的是整数i,要求自动在字符后加一累加，高手来解决

i=0
在Form_Load中设定
然后每Timer一下就
i=i+1

Text1.Text:=Cstr(Cint(Text1.Text)+1)
删除":" 和 "Cstr"
因Cstr是强制将Text1.Text内容转换成字符串,所以无法运算。

Dim i As Integer
i = 0
Text1.Text=(Cint(Text1.Text)+1)
SendKeys Text1.Text + 1
SendKeys "{enter}"

或

Dim i As Integer
i = 0
Text1.Text=(val(Text1.Text)+1)
SendKeys Text1.Text + 1
SendKeys "{enter}"

Text1.Text:=Cstr(Cint(Text1.Text)+1)
多了一个冒号，应该是
Text1.Text=Cstr(Cint(Text1.Text)+1)

Dim i As Integer
i = 0
Text1.Text:=Cstr(val(Text1.Text)+1)
SendKeys Text1.Text + 1
SendKeys "{enter}"

Text1.Text:=Cstr(Cint(Text1.Text)+1)
改为：
Text1.Text=val(Text1.Text)+1

呵呵呵……

楼主知道SendKeys是干什么的？好好看看MSDN

建议使用SetWindowsText及PostMessage（或SendMessage）API来实现