dim pos as integerdim str1 as stringdim str2 as stringdim str3 as stringdim len1 as longprivate sub form_load()str1=''好雨知時節。''len1=len(str1)str2=''''str3 =''''pos =0timer1.enable=falseend subprivate sub timer1_timer()str2=mid(str1,pos+1,1)sendkeys str2pos=pos+1if (pos+1)>len1 thensendkeys "{enter}" '這個語句也不好使。pos=0endifend subprivate sub command1_click()timer1.enable=trueend subprivate sub command2_click()timer1.enable=falsepos=0str2=""str3=""end sub' 窗體上有文本框控件，multiline屬性為真，scrollbars屬性 2' timer 控件，interval值30' 還有兩個按鈕，用于控制 timer 的enable的真或假。我想問的是，為什么在文本框中不顯示哪？窗體和圖片框中有autoredraw屬性，可文本框中并沒有此屬性啊。邏輯上應該沒問題，可能還是和我不知道的某個屬性的設置有關，或是其它方面的問題。在timer過程中，用以下語句可以，可知文本框是沒問題的：private sub timer1_timer()str2=mid(str1,pos+1,1)str3=str3+str2text1.text=str3pos=pos+1if (pos+1)>len1 then' sendkeys "{enter}" '這個語句也不好使。pos=0endifend sub
3 回答
大話西游666
TA貢獻1817條經驗 獲得超14個贊
'說明，發送key的時候注意把焦點給要發送的地方
Dim pos As Integer
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim len1 As Long
Private Sub form_load()
str1 = "好雨知時節。"
len1 = Len(str1)
str2 = ""
str3 = ""
pos = 0
Timer1.Enabled = False
End Sub
Private Sub timer1_timer()
str2 = Mid(str1, pos + 1, 1)
Text1.SetFocus
SendKeys str2
pos = pos + 1
If (pos + 1) > len1 Then
Text1.SetFocus
SendKeys "{enter}" '這個語句也不好使。
pos = 0
End If
End Sub
Private Sub command1_click()
Timer1.Enabled = True
End Sub
Private Sub command2_click()
Timer1.Enabled = False
pos = 0
str2 = ""
str3 = ""
End Sub
慕蓋茨4494581
TA貢獻1850條經驗 獲得超11個贊
<> 0 then sendkeys "{"+c+"}" else sendkeys c end if next i 其中，你要按的鍵放在s字串中，循環的作用是剝離每個字符，看是否為特殊字符
添加回答
舉報
0/150
提交
取消