visual basic irritant geluid

[mastermindzh]

visual basic... weer een probleempje ben nu al met het volgende project bezig en ben het wat aan het uitbreiden voor meer functies

maar elke keer als je op enter drukt om naar een andere site te gaan(in het browser gedeelte) dan hoor je POENG een raar geluid dus op vista is het POENG en op XP is het udu(error sound) ... nogal frustrerend want dit geeft de indruk dat enter niet werkt... dat doet ie dus wel

hier de code voor enter

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
        End If
    End Sub

 

[The Mighty Atom]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then
            Me.Text = TextBox1.Text 'Deze regel vervangen met jou CType(TabControl1 etc code
            e.Handled = True
        End If

    End Sub

Ik heb ondekt dat het niet werkt als KeyDown als event gebruikt. Met KeyPress werkt het wel.

 

[mastermindzh]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then
            Me.Text = TextBox1.Text 'Deze regel vervangen met jou CType(TabControl1 etc code
            e.Handled = True
        End If

    End Sub

Ik heb ondekt dat het niet werkt als KeyDown als event gebruikt. Met KeyPress werkt het wel.

het werkt wel :thumb: 100% maar ik krijg geluid is dat met KeyPress ook weg (kan nu even niet proberen)
maar het werkt wel met enter ik krijg alleen een raar geluid

 

[mastermindzh]

als ik het vervang met keypress kan ik niet meer typen in de combobox enig idee?

 

[The Mighty Atom]

als ik het vervang met keypress kan ik niet meer typen in de combobox enig idee?

Ehm... nee.
Het werkt anders prima bij mij. Post eens je nieuwe code.

 

[mastermindzh]

Ehm... nee.
Het werkt anders prima bij mij. Post eens je nieuwe code.

 Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)

    End Sub

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Keys.Enter Then CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)

End Sub

 

[mastermindzh]

Ehm... nee.
Het werkt anders prima bij mij. Post eens je nieuwe code.

 Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)

    End Sub

NIEUWE!!

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Keys.Enter Then CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)

End Sub