adding with lists

[Steve_F]

I want to load a list from a text file into a listbox. Then i want to add text before and after the word in the list. Then add it to a new list. I can do mot of it except i dont know how to get the value of the object in the list box. For instance if it says apple i dont know to get get the computer to know that. list1.******. and i dont know how to take away the selected value and move to the next one. Can anyone help?

[Madboy]

You would need some kind of Array for that. To correctly identify which item has been clicked

[Steve_F]

well i figured out you can add it by doing list1.text but how do you select the first item and tae it off then go to the next?

[Madboy]

You mean to delete the item from the list?

Not sure on the syntax, but something like:

List1.ListItems.Remove (List1.Selected.Index)

I think its something like that, ill have a look in a bit if it doesnt work..

[Madboy]

Oops, i was looking at ListView. here is your code:

List1.RemoveItem (Selected)

[Steve_F]

and how do i make it select the next item after it deletes?

[Madboy]

It should do it automatically i think

[Steve_F]

ok thanks for the help

[Madboy]

No problems, if it doesnt select it automatically (which im sure it does), you just need to set focus on the List1.Index property.

[Steve_F]

its not working how do you do that?

[Madboy]

Try something like:

List1.Selected(0)
'Where (0) is the List Index

[Steve_F]

This is my code.

Private Sub Command1_Click()
    Dim sFile As String
    
    CommonDialog1.Filter = "Text (*.txt) | *.txt"
    CommonDialog1.CancelError = False
    CommonDialog1.ShowOpen
    
    sFile = CommonDialog1.FileName
    
    If Len(sFile) > 0 Then
        OpenFile List1, sFile
    End If
End Sub
 
Private Sub Command3_Click()
Dim iCnt As Integer
 
Open "C:\list.txt" For Output As #1
For iCnt = 0 To List2.ListCount - 1
Print #1, List2.List(iCnt)
Next
Close #1
 
Shell "Notepad.exe C:\list.txt", vbNormalFocus
End Sub
 
Private Sub Command4_Click()
Timer1.Enabled = True
End Sub
 
Private Function OpenFile(lstBox As ListBox, FileName As String) As String
    Dim FF As Integer
    Dim sString As String
 
    FF = FreeFile
    Open FileName For Input As #FF
    Do Until EOF(FF)
        Line Input #FF, sString
        If sString <> "" Then
            lstBox.AddItem sString
        End If
    Loop
 
    Close #FF
End Function
 
Private Sub Timer1_Timer()
While List1.ListCount > 0
List2.AddItem ("List1.AddItem (Text1.Text & "" & List1.Text & "")")
List1.RemoveItem (Selected)
List1.Selected (0)
Wend
End Sub

I get an invalid use of property on the List1.Selected(0)

[Madboy]

Yeah it does, im busy at the mo to check the correct syntax, hopefully someone else can pick up on this thread and help you

Regards,

P.S i forgot you treat this as a boolean value:

List1.Selected (0) = True

for example

[Steve_F]

All of the syntax is correct all i need is how to select the top item in the list.

[Walter]

Like Madboy said:

List1.Selected(0) = True

... works perfectly

[Madboy]

I would have confirmed that it worked, but i was/am really busy