Solved

Populate Listview from textbox

Posted on 2008-06-18
4
725 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

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…

706 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

18 Experts available now in Live!

Get 1:1 Help Now