vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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:04
Fünfter und hoffentlich letzter Teil 

                ElseIf InStr(J, sString, "F1") > 0 Then
                    VK_Special = VK_F1:         VKStart = InStr(J, sString, _
                      "F1"):      VKLen = 2
                ElseIf InStr(J, sString, "F2") > 0 Then
                    VK_Special = VK_F2:         VKStart = InStr(J, sString, _
                      "F2"):      VKLen = 2
                ElseIf InStr(J, sString, "F3") > 0 Then
                    VK_Special = VK_F3:         VKStart = InStr(J, sString, _
                      "F3"):      VKLen = 2
                ElseIf InStr(J, sString, "F4") > 0 Then
                    VK_Special = VK_F4:         VKStart = InStr(J, sString, _
                      "F4"):      VKLen = 2
                ElseIf InStr(J, sString, "F5") > 0 Then
                    VK_Special = VK_F5:         VKStart = InStr(J, sString, _
                      "F5"):      VKLen = 2
                ElseIf InStr(J, sString, "F6") > 0 Then
                    VK_Special = VK_F6:         VKStart = InStr(J, sString, _
                      "F6"):      VKLen = 2
                ElseIf InStr(J, sString, "F7") > 0 Then
                    VK_Special = VK_F7:         VKStart = InStr(J, sString, _
                      "F7"):      VKLen = 2
                ElseIf InStr(J, sString, "F8") > 0 Then
                    VK_Special = VK_F8:         VKStart = InStr(J, sString, _
                      "F8"):      VKLen = 2
                ElseIf InStr(J, sString, "F9") > 0 Then
                    VK_Special = VK_F9:         VKStart = InStr(J, sString, _
                      "F9"):      VKLen = 2
                ElseIf InStr(J, sString, "F10") > 0 Then
                    VK_Special = VK_F10:        VKStart = InStr(J, sString, _
                      "F10"):     VKLen = 3
                ElseIf InStr(J, sString, "F11") > 0 Then
                    VK_Special = VK_F11:        VKStart = InStr(J, sString, _
                      "F11"):     VKLen = 3
                ElseIf InStr(J, sString, "F12") > 0 Then
                    VK_Special = VK_F12:        VKStart = InStr(J, sString, _
                      "F12"):     VKLen = 3
                ElseIf InStr(J, sString, "F13") > 0 Then
                    VK_Special = VK_F13:        VKStart = InStr(J, sString, _
                      "F13"):     VKLen = 3
                ElseIf InStr(J, sString, "F14") > 0 Then
                    VK_Special = VK_F14:        VKStart = InStr(J, sString, _
                      "F14"):     VKLen = 3
                ElseIf InStr(J, sString, "F15") > 0 Then
                    VK_Special = VK_F15:        VKStart = InStr(J, sString, _
                      "F15"):     VKLen = 3
                ElseIf InStr(J, sString, "F16") > 0 Then
                    VK_Special = VK_F16:        VKStart = InStr(J, sString, _
                      "F16"):     VKLen = 3
                ElseIf InStr(J, sString, "WIN") > 0 Then
                    VK_Special = VK_WIN:        VKStart = InStr(J, sString, _
                      "WIN"):     VKLen = 3   ' Windows Key
                ElseIf InStr(J, sString, "APPS") > 0 Then
                    VK_Special = VK_APPS:       VKStart = InStr(J, sString, _
                      "APPS"):    VKLen = 4   ' Context Menu
                ElseIf InStr(J, sString, "PRINT") > 0 Then
                    VK_Special = VK_SNAPSHOT:   VKStart = InStr(J, sString, _
                      "PRINT"):   VKLen = 5   ' PrintScreen Key
                End If                                          ' Special Key
            End If                                              ' VKStart
        End If                                                  ' bCurly
        If J < VKStart Or J >= VKStart + VKLen Then             ' Process 
        ' single Key
            strChar = Mid(sString, J, 1)                        ' Get single 
            ' Character
            VK = VkKeyScan(Asc(strChar))                        ' Determine 
            ' Virtual KeyCode ...
        ElseIf J = VKStart Then                                 ' Start of 
        ' Special Key
            VK = VK_Special                                     ' Assign 
            ' Special Key
            J = J + VKLen - 1                                   ' Set J to last 
            ' Character of Special Key
            VKStart = 0                                         ' Another 
            ' Special Key might occur
        End If

Das muß doch irgendwie gehen!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 542: Alternative zur SendKeys-Anweisung9.795Kartoffel30.06.08 11:38
Re: Alternative zur SendKeys-Anweisung5.436Bazi20.04.10 19:05
Re: Alternative zur SendKeys-Anweisung5.263Andreas M.09.07.11 12:46
Re: Alternative zur SendKeys-Anweisung5.064Andreas M.09.07.11 20:18
Re: Alternative zur SendKeys-Anweisung724Paul Schäfer01.03.22 09:54
Re: Alternative zur SendKeys-Anweisung116BT-Soft16.11.23 13:45
Re: Alternative zur SendKeys-Anweisung4.691stev-e8719.09.12 13:37
Re: Alternative zur SendKeys-Anweisung3.871NoRoutine23.05.14 22:55
Re: Alternative zur SendKeys-Anweisung3.616NoRoutine23.05.14 22:57
Re: Alternative zur SendKeys-Anweisung3.596NoRoutine23.05.14 23:00
Re: Alternative zur SendKeys-Anweisung3.628NoRoutine23.05.14 23:03
Re: Alternative zur SendKeys-Anweisung3.669NoRoutine23.05.14 23:04
Re: Alternative zur SendKeys-Anweisung3.830NoRoutine23.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