Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Populate Listview from textbox

Posted on 2008-06-18
4
Medium Priority
?
779 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
3 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

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

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…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
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…
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…
Suggested Courses
Course of the Month13 days, 7 hours left to enroll

579 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