Søg
Avatar billede mariager13 Nybegynder
22. februar 2000 - 22:52 Der er 6 kommentarer og
1 løsning

HASTER HASTER HASTER !!

Kan man ikke få et program til at udfører en handlig, ved at trykke på en enkelt tast fx. D eller sådan noget.
Jeg bruger VB 6.0.
MVH. og på forhånd tak

Michael Jensen

PS. Der er 100 p. på højkant til den der svarer hurtigt (og korrekt *G*)
Avatar billede overload.dk Nybegynder
22. februar 2000 - 23:09 #1
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
Avatar billede nerøs Nybegynder
22. februar 2000 - 23:10 #2
Du kan bruge Form_KeyPress Eventet til at få dit program til Hvad som helst

Vh Søren
Avatar billede overload.dk Nybegynder
22. februar 2000 - 23:12 #3
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
Avatar billede overload.dk Nybegynder
22. februar 2000 - 23:14 #4
'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
Avatar billede theportal Nybegynder
23. februar 2000 - 09:00 #5
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!
Avatar billede mariager13 Nybegynder
23. februar 2000 - 15:59 #6
10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
tak (overdriver jeg ?!?)

/MM
Avatar billede overload.dk Nybegynder
23. februar 2000 - 19:35 #7
slet ingen point? - hm. :(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 16:24 Google driller på MS Edge Af ErikHg i Browsere
I dag 15:48 søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
05/1111:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
White papers
Flere white papers »