Reply to thread

Message

<blockquote data-quote="lembugu" data-source="post: 647498" data-attributes="member: 62730">AW: per Batch Programme in best. Reihenfolge startenIch bin kein Coder aber lese hin und wieder mal über VBS was nach und hab mal als bsp.: diese Page als anregung.<a href="http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0438.shtml" target="_blank">Autoload</a>Innerhalb von Formularen kann man mittels des KeyPress-Ereignisses und der KeyUp-/KeyDown-Ereignisse komfortabel auf Tastatureingaben des Benutzers reagieren. Wenn ein Fenster allerdings unsichtbar ist oder lediglich den Fokus verloren hat, werden diese Ereignisse nicht mehr ausgelöst. Um trotzdem auf Tastatureingaben reagieren zu können, zeigt dieser Tipp wie man mit einem Timer und der API-Funktion GetAsyncKeystate den Status einer Taste überprüfen kann. Durch die Übergabe des KeyCodes aus der KeyCodeConstants-Aufzählung lässt sich mit Hilfe dieser API-Funktion ermitteln, ob die Taste momentan gedrückt ist, seit der letzten Überprüfung gedrückt wurde oder nicht gedrückt wurde.&nbsp; &nbsp; &nbsp; Option ExplicitPrivate Declare Function GetAsyncKeyState Lib &quot;user32&quot; ( _&nbsp; &nbsp; &nbsp; ByVal vKey As Long) As IntegerPrivate Declare Sub CopyMemory Lib &quot;kernel32&quot; Alias _&nbsp; &nbsp; &nbsp; &quot;RtlMoveMemory&quot; (lpDest As Any, lpSource As Any, _&nbsp; &nbsp; &nbsp; ByVal cBytes As Long)Private Sub Form_Load()&nbsp; Dim i As Long&nbsp; For i = 0 To (chkFKey.Count - 1)&nbsp; &nbsp; chkFKey(i).Caption = chkFKey(i).Caption &amp; CStr(i + 1)&nbsp; Next iEnd SubPrivate Sub tmrCheckKeys_Timer()&nbsp; Dim i As Long&nbsp; Dim nRetVal As Long&nbsp; For i = KeyCodeConstants.vbKeyF1 To KeyCodeConstants.vbKeyF12&nbsp; &nbsp; nRetVal = GetAsyncKeyState(i)&nbsp; &nbsp; If (HiWord(nRetVal) &lt;&gt; 0) Or (LoWord(nRetVal) &lt;&gt; 0) Then&nbsp; &nbsp; &nbsp; chkFKey(i - 112).Value = 1&nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; chkFKey(i - 112).Value = 0&nbsp; &nbsp; End If&nbsp; Next iEnd SubPrivate Function LoWord(ByVal dwValue As Long) As Integer&nbsp; Call CopyMemory(LoWord, dwValue, 2&amp;)End FunctionPrivate Function HiWord(ByVal dwValue As Long) As Integer&nbsp; Call CopyMemory(HiWord, ByVal VarPtr(dwValue) + 2, 2&amp;)End Function</blockquote>

[QUOTE="lembugu, post: 647498, member: 62730"] [b]AW: per Batch Programme in best. Reihenfolge starten[/b] Ich bin kein Coder aber lese hin und wieder mal über VBS was nach und hab mal als bsp.: diese Page als anregung. [url=http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0438.shtml]Autoload[/url] Innerhalb von Formularen kann man mittels des KeyPress-Ereignisses und der KeyUp-/KeyDown-Ereignisse komfortabel auf Tastatureingaben des Benutzers reagieren. Wenn ein Fenster allerdings unsichtbar ist oder lediglich den Fokus verloren hat, werden diese Ereignisse nicht mehr ausgelöst. Um trotzdem auf Tastatureingaben reagieren zu können, zeigt dieser Tipp wie man mit einem Timer und der API-Funktion GetAsyncKeystate den Status einer Taste überprüfen kann. Durch die Übergabe des KeyCodes aus der KeyCodeConstants-Aufzählung lässt sich mit Hilfe dieser API-Funktion ermitteln, ob die Taste momentan gedrückt ist, seit der letzten Überprüfung gedrückt wurde oder nicht gedrückt wurde. Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" ( _ ByVal vKey As Long) As Integer Private Declare Sub CopyMemory Lib "kernel32" Alias _ "RtlMoveMemory" (lpDest As Any, lpSource As Any, _ ByVal cBytes As Long) Private Sub Form_Load() Dim i As Long For i = 0 To (chkFKey.Count - 1) chkFKey(i).Caption = chkFKey(i).Caption & CStr(i + 1) Next i End Sub Private Sub tmrCheckKeys_Timer() Dim i As Long Dim nRetVal As Long For i = KeyCodeConstants.vbKeyF1 To KeyCodeConstants.vbKeyF12 nRetVal = GetAsyncKeyState(i) If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then chkFKey(i - 112).Value = 1 Else chkFKey(i - 112).Value = 0 End If Next i End Sub Private Function LoWord(ByVal dwValue As Long) As Integer Call CopyMemory(LoWord, dwValue, 2&) End Function Private Function HiWord(ByVal dwValue As Long) As Integer Call CopyMemory(HiWord, ByVal VarPtr(dwValue) + 2, 2&) End Function [/QUOTE]

Verification