[Resolved] Listview Information

Ok I Have A List View Called skinlist and lets say i have an item in the listview called click me and i have a button called check. What's the code for when i press the check button it'll check to see if click me was selected and show a message box saying i selected click me.

Thx

You can use a loop checking the items for the .Selected property = true.

Code:

---

Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To Me.ListView1.ListItems.Count
        If Me.ListView1.ListItems(i).Selected = True Then
            MsgBox Me.ListView1.ListItems(i).Text & " is selected"
        End If
    Next
End Sub

---

Will It Work For A ListBox?

No you need to change it from Me.ListView1.ListItems to Me.List1.List

Sorry With A List Box I Get Thos Error:

Argument Not Optional

Then It HighLights This Code:

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Me.List1.List
If Me.List1.List(i).Selected = True Then
MsgBox Me.List1.List(i).Text & " is selected"
End If
Next
End Sub

Did I Rewrite This Correctly?

Use the ListCount property. Also, the Index for Listboxes is 0 based.

For i = 0 To Me.List1.ListCount - 1

I Changed It And It Says Invaild Qualifer On This Line:

Code:

---

If Me.List1.List(i).Selected = True Then

---

It HighLights The Word List.

When I Try To Run The Program I Get And Error That Says:

Invaild Qualifer

Then It Higlight This Word:

Code:

---

List

---

Of This Line:

Code:

---

If Me.List1.List(i).Selected = True Then

---

Anyone Know Why?

Try this.

Code:

---

Option Explicit

Private Sub Form_Load()
Dim x As Long

For x = 0 To 100
    List1.AddItem x
Next
End Sub


Private Sub Command1_Click()
If List1.ListIndex = -1 Then
    MsgBox "Please select from the list"
Else
    MsgBox "I selected " & List1.Text
End If
End Sub

---

Hope that helps! :)

Thankyou, May I Ask This Haves 100 Strings And Less Say I Change It To 10 Can I Have It Do Something Different For Each One I Do? Lets Say If I Select 0 Then It Can Open Form1, Then If I Select 1 It Can Open Form2. Is That Possible?

Yes you can.

Code:

---

Private Sub Command1_Click()
Dim frm As Form

If List1.ListIndex = -1 Then
    MsgBox "Please select from the list"
Else
    Select Case List1.Text
      Case 2
          Form2.Show
      Case 3
          Form3.Show
      '... etc etc
      Case Else
          Exit Sub
    End Select
End If
End Sub

---

Keeping it simple.