title image


Smiley Beispiel
Ha! Zufällig habe ich gerade eben einen Tipp zu diesem Thema gelesen.Der Tipp stammt von der Homepage von Goetz-ReineckeStart Original-Text:-------------------------------------------------------------------------- Um die Tastatureingaben außerhalb des eigenen Projektes abfragen zu können, bietet VB leider keine Hauseigenen Mittelchen. Jedoch läßt sich durch etwas umständliches Gebastele soetwas durchaus realisieren. Option ExplicitPrivate Declare Function GetAsyncKeyState Lib "user32" _ (ByVal vKey As Long) As IntegerPrivate Sub Timer1_Timer() Dim X& For X = 48 To 90 If CompKey(X, UCase(Chr$(X))) Then Exit Sub If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub Next X If CompKey(8, "BACKSPACE")Then Exit Sub If CompKey(9, "TAB")Then Exit Sub If CompKey(13, "ENTER")Then Exit Sub If CompKey(16, "SHIFT")Then Exit Sub If CompKey(17, "STRG")Then Exit Sub If CompKey(18, "ALT")Then Exit Sub If CompKey(19, "PAUSE")Then Exit Sub If CompKey(27, "ESC")Then Exit Sub If CompKey(33, "PAGE UP")Then Exit Sub If CompKey(34, "PAGE DOWN")Then Exit Sub If CompKey(35, "ENDE")Then Exit Sub If CompKey(36, "POS1")Then Exit Sub If CompKey(37, "LEFT")Then Exit Sub If CompKey(38, "UP")Then Exit Sub If CompKey(39, "RIGHT")Then Exit Sub If CompKey(40, "DOWN")Then Exit Sub If CompKey(44, "DRUCK")Then Exit Sub If CompKey(45, "INSERT")Then Exit Sub If CompKey(46, "DEL")Then Exit Sub If CompKey(144, "NUM")Then Exit Sub If CompKey(145, "ROLLEN")Then Exit Sub For X = 112 To 127 If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub Next X ' usw... usw...End SubPrivate Function CompKey(KCode&, KText) As Boolean Dim Result% Result = GetAsyncKeyState(KCode) If Result = -32767 Then Text1.Text = Text1.Text & "[" & KText & "]" & vbCrLf Text1.SelStart = Len(Text1.Text) CompKey = True Else CompKey = False End IfEnd Function --------------------------------------------------------------------------Ende Original-Text--------------------------------------------------------------------------Viel Erfolg,Michael

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: