ListBox Code to ListView!

ipwnuuaal5 · 2010-10-19T01:11:37.000Z

[quote=Jason;2935735] I know that, but I mean what was his code designed to do in the first place? Edit, if you want to get the currently selected item and it's index... Globals: Private lvItem As ListViewItem Private lvIndex As Integer = 0 Then add this to substantiate those items: Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick lvItem = ListView1.GetItemAt(e.X, e.Y) lvIndex = ListView1.Items.IndexOf(lvItem) End Sub Then change your original code to this: If not lvItem is nothing then Dim str As String = Web.DownloadString("") If lvIndex = ListView1.Items.Count - 1 Then Dim x1 As Integer = str.IndexOf(lvItem.Text, 0) + lvItem.Text.Length + 1 Dim MJ As String = Mid(str, x1).Trim TextBox1.Text = MJ Else Dim x1 As Integer = str.IndexOf(lvItem.Text, 0) + lvItem.Text.Length + 1 Dim x2 As Integer = str.IndexOf(ListView1.Items(lvIndex + 1), x1) + 1 Dim MJ As String = Mid(str, x1, x2 - x1).Trim TextBox1.Text = MJ End If End if [/quote] Error on this line: [quote]Dim x2 As Integer = str.IndexOf(ListView1.Items(lvIndex + 1), x1) + 1 [/quote]

Originally Posted by Jason

I know that, but I mean what was his code designed to do in the first place?

Edit, if you want to get the currently selected item and it's index...

Globals:
[php]
Private lvItem As ListViewItem
Private lvIndex As Integer = 0
[/php]

Then add this to substantiate those items:
[php]
Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
lvItem = ListView1.GetItemAt(e.X, e.Y)
lvIndex = ListView1.Items.IndexOf(lvItem)
End Sub
[/php]

Then change your original code to this:
[php]
If not lvItem is nothing then
Dim str As String = Web.DownloadString("")
If lvIndex = ListView1.Items.Count - 1 Then

Dim x1 As Integer = str.IndexOf(lvItem.Text, 0) + lvItem.Text.Length + 1
Dim MJ As String = Mid(str, x1).Trim

TextBox1.Text = MJ

Else
Dim x1 As Integer = str.IndexOf(lvItem.Text, 0) + lvItem.Text.Length + 1
Dim x2 As Integer = str.IndexOf(ListView1.Items(lvIndex + 1), x1) + 1
Dim MJ As String = Mid(str, x1, x2 - x1).Trim
TextBox1.Text = MJ
End If
End if
[/php]

Error on this line:

Dim x2 As Integer = str.IndexOf(ListView1.Items(lvIndex + 1), x1) + 1

Originally Posted by ipwnuuaal5

Error on this line:

Ahh, my mistake.

[php]
If not lvItem is nothing then
Dim str As String = Web.DownloadString("")
If lvIndex = ListView1.Items.Count - 1 Then

Dim x1 As Integer = str.IndexOf(lvItem.Text, 0) + lvItem.Text.Length + 1
Dim MJ As String = Mid(str, x1).Trim

TextBox1.Text = MJ

Else
Dim x1 As Integer = str.IndexOf(lvItem.Text, 0) + lvItem.Text.Length + 1
Dim x2 As Integer = str.IndexOf(ListView1.Items(lvIndex + 1).Text, x1) + 1
Dim MJ As String = Mid(str, x1, x2 - x1).Trim
TextBox1.Text = MJ
End If
End if
[/php]

Should probably fix it up. I didn't actually test any of this, just wrote it out in my reply haha. Forgot to select the text property.

Maybe I shouldn't leave

Code:

Private Sub ListView_SelectedIndexChanged(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Listview1.SelectedIndexChanged
        Dim SelectedItems As ListView.SelectedListViewItemCollection = _
            CType(sender, ListView).SelectedItems

        If (SelectedItems.Count > 0) Then
            ' What you want to happen here
       ' In your case, MJ yada yada
       Else
        'Yada yada
        End If
End Sub

Change listview1 to your listview name,

Should work, That's one of those MSDN Standards

Originally Posted by NextGen1

Maybe I shouldn't leave

Code:

Private Sub ListView_SelectedIndexChanged(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Listview1.SelectedIndexChanged
        Dim SelectedItems As ListView.SelectedListViewItemCollection = _
            CType(sender, ListView).SelectedItems

        If (SelectedItems.Count > 0) Then
            ' What you want to happen here
       ' In your case, MJ yada yada
       Else
        'Yada yada
        End If
End Sub

Change listview1 to your listview name,

Should work, That's one of those MSDN Standards

OMG LOL, that's not his problem xD !

Oh, Thought he was looking to get selected, I din't read much of anything really....

/RageQuits

Originally Posted by NextGen1

Oh, Thought he was looking to get selected, I din't read much of anything really....

/RageQuits

Come back! I forgive you

Similar Threads

Tags for this Thread