Forum Mjukvara Programmering och digitalt skapande Tråd Inlägg

Visual Basic, HJÄLP!

1
Skriv svar
Permalänk
Avstängd
●

Visual Basic, HJÄLP!

Praoar för tillfället på ett datorföretag som heter AdHoc.
Har jobbat med Visual Basic 6.0 (tror jag??) i några timmar, och jag är helt less..
Ont i arslet har jag, och så mycket mens att jag kunde ge blod till halva Afrika..
Snälla hjälp mig med detta:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim meddelande As String
If vbKeyF1 <= KeyCode And KeyCode <= vbKeyF12 Then
meddelande = "Funktionstangent"
Else
meddelande = "Annan tangent"
End If
MsgBox meddelande, , "Tangentinfo"
End Sub

Alltså, När jag trycker på F1 till F12 får jag upp Funktionstangent.
Och när jag trycker på de andra kommer det upp "Annan tangent".
Vilket är rätt.

Här någonstans ska jag ändra så att alternativen blir:
*funktionstangent
*Siffertangent
*Annan tangent

Det dem vill är att när jag trycker på 1 till 9 ska jag få upp "siffertangent".

Snälla hjälp!

Visa signatur

"I'm that dark, twisted, screams-for-no-reason-type"

Redigera
Citera flera Citera
Permalänk
Medlem
●

så här:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim meddelande As String


If vbKeyF1 <= KeyCode And KeyCode <= vbKeyF12 Then
    meddelande = "Funktionstangent"
ElseIf 48 <= KeyCode And KeyCode <= 57 Then
    meddelande = "Siffertangent"
Else
    meddelande = "Annan tangent"
End If

    'MsgBox meddelande, , "Tangentinfo"
    
    Debug.Print KeyCode, meddelande
End Sub

Notera Debug.print är smidigare när du testar så slipper du trycka OK hela tiden.

Redigera
Citera flera Citera
1
Skriv svar