Besturing in Visual Basic 2010

[JoZ1]

Dan moet je As Boolean ook weghalen.

Een functie retourneert namelijk altijd een waarde.

 

[MartinJM]

Type boven 'end function' 'return nothing'.

@joz: het is een overrides omdat de pijltjestoetsen anders niet werken. Daarom is het een function.

 

[JaccoVE]

Dat werkt nog steeds niet. Ik heb nu de volgende code:

Private BLinks, BRechts, BRechtdoor, BAchteruit As Boolean

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        BtnLinks.FlatStyle = FlatStyle.Standard
        BtnRechts.FlatStyle = FlatStyle.Standard
        BtnRechtdoor.FlatStyle = FlatStyle.Standard
        BtnAchteruit.FlatStyle = FlatStyle.Standard
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

    Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys)
        KeyAction(keyData)
    End Function

    Private Sub KeyAction(ByVal Key As Keys)
        If Key = Keys.Left Then
            BtnLinks.PerformClick()
            BtnLinks.FlatStyle = FlatStyle.Flat
        Else
            BtnLinks.FlatStyle = FlatStyle.Standard
        End If

        If Key = Keys.Right Then
            BtnRechts.PerformClick()
            BtnRechts.FlatStyle = FlatStyle.Flat
        Else
            BtnRechts.FlatStyle = FlatStyle.Standard
        End If

        If Key = Keys.Up Then
            BtnRechtdoor.PerformClick()
            BtnRechtdoor.FlatStyle = FlatStyle.Flat
        Else
            BtnRechtdoor.FlatStyle = FlatStyle.Standard
        End If

        If Key = Keys.Down Then
            BtnAchteruit.PerformClick()
            BtnAchteruit.FlatStyle = FlatStyle.Flat
        Else
            BtnAchteruit.FlatStyle = FlatStyle.Standard
        End If
    End Sub
End Class

 

[JaccoVE]

Ja dat werkt, de fout is nu weg. Alleen hoe zorg ik er nu voor dat ook echt de knop wordt ingedrukt? Want nu licht die alleen op

 

[MartinJM]

Als het goed is zorgt het 'PerformClick' deel daarvoor.... Moet je wel de namen hebben aangepast

 

[JaccoVE]

Ik heb de namen aangepast, maar hij klik er nog steeds niet op...

 

[JaccoVE]

Ik heb het opgelost door de code die bij de button staat neer te zetten waar nu PerformClick staat. Het programma werkt nu goed! Allemaal heel erg bedankt!