Why can not select all text in textbox after focus to textbox ?

[Nicomendox]

In then form there is TextBox and a ListBox. When I Press Down or Up Key I want to Select ListBox item. Then After Selected item comes into the TextBox and Then after I want to select all Text in TextBox. But I couldn't do it.

Where must I change into the code ?

Advanced Thanks.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ListBox1.Items.Add("Times New Roman")
       ListBox1.Items.Add("Arial")
       ListBox1.Items.Add("Arial Narrow")
       ListBox1.Items.Add("Monotype corsiva")
       ListBox1.Items.Add("Verdana")
       ListBox1.Items.Add("Andelip")
       ListBox1.Items.Add("Obit BT")
       ListBox1.Items.Add("LCD")
       ListBox1.Items.Add("Western")
       ListBox1.Items.Add("Roman")

       ListBox1.SelectedIndex = 1
       TextBox1.Text = ListBox1.SelectedItem.ToString

   End Sub

   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Down Then
           If ListBox1.SelectedIndex <= ListBox1.Items.Count - 2 Then
               ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
               TextBox1.Text = ListBox1.SelectedItem.ToString

               ListBox1.Focus()
           End If
       End If

       If e.KeyCode = Keys.Up Then
           If ListBox1.SelectedIndex >= 1 Then
               ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
               TextBox1.Text = ListBox1.SelectedItem.ToString

               ListBox1.Focus()
           End If
       End If
   End Sub

   Private Sub ListBox1_GotFocus(sender As Object, e As EventArgs) Handles ListBox1.GotFocus
       TextBox1.SelectAll()
       TextBox1.Focus()
   End Sub

[Delaney]

Hello,

that's because you use the TextBox1.KeyDown event instead of using the listbox1.KeyDown event...

regards

[Delaney]

By the way , there were a few other errors :

the index start at 0, not 1
when you press the down key the listbox already go to next element so when you do that

 ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

you go to the second next element..

the next element is selected after the end of the keydown event so you need

TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex + 1).ToString

instead of

TextBox1.Text = ListBox1.SelectedItem.ToString

here is a correction

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ListBox1.Items.Add("Times New Roman")
        ListBox1.Items.Add("Arial")
        ListBox1.Items.Add("Arial Narrow")
        ListBox1.Items.Add("Monotype corsiva")
        ListBox1.Items.Add("Verdana")
        ListBox1.Items.Add("Andelip")
        ListBox1.Items.Add("Obit BT")
        ListBox1.Items.Add("LCD")
        ListBox1.Items.Add("Western")
        ListBox1.Items.Add("Roman")

        ListBox1.SelectedIndex = 0
        TextBox1.Text = ListBox1.SelectedItem.ToString

    End Sub

    Private Sub listbox_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
        If e.KeyCode = Keys.Down Then
            If ListBox1.SelectedIndex < ListBox1.Items.Count Then
                TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex + 1).ToString
            End If
        End If

        If e.KeyCode = Keys.Up Then
            If ListBox1.SelectedIndex > 0 Then
                TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex - 1).ToString
            End If
        End If
    End Sub


End Class

[Nicomendox]

By the way , there were a few other errors :

the index start at 0, not 1
when you press the down key the listbox already go to next element so when you do that

 ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

you go to the second next element..

the next element is selected after the end of the keydown event so you need

TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex + 1).ToString

instead of

TextBox1.Text = ListBox1.SelectedItem.ToString

here is a correction

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ListBox1.Items.Add("Times New Roman")
        ListBox1.Items.Add("Arial")
        ListBox1.Items.Add("Arial Narrow")
        ListBox1.Items.Add("Monotype corsiva")
        ListBox1.Items.Add("Verdana")
        ListBox1.Items.Add("Andelip")
        ListBox1.Items.Add("Obit BT")
        ListBox1.Items.Add("LCD")
        ListBox1.Items.Add("Western")
        ListBox1.Items.Add("Roman")

        ListBox1.SelectedIndex = 0
        TextBox1.Text = ListBox1.SelectedItem.ToString

    End Sub

    Private Sub listbox_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
        If e.KeyCode = Keys.Down Then
            If ListBox1.SelectedIndex < ListBox1.Items.Count Then
                TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex + 1).ToString
            End If
        End If

        If e.KeyCode = Keys.Up Then
            If ListBox1.SelectedIndex > 0 Then
                TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex - 1).ToString
            End If
        End If
    End Sub


End Class

And Where is the code that for Select All Text in TextBox ?

This is not what I want. I want same as FontDialogBox. when in TextBox, keydown or keyup Move next or prev item in ListBox and TextBox fill ListBox item (toString) and Select All in TextBox.

Where is this part in your Code ?

[.paul.]

Private Sub listbox_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
    If e.KeyCode = Keys.Down Then
        If ListBox1.SelectedIndex < ListBox1.Items.Count Then
            TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex + 1).ToString
            TextBox1.SelectAll()
        End If
    End If

    If e.KeyCode = Keys.Up Then
        If ListBox1.SelectedIndex > 0 Then
            TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex - 1).ToString
            TextBox1.SelectAll()
        End If
    End If
End Sub

[passel]

He wants to Up and Down arrow in the Textbox.

Paul's code doesn't work because of Event order, I believe.
A slight change to Paul's code to Handle the event for the Textbox, and to delay the call to SelectAll() until pending events have been processed.

  Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.Down Then
      If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1
        TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex).ToString
        Me.BeginInvoke(Sub() TextBox1.SelectAll())
      End If
    End If

    If e.KeyCode = Keys.Up Then
      If ListBox1.SelectedIndex > 0 Then
        ListBox1.SelectedIndex -= 1
        TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex).ToString
        Me.BeginInvoke(Sub() TextBox1.SelectAll())
      End If
    End If
  End Sub

[Nicomendox]

He wants to Up and Down arrow in the Textbox.

Paul's code doesn't work because of Event order, I believe.
A slight change to Paul's code to Handle the event for the Textbox, and to delay the call to SelectAll() until pending events have been processed.

  Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.Down Then
      If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1
        TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex).ToString
        Me.BeginInvoke(Sub() TextBox1.SelectAll())
      End If
    End If

    If e.KeyCode = Keys.Up Then
      If ListBox1.SelectedIndex > 0 Then
        ListBox1.SelectedIndex -= 1
        TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex).ToString
        Me.BeginInvoke(Sub() TextBox1.SelectAll())
      End If
    End If
  End Sub

YES.... ABSOLUTELY YESSSS...

THANK YOU soo much PASSEL. Only you understook what I want to do. And 100% CORRECT solution for me.

GOD BLESS YOU.

[.paul.]

@passel - you are the chosen one