HASTER HASTER HASTER !!

prøv at gå ind på http://www.planet-source-code.com - der finder du med sikkerhed noget der kan hjælpe dig

Mvh
Peter Loft Jensen
Overload.dk

Du kan bruge Form_KeyPress Eventet til at få dit program til Hvad som helst

Vh Søren

her måske noget du kan bruge:

Public Function KeyStr(KeyCode As Integer) As String
    'Copyright Alexander Chia Yan Sheng


    Select Case KeyCode
        Case 65 To 90
        KeyStr = Chr(KeyCode)
        Case 48 To 57
        KeyStr = Chr(KeyCode)
        Case 13
        KeyStr = "Enter"
        Case 9
        KeyStr = "Tab"
        Case 112 To 123
        KeyStr = "F" & LTrim(Str(KeyCode - 111))
        Case 27
        KeyStr = "Esc"
        Case 192
        KeyStr = "~"
        Case 187
        KeyStr = "="
        Case 189
        KeyStr = "-"
        Case 219
        KeyStr = "["
        Case 220
        KeyStr = "\"
        Case 221
        KeyStr = "]"
        Case 186
        KeyStr = ";"
        Case 222
        KeyStr = "'"
        Case 188
        KeyStr = ","
        Case 190
        KeyStr = "."
        Case 191
        KeyStr = "/"
        Case 16
        KeyStr = "Shift"
        Case 20
        KeyStr = "Caps Lock"
        Case 144
        KeyStr = "Num Lock"
        Case 145
        KeyStr = "Scr Lock"
        Case 17
        KeyStr = "Ctrl"
        Case 18
        KeyStr = "Alt"
        Case 32
        KeyStr = "Space"
        Case 45
        KeyStr = "Ins"
        Case 46
        KeyStr = "Del"
        Case 33
        KeyStr = "Pg Up"
        Case 34
        KeyStr = "Pg Dn"
        Case 8
        KeyStr = "Back"
        Case 36
        KeyStr = "Home"
        Case 35
        KeyStr = "End"
        Case 37
        KeyStr = "Left Arrow"
        Case 38
        KeyStr = "Up Arrow"
        Case 39
        KeyStr = "Right Arrow"
        Case 40
        KeyStr = "Down Arrow"
        Case 106
        KeyStr = "* [Num Pad]"
        Case 107
        KeyStr = "+ [Num Pad]"
        Case 111
        KeyStr = "/ [Num Pad]"
        Case 109
        KeyStr = "- [Num Pad]"
        Case Else
        KeyStr = "!"
    End Select
End Function

'Windows API/Global Declarations:

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

og koden for detection af keypress:

sKeyStat = 0


For i = 0 To 255
    KeyResult = GetAsyncKeyState(i)


    If KeyResult = -32767 Then
        sKeyStat = 1
        Exit For
    End If
Next i


If sKeyStat = 1 Then
    MsgBox "Key pressed!!!"
End If

I en KeyPress sub skriv følgende:

If KeyAscii = 13 Then
    MsgBox "Enter had been pressed"
End IF

Skift msgboxen ud med en anden procedure som du ønsker at bruge! Istedet for 13 kan du skrive Ascii tallet på det bogstav du ønsker at bruge!

10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
tak (overdriver jeg ?!?)

/MM

slet ingen point? - hm. :(