dxengine.vb

vb.net 做的RPG游戏,不过还有点BUG没有调试好

                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                Esc_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                Esc_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F1_Key"
                            If coms.Length = 2 Then
                                F1_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F1_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F1_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F2_Key"
                            If coms.Length = 2 Then
                                F2_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F2_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F2_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F3_Key"
                            If coms.Length = 2 Then
                                F3_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F3_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F3_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F4_Key"
                            If coms.Length = 2 Then
                                F4_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F4_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F4_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F5_Key"
                            If coms.Length = 2 Then
                                F5_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F5_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F5_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F6_Key"
                            If coms.Length = 2 Then
                                F6_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F6_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F6_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F7_Key"
                            If coms.Length = 2 Then
                                F7_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F7_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F7_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F8_Key"
                            If coms.Length = 2 Then
                                F8_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F8_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F8_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F9_Key"
                            If coms.Length = 2 Then
                                F9_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F9_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F9_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F10_Key"
                            If coms.Length = 2 Then
                                F10_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F10_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F10_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F11_Key"
                            If coms.Length = 2 Then
                                F11_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F11_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F11_KeyCommand = CType(coms(2), String)
                            End If
                        Case "F12_Key"
                            If coms.Length = 2 Then
                                F12_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                F12_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                F12_KeyCommand = CType(coms(2), String)
                            End If
                        Case "PrintScreen_Key"
                            If coms.Length = 2 Then
                                PrintScreen_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                PrintScreen_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                PrintScreen_KeyCommand = CType(coms(2), String)
                            End If
                        Case "ScrollLock_Key"
                            If coms.Length = 2 Then
                                ScrollLock_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                ScrollLock_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                ScrollLock_KeyCommand = CType(coms(2), String)
                            End If
                        Case "Tilde_Key"
                            If coms.Length = 2 Then
                                Tilde_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                Tilde_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                Tilde_KeyCommand = CType(coms(2), String)
                            End If
                        Case "1_Key"
                            If coms.Length = 2 Then
                                No1_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No1_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No1_KeyCommand = CType(coms(2), String)
                            End If
                        Case "2_Key"
                            If coms.Length = 2 Then
                                No2_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No2_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No2_KeyCommand = CType(coms(2), String)
                            End If
                        Case "3_Key"
                            If coms.Length = 2 Then
                                No3_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No3_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No3_KeyCommand = CType(coms(2), String)
                            End If
                        Case "4_Key"
                            If coms.Length = 2 Then
                                No4_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No4_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No4_KeyCommand = CType(coms(2), String)
                            End If
                        Case "5_Key"
                            If coms.Length = 2 Then
                                No5_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No5_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No5_KeyCommand = CType(coms(2), String)
                            End If
                        Case "6_Key"
                            If coms.Length = 2 Then
                                No6_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No6_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No6_KeyCommand = CType(coms(2), String)
                            End If
                        Case "7_Key"
                            If coms.Length = 2 Then
                                No7_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No7_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No7_KeyCommand = CType(coms(2), String)
                            End If
                        Case "8_Key"
                            If coms.Length = 2 Then
                                No8_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No8_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No8_KeyCommand = CType(coms(2), String)
                            End If
                        Case "9_Key"
                            If coms.Length = 2 Then
                                No9_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No9_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No9_KeyCommand = CType(coms(2), String)
                            End If
                        Case "0_Key"
                            If coms.Length = 2 Then
                                No0_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                No0_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                No0_KeyCommand = CType(coms(2), String)
                            End If
                        Case "Minus_Key"
                            If coms.Length = 2 Then
                                Minus_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                Minus_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                Minus_KeyCommand = CType(coms(2), String)
                            End If
                        Case "Plus_Key"
                            If coms.Length = 2 Then
                                Plus_KeyCommand = ""
                                Exit Select
                            End If
                            If (CType(coms(2), String) = "Proccess") Then
                                Plus_KeyCommand = "Proccess " & CType(coms(3), String)
                            Else
                                Plus_KeyCommand = CType(coms(2), String)
                            End If
                        Case "BackSpace_Key"
                            If coms.Length = 2 Then
                                BackSpace_Key