Question

VB 请批正 键盘上下左右键 控制光标左右没错，上下就不行了

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Dim i As Integer
Select Case KeyCode
Case 37
i = Index - 1
If i \ 3 <> Index \ 3 Then i = i + 3
Text1(i).SetFocus
Case 38
i = Index - 3
If i < 0 Then i = i + 9
Text1(i).SetFocus
Case 39
i = Index + 1
If i \ 3 <> Index \ 3 Then i = i - 3
Text1(i).SetFocus
Case 40
i = Index + 3
If i > 8 Then i = i - 9
Text1(i).SetFocus
End Select
End Sub

Answer 1

可以利用JVM提供的-Xmn-Xms-Xmx等选项可进行设置。Heapsize的大小是YoungGeneration和TenuredGeneraion之和。在JVM中如果98％的时间是用于GC且可用的Heapsize不足2％的时候将抛出此异常信息。

Answer 2

代码没有问题啊