From ListBox to TextBox

[Guest AnakinVB]

Hello,

As you can see if you try out my code (below) I am able to populate a list box from whatever the user enters into a text box. However, I haven't quite gotten it to work in the reverse direction.

 

How can I populate a text box by single or double-clicking an item on a list box?

Here's what I've got so far:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox2.Text = Cstr(ListBox1.Items())

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       ListBox1.Items().Add(TextBox1.Text)
   End Sub

Any .NET suggestions?

thx,

Anakin

Edited August 28, 2002 by Derek Stone

[divil]

TextBox2.Text = CType(ListBox1.Items(ListBox1.SelectedIndex), String)

 

Using the vb tags helps people read your code by the way :)

[Guest AnakinVB]

Thanks divil

 

I will try to use the VB tags in this post. I'm guessing that I should use them like HTML tags. Feel free to show me the correct way if I get it wrong.

 

Anyway, now that I can populate my text box from my list box, I am trying to add in some error checking. If the list is empty, and you click on the listbox, my program crashes. I have made several different attempts to fix this. Now, I just get the message box no matter what.

 

**How can I fix this so that

a) the message box pops up only when the listbox is empty?

and

b) the text box populates when it is supposed to - i.e. the user has clicked on a list item?

 

Here is my latest .NET code:

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items().Add(TextBox1.Text)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex > Nothing Then
           TextBox2.Text = CType(ListBox1.Items(ListBox1.SelectedIndex), String)
       Else
           MsgBox("Items must be there to select them")
       End If

 

thx,

Anakin

Edited August 29, 2002 by Derek Stone

[divil]

Use square brackets on the VB tags.

 

You can check if the .SelectedIndex property is -1 to see if there is nothing selected.

[Guest AnakinVB]

Thanks divil, that worked. For the sake of testing the vb tags, I'm going to paste my working code here:

 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items().Add(TextBox1.Text)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex() = -1 Then
           MsgBox("Items must be there to select them")
       Else
           TextBox2.Text = CType(ListBox1.Items(ListBox1.SelectedIndex), String)
       End If

 

thx!

Anakin