Favorites

how do you make a favorites page that can add or remove items on the list and if you double click it it will bring you there???:sad:

 

you would probably want to use a txt file. i could probably whip something up later.

 

ok i guess that helps

 

ok i got one to work: heres the code you need first:

Code:

    Sub updatelistbox(ByVal file As String, ByVal listbox As ListBox)
        Dim i As String, h As Integer = 1
        file = My.Computer.FileSystem.ReadAllText(file)
        listbox.Items.Clear()
        Do
            i = Split(file, "(&*&)")(h)
            h = h + 1
            If i = "!end" Then Exit Do
            listbox.Items.Add(i.ToString)
        Loop
    End Sub

    Sub savelistbox(ByVal listbox As ListBox, ByVal file As String)
        Dim i As Integer, text As String = ""
        My.Computer.FileSystem.DeleteFile(file)
        For i = 0 To ListBox1.Items.Count - 1
            text = text & "(&*&)" & ListBox1.Items.Item(i).ToString
        Next
        My.Computer.FileSystem.WriteAllText(file, text & "(&*&)!end", True)
    End Sub

when you want to add to the listbox, just do this code:

Code:

listbox1.add(textbox1.text)

that saves it to a file called hi.txt, and saves the url from textbox1.text


now when you want to remove from the listbox do:

Code:

listbox1.remove(listbox1.selecteditem)

that removes the selected item in listbox1

for saving just do this:

Code:

savelistbox(ListBox1, "save.txt")

for loading do this:

Code:

updatelistbox("save.txt", ListBox1)

now for navigating to the selected listbox url, add this:

Code:

    Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        WebBrowser1.Navigate(ListBox1.SelectedItem)
    End Sub

in this case the webbrowser is called webbrowser1, and the listbox is called listbox1.


and there u have it! a working favorites.


wow i'm becoming a good programmer for being able to do that i'm proud of myself.

 

what does this do (&*&) and this ("!") or whats your msn im doing a cool project ill add you to credits but it will have to be your reall name beacause its a real program not a auto or *hit lke that this is going to be the cool version tehres one version at download.com

 

(&*&) divides the big long string of lots of URLS and stuff into seperate URLs. so in between each url there will be a (&*&).
and the ! basically signals the ending. so it has split.remove(split.indexof(!)) that will remove all text after the exclamation point.

 

omg im a noob at slipiting

 

i updated the code lol. this is MUCH more reliable

 

SlashShot, why don't you just use StreamReader & StreamWriter, it is 10 times faster?

It is way better to use Split.Split and VB.net it is way better to use a Split.index of then a Instr, because a Instr is old and an IndexOf seems to operate much faster.

For favorites you can make it operate much much faster when you add it into a arraylist. So when you close the program, it will add all the values to the .txt in the array. When you start it up, it will load it all into a arraylist from that file and then it will operate using the temp values in the arraylist.

This method is much faster because when you select a favourite it does not always have to call the streamreader.

 

ok thx everyone i was on vacation sory i didn't reply

oh ya and shot i tried it out one small problem in it wen it says listbox1.add (textbox1.text)

add is not a member of of listbox
try this

Code:

Me.ListBox1.Items.Add(TextBox1.Text)

\
and for remove

Code:

Me.ListBox1.Items.Remove(ListBox1.SelectedItem)