vb 2008 key down ereigniss

Gast #1182617 
Hallo,ich sitze hier schon einige Zeit an einem Problem und kann es 
nicht lösen.Ich möchte mit den Pfeiltasten eine Picturebox auf der Form 
verschieben.Klappt alles.Kommt ein Button mit auf die Form,klappts nicht 
mehr.Unter Form1Load habe ich Me.KeyPreview = True eingetragen.

Ansonsten siehst so aus:

Private Sub Form1_KeyDown1(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Left Then
            links()
        ElseIf e.KeyCode = Keys.Right Then
            rechts()
        End If

        e.Handled = True
    End Sub

Sub links()
        test.Left = test.Left - 50

    End Sub
    Sub rechts()
        test.Left = test.Left + 50

    End Sub

Wäre super,wenn mir jemand helfen könnte.

gruss

andy
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke 
Hi,

Versuch zuerst mal die Eigenschaft KeyPreview der Form auf true zu 
setzten.

Falls das nicht klappt kannst du zusätzlich folgendes probieren:

1
    protected override bool IsInputKey(Keys key)

2
    {

3
        switch (key)

4
        {

5
           case Keys.Right:

6
           case Keys.Left:

7
               return true;

8
        }

9
        return base.IsInputKey(key);

10
    }

(Ist zwar C#, sollte aber in VB ganz ähnlich aussehen)
Antwort Zitieren Bearbeiten Löschen Melden Danke
Gast 
Public Class Form1

    Sub links()
        Me.PictureBox1.Left = Me.PictureBox1.Left - 10
    End Sub
    Sub rechts()
        Me.PictureBox1.Left = Me.PictureBox1.Left + 10
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.Left Then
            links()
        ElseIf e.KeyCode = Keys.Right Then
            rechts()
        End If
        e.Handled = True
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click

    End Sub
End Class



Geht doch

Gruß
Antwort Zitieren Bearbeiten Löschen Melden Danke
Gast 
Hallo,
danke für die antworten.
Das ist ja das seltsame.Ich habe es jetzt genau wie juppi gemacht,klappt 
nicht.Die picturebox bewegt sich nicht.Lösche ich den Button,klappts 
einwandfrei.
Kann es daran liegen,das ich die Picturebox zur Laufzeit erzeuge?

gruss

Andy
Antwort Zitieren Bearbeiten Löschen Melden Danke
Gast 
Ein Beispiel wenn man die Fokusumschaltung nicht braucht:

Public Class Form1
    Private WithEvents PB1 As New PictureBox With {.BackColor = 
Color.Blue, .Parent = Me}

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles Me.Load
        PB1.SetBounds(100, 100, 32, 32)
        Me.KeyPreview = True
    End Sub
    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) 
As Boolean
        Select Case keyData
            Case Keys.Left : PB1.Left -= 10
            Case Keys.Right : PB1.Left += 10
        End Select
    End Function
End Class

Gottfried
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 17 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.