Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Populate Listview from textbox

Posted on 2008-06-18
4
Medium Priority
?
770 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:
Robin earned 1200 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 800 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

Ask an Anonymous Question!

Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.

Question has a verified solution.

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

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…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
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…

963 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