Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Listview Question

Posted on 2001-06-22
2
Medium Priority
?
184 Views
Last Modified: 2011-09-20
I have a listview on a form - I can count the number of selected items asing the following code

        Dim li As ListItem
        Dim i As Long
       
        For Each li In ListView1.ListItems
            If li.Selected Then
                Debug.Print li.Index & " is selected" & vbCrLf
               
            End If
        Next

What I would now like to do is get the text in column 3 for each item selected and store it into an array - then reference each entry in the array passing it to another function

If you require any clarification please ask

DWE
0
Comment
Question by:DWE
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 28

Accepted Solution

by:
Ark earned 200 total points
ID: 6221084
Dim li As ListItem
Dim i As Long
Dim SSubValue() As String
Dim n As Long

Redim SSUbValue(0)

ReDim Preserve SSubValues(ListView.ListItems.Count)
For Each li In ListView1.ListItems
    If li.Selected Then
       n = n + 1
       SSubValues(n) = li.SSubItems(3)
    End If
Next

Now, you have access to every array item by ListView.ListIndex var


Cheers
0
 

Author Comment

by:DWE
ID: 6221922
A couple of typos but an excellent answer

Thanks Ark

DWE
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

721 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question