Solved

Populate Listview from textbox

Posted on 2008-06-18
4
728 Views
Last Modified: 2013-12-25
How can i populate a listview from data in the textbox??

I have a textbox which contains the following :

  _________________
| 1-5, 6-10, 11-15        |

I would like to populate a listbo based on this data entered in the textbox and should be
__________
id | min | max|
1  |   1   |   5
 2  |  6   |   10
 3  |  11 |  1 5

I tried several functions, such as charcount...  but could not come up with a solution. Anyhelp will be appreciated!!
0
Comment
Question by:richammond
4 Comments
 
LVL 16

Accepted Solution

by:
robinu earned 300 total points
ID: 21812871
In VB6, you can use this:

    Dim l_sTxt As String

    Dim l_sPc() As String, l_sPm() As String

    Dim l_lIdx As Long

    Dim l_oLi As ListItem

    

    Call ListView1.ListItems.Clear

    

    l_sTxt = Text1.Text

    If l_sTxt <> "" Then

        l_sPc = Split(l_sTxt, ",")

        For l_lIdx = LBound(l_sPc) To UBound(l_sPc)

            Set l_oLi = ListView1.ListItems.Add(, , CStr(l_lIdx + 1))

            l_sPm = Split(Trim(l_sPc(l_lIdx)), "-")

            Call l_oLi.ListSubItems.Add(, , CStr(l_sPm(0)))

            Call l_oLi.ListSubItems.Add(, , CStr(l_sPm(1)))

        Next l_lIdx

    End If

Open in new window

0
 
LVL 53

Assisted Solution

by:Dhaest
Dhaest earned 200 total points
ID: 21812934
So you want to populate your listview with several columns (like http://www.developerfusion.co.uk/show/74/3/?bcsi_scan_165B90ACFD7A1518=eMkQIvd2u6XwTQZRpVb9+QUAAAA0SjQA)

To split your string into small pieces
Dim SplitStr()
SplitStr = Split(myTextbox.text, ",")

in example above you'll get
splitstr(0) = 1-5
splitstr(0) = 6-10
splitstr(0) = 11-15

Dim SplitStr()

SplitStr = Split(myTextbox.text, "-")
 

For intX = 0 To UBound(SplitStr)

   dim smallSplit()

   smallSplit = Split(splitstr(0),",")

   myListbox.listItems.add , ,smallSplit(0)

   myListBox.listItems(i).Subitems(1) = smallsplit(1)

next

Open in new window

0
 
LVL 7

Author Closing Comment

by:richammond
ID: 31468334
Cheers guys!!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…

910 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

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now