Menus at Runtime????

[gamezfreakuk]

i am making a web browser, and i am attempting to construct a favourites type list. I have a form with a textbox on it and a command button, when the user types in a fave URL into the txt box and clicks the button, what i want to happen is that URL gets added to a menu at runtime.
Get what i am saying?

[-=XQ=-]

Create a blank menu and set visible to false, set the index property to 0 and then at runtime you can use the load statement and set the properties. ie.

load mnuX(1)

[gamezfreakuk]

Hmmm i ahve a menu already setup, so the user can add a fave site whenever they want to, maybe the fave list can be saved to a text file?

[-=XQ=-]

Sounds like a good idea

[gamezfreakuk]

But how would i do this?

[-=XQ=-]

You can open a text file to append line by line with:

dim intX as integer

intX = freefile 'tells you the next free file handle

open "Path" For Append As #intX

Print #intX, URL_Info_To_Add

close #intx

Then comes the reading bit:

dim intx as integer

intx = freefile

open "Path" For Input as #intX

Input #filenumber, Variable_To_Hold_Data

close #intX

Then you'd need some string manipulation to get the URL's out of the text file. I tend to use the split function to get the data into an array of values and loop thru them.

[gamezfreakuk]

explain more?

[-=XQ=-]

OK.......... each time they add to faves you'll want to save the details in the text file with the following type of code and add to the menu with the load statement:

dim intX as integer

intX = freefile 'tells you the next free file handle

open "Path" For Append As #intX

Print #intX, URL_Info_To_Add

close #intx

then when your app loads you'd use the other code to load the text file to memory and then using string manipulation pull out the page title and the url and create your menus. I'm off home now post back a specific questions and i'll answer them when i get in about an hour.

[gamezfreakuk]

i get what u mean, but i have no idea on how to do this : -

then when your app loads you'd use the other code to load the text file to memory and then using string manipulation pull out the page title and the url and create your menus. I'm off home now post back a specific questions and i'll answer them when i get in about an hour.

i am a newby programmer need a little help

[gamezfreakuk]

heh?

[agent_008]

Let's take, that you have a menu, called "Favorites", and you want to add items to it:
First, you'll have to find the next free index, and then load new menu item; then assign the text1.text as a caption to that menu.

load mnuFavorites(mnuFavorites.UBound+1)
mnuFavorites(mnuFavorites.UBound+1).Caption = text1.text

For responding to the click event, you can use the index of the new menu items.
Try it

[-=XQ=-]

I think it's getting the data from the file that's the prob rather than creating the menu's at runtime. On the form's load event you need to read from the text file:

private sub form_load
  dim intX as integer
  dim intY as integer 'keep count of the menu items
  dim strTemp as string

  intx = freefile
  intY = 1 'as the menu there is already 0
  open "PATH" for input as #intx

  do until eof(intx) 'checks for the end of the text file.
    input #intx, strTemp 'reads line by line of the text file
    load mnuFav(intY)
    mnuFav(intY).caption = strtemp
  loop

  close #intX
end sub