vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Re: Alternative zur SendKeys-Anweisung 
Autor: NoRoutine
Datum: 23.05.14 23:03

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!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 542: Alternative zur SendKeys-Anweisung9.733Kartoffel30.06.08 11:38
Re: Alternative zur SendKeys-Anweisung5.400Bazi20.04.10 19:05
Re: Alternative zur SendKeys-Anweisung5.229Andreas M.09.07.11 12:46
Re: Alternative zur SendKeys-Anweisung5.030Andreas M.09.07.11 20:18
Re: Alternative zur SendKeys-Anweisung694Paul Schäfer01.03.22 09:54
Re: Alternative zur SendKeys-Anweisung93BT-Soft16.11.23 13:45
Re: Alternative zur SendKeys-Anweisung4.641stev-e8719.09.12 13:37
Re: Alternative zur SendKeys-Anweisung3.845NoRoutine23.05.14 22:55
Re: Alternative zur SendKeys-Anweisung3.587NoRoutine23.05.14 22:57
Re: Alternative zur SendKeys-Anweisung3.568NoRoutine23.05.14 23:00
Re: Alternative zur SendKeys-Anweisung3.601NoRoutine23.05.14 23:03
Re: Alternative zur SendKeys-Anweisung3.642NoRoutine23.05.14 23:04
Re: Alternative zur SendKeys-Anweisung3.798NoRoutine23.05.14 23:04

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel