Question

VB 一段代码运行后自动退出,求解

Private Sub Command9_Click() str = "游戏喊话" For i = 1 To Len(str) KeyCode = Asc(Mid(str, i, 1)) If KeyCode < 0 Then' data = StrConv(Mid(str, i, 1), vbFromUnicode)'被注释后同意可以成功输入' PostMessage hWnd, &H102, data(0), 0&' PostMessage hWnd, &H102, data(1), 0& Else PostMessage hWnd, &H102, KeyCode, 0 End If Next EndEnd Sub
以上代码成功运行后,在输入框内成功输入"游戏喊话",,,但是运行后程序就会自动退出,,,后面的代码也就无法进行下去了,,,,,很晕.....

Answer 1

for 循环语句的问题

Private Sub Command1_Click()

str = "游戏喊话"
For i = 1 To Len(str)
KeyCode = Asc(Mid(str, i, 1))
If KeyCode < 0 Then
' data = StrConv(Mid(str, i, 1), vbFromUnicode)'被注释后同意可以成功
' PostMessage hWnd, &H102, data(0), 0&'被注释后同意可以成功
' PostMessage hWnd, &H102, data(1), 0&'被注释后同意可以成功
Else
PostMessage hWnd, &H102, KeyCode, 0
End If
Next

code
End Sub

把倒数第二个end去掉,测试通过

Answer 2

倒数第二行 End
这个语句的作用是直接退出程序