Question

VBkeypress事件

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 65 Then Unload Me

Else
MsgBox "Error！由于C盘FAT32格式出现问题，导致硬盘分区出现问题，请重启，并重新整理C盘文件。", vbCritical, "Error!"
End If

这段代码哪里错？请各位高手指点迷津！
我想一按某一个键就自动关闭程序，按了其他键就弹出MsgBox "Error！由于C盘FAT32格式出现问题，导致硬盘分区出现问题，请重启，并重新整理C盘文件。", vbCritical, "Error!" 这个对话框，但是不能，究竟怎样写，是不是用我打出的代码？如果不能，就如何修改呢？

Answer 1

书写格式错误。
if……then……
格式是不能有else的

if……then
……
else
……
endif
格式前两行是不能河道一行写的

只要改成：
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 65 Then
Unload Me
Else
MsgBox "Error！由于C盘FAT32格式出现问题，导致硬盘分区出现问题，请重启，并重新整理C盘文件。", vbCritical, "Error!"
End If
end sub
就可以了。

Answer 2

把Then后面的内容另起一行写

如果窗体里有TextBox控件，焦点始终都是在TextBox里面的，所以Form的KeyPress事件是不起作用的