Creating a Favoriter [SOLVED]

[yjy1110]

I need help with coding with the link below.

<!-- m --><a class="postlink" href="http://alltertainment.xtreemhost.com/Capture2%20copy.jpg">http://alltertainment.xtreemhost.com/Ca ... 20copy.jpg</a><!-- m -->

[brandonio21]

It seems that the link is broken,

< Ooops... It seems you have arrived here because of one of the below reasons: >

* Forbidden
* Access to a private or password protected folder was attempted

[yjy1110]

<!-- s:? --><img src="{SMILIES_PATH}/icon_e_confused.gif" alt=":?" title="Confused" /><!-- s:? --> I wonder why that didn't work.

Try this:
http://picasaweb.google.com/112595932115...0939570242

[brandonio21]

Alright heres what your gonna wanna do. first off

Code:

Public listbox as new listbox

Then, for step 1.

Code:

listbox1.items.add(text_title.text)
listbox.items.add(text_URL.text)

'Step 2/step3
listbox.selectedindex = listbox1.selectedindex
webbrowser.navigate(listbox.selecteditem)


'To delete
listbox.selectedindex = listbox1.selectedindex
listbox.items.remove(listbox.selecteditem)
listbox1.items.remove(listbox1.selecteditem)

I hope this somewhat helped!

[yjy1110]

<!-- s:? --><img src="{SMILIES_PATH}/icon_e_confused.gif" alt=":?" title="Confused" /><!-- s:? --> For Step 2, 3 and 4 worked, but step 1 didn't work.
The coding that has the [ ] has an error in VB Express.

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.ListBox1.Items.Add([text_title].text)
        Form1.listbox.Items.Add([text_URL].text)
    End Sub

Not just that, I think you didn't tell me how to do the edit type...
(I think you just copy the code and say replace in the coding)

Thank you and good luck!
(P.S. Ill upload it onto the Programs Topic <!-- s --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="" title="Very Happy" /><!-- s --> )

[brandonio21]

For

Code:

Form1.ListBox1.Items.Add([text_title].text)
        Form1.listbox.Items.Add([text_URL].text)

You dont need the brackets. Text_title is simply a name of a textbox, and so is text_url

[yjy1110]

Now, I am 99% complete <!-- s:mrgreen: --><img src="{SMILIES_PATH}/icon_mrgreen.gif" alt=":mrgreen:" title="Mr. Green" /><!-- s:mrgreen: --> . Just one more thing.

How do I save the Items of the listbox to an ini (without the SaveFileDialog)?

[brandonio21]

This code should work for ya.

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
  for each item in listbox1.items
   writer.write(item + vbNewLine)
  next
writer.close
writer.dispose

[yjy1110]

<!-- shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt="hock:" title="Shocked" /><!-- shock: --> Whoops...
(99.5% done) - This is the last request!!!!!!!!
THE VERY LAST!

<!-- s --><img src="{SMILIES_PATH}/icon_arrow.gif" alt="" title="Arrow" /><!-- s --> <!-- s --><img src="{SMILIES_PATH}/icon_arrow.gif" alt="" title="Arrow" /><!-- s --> How to load up the items into the listbox? (when form1 is loaded).

THE VERY LAST REQUEST!!!!!!!!!!!!!

Thank you very much for helping me, though!
My grandmoter wants me to make it and I needed some help so..........

[brandonio21]

Alright this will load it from the .ini

Code:

Dim reader as new system.io.streamreader(my.application.info.directorypath + "/settings.ini")
dim split() as string = reader.readtoend.split(vbnewline)
for each entry in split
listbox1.items.add(entry)
next
reader.close
reader.dispose

Hope this is what you needed!

[yjy1110]

When I load every time, The list has an extra blank item in the list. Anything to fix that <!-- s:?: --><img src="{SMILIES_PATH}/icon_question.gif" alt=":?:" title="Question" /><!-- s:?: -->

Also, Thank you VERY much for helping me make this. If you have been frusturated about me, I am sorry for that <!-- s --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="" title="Very Happy" /><!-- s --> <!-- s --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="" title="Very Happy" /><!-- s -->

I will put this in the "Share your programs" topic and check the "About..." link too! <!-- s:mrgreen: --><img src="{SMILIES_PATH}/icon_mrgreen.gif" alt=":mrgreen:" title="Mr. Green" /><!-- s:mrgreen: -->

[brandonio21]

Haha no problem at all. This forum is for helping people, not getting mad at them <!-- s --><img src="{SMILIES_PATH}/icon_razz.gif" alt="" title="Razz" /><!-- s --> When the form loads you can do this

Code:

listbox1.items.remove("")
listbox.items.remove("")

[yjy1110]

Code:

ListBox1.Items.Remove("")

<!-- shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt="hock:" title="Shocked" /><!-- shock: --> This still doesn't work

Code:

ListBox.Items.Remove("")

<!-- shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt="hock:" title="Shocked" /><!-- shock: --> This has an error.

I tried checking the ini file and it seems to be having a "Enter" character. (Because I copied the character and when I pasted it, it just did a new line)

How do I do ("") part as a enter? I tried and It turned into a error...

[brandonio21]

Alright, I have found a solution <!-- s --><img src="{SMILIES_PATH}/icon_e_smile.gif" alt="" title="Smile" /><!-- s -->
Replace this :

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
  for each item in listbox1.items
   writer.write(item + vbNewLine)
  next
writer.close
writer.dispose

With this..

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
dim i as integer = 0  
do until i = listbox1.items.count - 1
listbox1.selectedindex = i
if i < listbox1.items.Ubound - 1 then
writer.write(listbox1.selecteditem + vbNewLine)
else
writer.write(listbox1.selecteditem)
end if
i = i + 1
next
writer.close
writer.dispose

Tell me how it goes! <!-- s --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="" title="Very Happy" /><!-- s -->

[yjy1110]

Code:

Do Until i = ListBox1.Items.Count - 1

<!-- s:!: --><img src="{SMILIES_PATH}/icon_exclaim.gif" alt=":!:" title="Exclamation" /><!-- s:!: --> It says that a "Do" solution must end with a ending "Loop". Shall I do that?

Code:

If i < ListBox1.Items.Ubound - 1 Then

<!-- s:!: --><img src="{SMILIES_PATH}/icon_exclaim.gif" alt=":!:" title="Exclamation" /><!-- s:!: --> It says that the word "Ubound" is not a member of System.Windows.Forms.Listbox.ObjectCollection

Code:

Next

<!-- s:!: --><img src="{SMILIES_PATH}/icon_exclaim.gif" alt=":!:" title="Exclamation" /><!-- s:!: --> It says that it need a matching "For" for this solution.

I hope that there is another solution to be thought of...

[brandonio21]

Alright, So I was totally mixed up with that previous coding. Sorry!

Code:

Dim writer As New System.IO.StreamWriter(My.Application.Info.DirectoryPath + "/settings.ini")
        Dim i As Integer = 0
        Do Until i = ListBox1.Items.Count
            ListBox1.SelectedIndex = i
            If i < ListBox1.Items.Count Then
                writer.Write(ListBox1.SelectedItem + vbNewLine)
            Else
                writer.Write(ListBox1.SelectedItem)
            End If
            i = i + 1
        Loop
        writer.Close()
        writer.Dispose()

[yjy1110]

Now this is a problem. It still doesn't work.

What if I change the listbox to a new window of RadioButtons? If I could, can you give me the code?

This is really getting me frusturated !! <!-- s:evil: --><img src="{SMILIES_PATH}/icon_evil.gif" alt=":evil:" title="Evil or Very Mad" /><!-- s:evil: --> <!-- s:evil: --><img src="{SMILIES_PATH}/icon_evil.gif" alt=":evil:" title="Evil or Very Mad" /><!-- s:evil: -->

[xolara]

This is the one brandon came with first

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
  for each item in listbox1.items
   writer.write(item + vbNewLine)
  next
writer.close
writer.dispose

but i guess if remove this + vbnewline

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
  for each item in listbox1.items
   writer.write(item)
  next
writer.close
writer.dispose

since its not needed becourse its a listbox once a new item is made it will automaticly do that and i think this is the reason of the blank field

[brandonio21]

You can't give up on this method! <!-- s --><img src="{SMILIES_PATH}/icon_razz.gif" alt="" title="Razz" /><!-- s -->
(Try this for saving the listbox)

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
  for each item in listbox1.items
   writer.write(vbNewLine + item)
  next
writer.close
writer.dispose

Then when you load the listbox, say (Add this to your code)

Code:

Listbox1.items.removeat(0)
listbox.items.removeat(0)

I'm pretty sure this will work, sorry for all these troubles <!-- s:o --><img src="{SMILIES_PATH}/icon_e_surprised.gif" alt=":o" title="Surprised" /><!-- s:o -->

[yjy1110]

Code:

ListBox.Items.removeat(0)

Why do you put in ListBox1 and ListBox?
Does ListBox mean like another number??

Also:

THANK YOU VERY MUCH!

Thanks for helping me, It finally worked!