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,要求自动在字符后加一累加,高手来解决
在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来实现