Need to get Keyboard respone in VB.Net

Author

Message

Frank C

13

Years of Service

User Offline

Joined: 3rd Jul 2010

Location: Houston TX

Posted: 4th Jul 2010 16:07

Link

I am trying to get the Up/Down/Left/Right keys to manipulate my opject and perform soem other calculations. I have everything working but this. I a thread that had some information but the threads get locked here if no response for a while and can't relate back.
It mentions that since I am using WinForms I have to use the CtlDarkGDKViewport control on the form to get the keyboard event, I have tried using the KeyFown event but am having some issues passing that back to the Application Class to use in the Gameloop procedure. The DarkGDK.IO.Keyboard proprties are readOnly so I can't set them. Any help would be appreciated.

Back to top

Profile PM Email

Huntinator

14

Years of Service

User Offline

Joined: 21st Dec 2009

Location: Channel 57

Posted: 13th Jul 2010 23:39

Link

Put this in your form:

+ Code Snippet

    Public Keys As New Collection

    Private Sub FKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If Keys.Contains(e.KeyCode) = False Then
            Keys.Add(e.KeyCode, e.KeyCode)
        End If
    End Sub
    Private Sub FKeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If Keys.Contains(e.KeyCode) = True Then
            Keys.Remove(CStr(e.KeyCode))
        End If
    End Sub

Paste this where ever you need to detect if a key was pressed.

+ Code Snippet

If [Form Name].Keys.Contains(Keys.[Key to Detect]) Then
       [Code]
End If

Hope it Helps.

Back to top

Profile PM

Frank C

13

Years of Service

User Offline

Joined: 3rd Jul 2010

Location: Houston TX

Posted: 15th Jul 2010 21:49

Link

Thanks i will give this a try later today or tonight when I get home

Back to top

Profile PM Email

Frank C

13

Years of Service

User Offline

Joined: 3rd Jul 2010

Location: Houston TX

Posted: 16th Jul 2010 16:26

Link

Tried it out, still did not work, looks like the KeyUp and KeyDown procedures are not being detected, I did get it to somewhat work with the KeyPress procedure but I had to constantly set the keycode value back to 0 in the code section or it would constantly run that section of code.

+ Code Snippet

Private Sub CtlDarkGDKViewport1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CtlDarkGDKViewport1.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Left) Then
            intKeyValue = 37
        ElseIf e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Up) Then
            intKeyValue = 38
        ElseIf e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Right) Then
            intKeyValue = 39
        ElseIf e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Down) Then
            intKeyValue = 40
        End If
    End Sub

+ Code Snippet

'If IO.Keyboard.Up Then
       If _fMain.intKeyValue = 38 Then
                box.MoveUp(MSFrame) 'Move Object 1,MSFrame
                intPlayerExp = intPlayerExp + 1
                _fMain.intKeyValue = 0
            End If
            ' If IO.Keyboard.Down Then
            If _fMain.intKeyValue = 40 Then
                box.MoveDown(-MSFrame)
                intPlayerExp = intPlayerExp + 1
                _fMain.intKeyValue = 0
            End If
            ' If IO.Keyboard.Left Then
            If _fMain.intKeyValue = 37 Then
                dblAng = dblAng + TSFrame
                intPlayerExp = intPlayerExp + 1
                _fMain.intKeyValue = 0
            End If
            ' If IO.Keyboard.Right Then
            If _fMain.intKeyValue = 39 Then
                dblAng = dblAng + TSFrame
                intPlayerExp = intPlayerExp + 1
                _fMain.intKeyValue = 0
            End If
            box.YRotate(dblAng)

Back to top

Profile PM Email

Huntinator

14

Years of Service

User Offline

Joined: 21st Dec 2009

Location: Channel 57

Posted: 18th Jul 2010 22:59

Link

I forgot to mention that the form that you are detecting keys should have the KeyPreview property set to true. Then the Keydown and KeyUp Events should be raised properly. My apologies for forgeting to mention that.

Back to top

Profile PM

Frank C

13

Years of Service

User Offline

Joined: 3rd Jul 2010

Location: Houston TX

Posted: 19th Jul 2010 20:24

Link

That worked thanks

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark GDK .NET / Need to get Keyboard respone in VB.Net