Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: Näppäimet (vb.net)

TuGi [01.03.2004 19:21:54]

#

Kuinkas vb.netillä pystyy laittamaan toiminnon jollekkin näppäimelle?

tnb [02.03.2004 18:30:31]

#

Laita formin keypreview ominaisuus TRUE
Valitse form1 ja keydown tapahtuma.
Esimerkissä beeppaa kun f1:stä painetaan.

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.F1 Then
        Beep()
    End If
End Sub

JoreSoft [04.03.2004 18:29:53]

#

Tässä lisää...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'MsgBox "keycode " & Str(KeyCode) & " Shift " & Str(Shift)
Dim I As Integer, A As Double, W As Double
With Alus
    W = .Way
    Select Case KeyCode
    'left
    Case 37: If W = 0.5 Then W = 0 Else W = -0.5
    'Right
    Case 39: If W = -0.5 Then W = 0 Else W = 0.5
    'Up
    Case 38: .Speed = .Speed + 0.1: If .Speed > 4 Then .Speed = 4
    'down
    Case 40: .Speed = .Speed - 0.2: If .Speed < -4 Then .Speed = -4
    'Control
    Case 17:
    'Space
    Case 32: .Speed = .Speed + 0.5: If .Speed > 4 Then .Speed = 4
    End Select
    .Way = W
End With
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta