qaz2245180的个人资料 - RAT

qaz2245180 qaz2245180

关注数: 0 粉丝数: 1 发帖数: 77 关注贴吧数: 1

VB高手来看看,这段代码哪里错了?急窗体里有6个TEXTBOX,分别是text1-text6,还有6个timer,分别是timer1-timer6, Private Sub Timer1_Timer() Clipboard.SetText Text1 SendKeys "^V" SendKeys "{ENTER}" Timer2.Enabled = True End Sub Private Sub Timer2_Timer() Clipboard.SetText Text2 SendKeys "^V" SendKeys "{ENTER}" Timer2.Enabled = False Timer3.Enabled = True End Sub Private Sub Timer3_Timer() Clipboard.SetText Text3 SendKeys "^V" SendKeys "{ENTER}" Timer3.Enabled = False Timer4.Enabled = True End Sub Private Sub Timer4_Timer() Clipboard.SetText Text4 SendKeys "^V" SendKeys "{ENTER}" Timer4.Enabled = False Timer5.Enabled = True End Sub Private Sub Timer5_Timer() Clipboard.SetText Text5 SendKeys "^V" SendKeys "{ENTER}" Timer5.Enabled = False Timer6.Enabled = True End Sub Private Sub Timer6_Timer() Clipboard.SetText Text6 SendKeys "^V" SendKeys "{ENTER}" Timer6.Enabled = False Timer1.Enabled = True End Sub 我想把6 个textbox里的内容轮流复制,然后粘帖在QQ聊天窗口里按回车键发送出去,(timer控件的interval为1000),可是我把每个textbox里的内容依此输入1-6,我测试的时候总是输出1,不知道怎么回事,我实在找不出哪里错了,如果有地方错了请高手帮忙改改,谢了!!

1 下一页