Vierter Teil
For J = 1 To Len(sString)
If bCurly Then ' Process
' Characters in curly Brackets
If VKStart = 0 Then ' ... process
' Special Key if present
If InStr(J, sString, "BACKSPACE") > 0 Then
VK_Special = VK_BAK: VKStart = InStr(J, sString, _
"BACKSPACE"): VKLen = 9
ElseIf InStr(J, sString, "BS") > 0 Then
VK_Special = VK_BAK: VKStart = InStr(J, sString, _
"BS"): VKLen = 2
ElseIf InStr(J, sString, "BKSP") > 0 Then
VK_Special = VK_BAK: VKStart = InStr(J, sString, _
"BKSP"): VKLen = 4
ElseIf InStr(J, sString, "BREAK") > 0 Then
VK_Special = VK_PAUSE: VKStart = InStr(J, sString, _
"BREAK"): VKLen = 5
ElseIf InStr(J, sString, "CAPSLOCK") > 0 Then
VK_Special = VK_CAPITAL: VKStart = InStr(J, sString, _
"CAPSLOCK"): VKLen = 8
ElseIf InStr(J, sString, "DELETE") > 0 Then
VK_Special = VK_DELETE: VKStart = InStr(J, sString, _
"DELETE"): VKLen = 6
ElseIf InStr(J, sString, "DEL") > 0 Then
VK_Special = VK_DELETE: VKStart = InStr(J, sString, _
"DEL"): VKLen = 3
ElseIf InStr(J, sString, "DOWN") > 0 Then
VK_Special = VK_DOWN: VKStart = InStr(J, sString, _
"DOWN"): VKLen = 4
ElseIf InStr(J, sString, "UP") > 0 Then
VK_Special = VK_UP: VKStart = InStr(J, sString, _
"UP"): VKLen = 2
ElseIf InStr(J, sString, "LEFT") > 0 Then
VK_Special = VK_LEFT: VKStart = InStr(J, sString, _
"LEFT"): VKLen = 4
ElseIf InStr(J, sString, "RIGHT") > 0 Then
VK_Special = VK_RIGHT: VKStart = InStr(J, sString, _
"RIGHT"): VKLen = 5
ElseIf InStr(J, sString, "END") > 0 Then
VK_Special = VK_END: VKStart = InStr(J, sString, _
"END"): VKLen = 3
ElseIf InStr(J, sString, "ENTER") > 0 Then
VK_Special = VK_RETURN: VKStart = InStr(J, sString, _
"ENTER"): VKLen = 5
ElseIf InStr(J, sString, "~") > 0 Then
VK_Special = VK_RETURN: VKStart = InStr(J, sString, _
"~"): VKLen = 1
ElseIf InStr(J, sString, "HOME") > 0 Then
VK_Special = VK_HOME: VKStart = InStr(J, sString, _
"HOME"): VKLen = 4
ElseIf InStr(J, sString, "ESC") > 0 Then
VK_Special = VK_ESCAPE: VKStart = InStr(J, sString, _
"ESC"): VKLen = 3
ElseIf InStr(J, sString, "HELP") > 0 Then
VK_Special = VK_HELP: VKStart = InStr(J, sString, _
"HELP"): VKLen = 4
ElseIf InStr(J, sString, "INSERT") > 0 Then
VK_Special = VK_INSERT: VKStart = InStr(J, sString, _
"INSERT"): VKLen = 6
ElseIf InStr(J, sString, "INS") > 0 Then
VK_Special = VK_INSERT: VKStart = InStr(J, sString, _
"INS"): VKLen = 3
ElseIf InStr(J, sString, "NUMLOCK") > 0 Then
VK_Special = VK_NUMLOCK: VKStart = InStr(J, sString, _
"NUMLOCK"): VKLen = 7
ElseIf InStr(J, sString, "PGUP") > 0 Then
VK_Special = VK_PRIOR: VKStart = InStr(J, sString, _
"PGUP"): VKLen = 4
ElseIf InStr(J, sString, "PGDN") > 0 Then
VK_Special = VK_NEXT: VKStart = InStr(J, sString, _
"PGDN"): VKLen = 4
ElseIf InStr(J, sString, "SCROLLLOCK") > 0 Then
VK_Special = VK_SCROLL: VKStart = InStr(J, sString, _
"SCROLLLOCK"): VKLen = 10
ElseIf InStr(J, sString, "TAB") > 0 Then
VK_Special = VK_TAB: VKStart = InStr(J, sString, _
"TAB"): VKLen = 3 Das muß doch irgendwie gehen! |