BP Forums
Creating a Favoriter [SOLVED] - Printable Version

+- BP Forums (https://bpforums.info)
+-- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=55)
+--- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=56)
+---- Forum: VB.NET (Visual Basic 2010/2008) (https://bpforums.info/forumdisplay.php?fid=8)
+----- Forum: Programming Help (https://bpforums.info/forumdisplay.php?fid=9)
+----- Thread: Creating a Favoriter [SOLVED] (/showthread.php?tid=288)

Pages: 1 2

Creating a Favoriter [SOLVED] - yjy1110 - 01-19-2011

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 -->

Re: Creating a Favoriter - brandonio21 - 01-19-2011

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

Re: Creating a Favoriter - yjy1110 - 01-19-2011

<!-- 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/112595932115941796941/Pictures#5563888180939570242

Re: Creating a Favoriter - brandonio21 - 01-19-2011

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!

Re: Creating a Favoriter - yjy1110 - 01-20-2011

<!-- 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 <!-- sBig Grin --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="Big Grin" title="Very Happy" /><!-- sBig Grin --> )

Re: Creating a Favoriter - brandonio21 - 01-20-2011

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

Re: Creating a Favoriter - yjy1110 - 01-20-2011

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)?

Re: Creating a Favoriter - brandonio21 - 01-20-2011

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


Ooooooooooooooops................................ - yjy1110 - 01-21-2011

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

<!-- sArrow --><img src="{SMILIES_PATH}/icon_arrow.gif" alt="Arrow" title="Arrow" /><!-- sArrow --> <!-- sArrow --><img src="{SMILIES_PATH}/icon_arrow.gif" alt="Arrow" title="Arrow" /><!-- sArrow --> 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..........

Re: Creating a Favoriter - brandonio21 - 01-21-2011

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!

TROUBLESHOOTING!!!!!! - yjy1110 - 01-21-2011

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 <!-- sBig Grin --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="Big Grin" title="Very Happy" /><!-- sBig Grin --> <!-- sBig Grin --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="Big Grin" title="Very Happy" /><!-- sBig Grin -->

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: -->

Re: Creating a Favoriter - brandonio21 - 01-22-2011

Haha no problem at all. This forum is for helping people, not getting mad at them <!-- sTongue --><img src="{SMILIES_PATH}/icon_razz.gif" alt="Tongue" title="Razz" /><!-- sTongue --> When the form loads you can do this
Code:
listbox1.items.remove("")
listbox.items.remove("")


Re: TROUBLESHOOTING!!! - yjy1110 - 01-22-2011

Code:
ListBox1.Items.Remove("")
<!-- sConfusedhock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt="Confusedhock:" title="Shocked" /><!-- sConfusedhock: --> This still doesn't work

Code:
ListBox.Items.Remove("")
<!-- sConfusedhock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt="Confusedhock:" title="Shocked" /><!-- sConfusedhock: --> 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...

Re: Creating a Favoriter - brandonio21 - 01-22-2011

Alright, I have found a solution <!-- sSmile --><img src="{SMILIES_PATH}/icon_e_smile.gif" alt="Smile" title="Smile" /><!-- sSmile -->
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! <!-- sBig Grin --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="Big Grin" title="Very Happy" /><!-- sBig Grin -->

Re: Creating a Favoriter - yjy1110 - 01-22-2011

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...

Re: Creating a Favoriter - brandonio21 - 01-22-2011

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()


Re: Creating a Favoriter - yjy1110 - 01-23-2011

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: -->

Re: Creating a Favoriter - xolara - 01-23-2011

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

Re: Creating a Favoriter - brandonio21 - 01-23-2011

You can't give up on this method! <!-- sTongue --><img src="{SMILIES_PATH}/icon_razz.gif" alt="Tongue" title="Razz" /><!-- sTongue -->
(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 -->

Re: Creating a Favoriter - yjy1110 - 01-23-2011

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!