请问在vb中sendkeys 显示的问题？如下该怎么解决？

Question

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

Answer 1

'说明，发送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

Answer 2

发送按键之前先设置焦点：
if (pos+1)>len1 then
text1.setfocus
sendkeys "{enter}"
pos=0
endif

Answer 3

<> 0 then sendkeys "{"+c+"}" else sendkeys c end if next i 其中，你要按的键放在s字串中，循环的作用是剥离每个字符，看是否为特殊字符