[Resolved] Listview Information

[GDOG34]

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

[RobDog888]

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

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

[GDOG34]

Will It Work For A ListBox?

[RobDog888]

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

[GDOG34]

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?

[brucevde]

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

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

[GDOG34]

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

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

It HighLights The Word List.

[GDOG34]

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

Invaild Qualifer

Then It Higlight This Word:

List

Of This Line:

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

Anyone Know Why?

[zynder]

Try this.

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!

[GDOG34]

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?

[zynder]

Yes you can.

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.