VB.NET

VB.NET RSS

How do i use the keyboard in my code?

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Jan 2008

Posts: 10

Reputation: Chris11246 is an unknown quantity at this point

Solved Threads: 0

Chris11246 Chris11246 is offline

Offline

Newbie Poster

How do i use the keyboard in my code?

Jul 7th, 2009

im trying to make a little game and i cant find how to use the keyboard to control it what does the code look like?

•

Join Date: Oct 2008

Posts: 2,612

Reputation: adatapost has much to be proud of

Solved Threads: 463

adatapost

Offline

Posting Maven

Re: How do i use the keyboard in my code?

Jul 7th, 2009

For windows application, set KeyPreview property of Form to True and handle key (KeyPress, KeyDown....) events.

Failure is not fatal, but failure to change might be. - John Wooden

•

Join Date: Jan 2008

Posts: 10

Reputation: Chris11246 is an unknown quantity at this point

Solved Threads: 0

Chris11246 Chris11246 is offline

Offline

Newbie Poster

Re: How do i use the keyboard in my code?

Jul 7th, 2009

how do i choose which key

•

Join Date: Oct 2008

Posts: 2,612

Reputation: adatapost has much to be proud of

Solved Threads: 463

adatapost

Offline

Posting Maven

Re: How do i use the keyboard in my code?

Jul 8th, 2009

Set KeyPreview Property of Form1 at design time.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F1 Then
            MsgBox("F1 is pressed")
        Else
            If e.KeyCode = Keys.Escape Then
                MsgBox("Esc is pressed")
            End If
        End If
    End Sub
End Class
Public Class Form1
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F1 Then
            MsgBox("F1 is pressed")
        Else
            If e.KeyCode = Keys.Escape Then
                MsgBox("Esc is pressed")
            End If
        End If
    End Sub
End Class