Listbox help

[kennykilla]

Ok so lets say a listbox has

________________________
|Hi                                  |
|Bye                                |
|                                     |
|                                     |
|                                     |
|                                     |
----------------------------

How would I make it so that when my command button is clicked the textbox (text1) gets hi, and another command button is clicked, and another textbox(text2) gets bye, and so on?

[kennykilla]

Erm, no one? =/

[DigiRev]

You could create an array of Command Buttons and an array of TextBoxes. And in the code, you could have something like:

Private Sub Command1_Click(Index As Integer)
    text1(Index).Text = list1.List(Index)
End Sub

[kennykilla]

There is a compile error saying procedure declaration does not match description of event or procedure having same name and highlights
Private Sub Command1_Click(Index As Integer)

[DigiRev]

You need to make a control array of the Textboxes and the Command Buttons by setting their Index properties to "0".

Here's a quick example I made.

[kennykilla]

How would I make this code, go through all of the lines of the list?

Private Sub Command2_Click(Index As Integer)
    Dim stuff As String
    Dim HTML As String
    RW(0).SetProxy List1.List(0)
    HTML = RW(0).Request("GET", "http://www.ipchicken.com/")
    stuff = GetBetween(yourIP, "<b>", "<br>")
    HTML = stuff
    If stuff = yourIP Then
    ' yourIP is a textbox, with the real IP
    List2.AddItem List1.List(0) & " doesn't work."
    Else
    List2.AddItem List1.List(0) & " works!"
    End If
End Sub

Basically RW is a winsock wrapper. Now this is a proxy checker (this isn't whole code). So how would I make it so it goes through the whole list, checking all of the IPs?

[kennykilla]

Also, how would you make a line on a listbox be copyable, but not editable?

[MartinLiss]

Also, how would you make a line on a listbox be copyable, but not editable?

That is the default behavior.

[ganeshmoorthy]

so you mean to say, you have a listbox which contains IP address and you want to check all the IP address, if so, use a loop and scan thru the list like this...

Dim i As Integer
For i = 0 To List1.ListCount - 1
    RW(0).SetProxy List1.List(i)
    '....and so on 
Next