Emulate MS Explorer Address Bar Buttons

[kd2017]

I've got a table that represents a hierarchal relationship. It would be nice if I could build a navigation bar to move back in a tree. I have the microsoft explorer address bar buttons in mind like so:




Each directory in the address bar is clickable to jump straight to an ancestor. Generating the path is easy enough, my question is what would be the most straightforward way to create an horizontal address bar like that with multiple functional links to other records? I need a horizontal list box!

[June7]

Buttons and code to navigate and modify captions?

[CJ_London]

it's not that difficult - but depends on your data and the actual requirement.

Assuming you are talking about a directory path -use the split function to get each element into an array then loop through the array to populate a row of buttons, labels or text boxes, and hide any surplus ones.

You may need additional code to adjust the width of the control to accommodate the length of the text

So code might be something like this with textboxes named txt0, txt1, txt2 etc - say you have 20 of them

dim s() as string
dim i as integer
dim Lft as long

'reset controls
for i=0 to 19
    me("txt" & i).left=0
    me("txt" & i).width=0
next i

s=split(myPath,"\")
Lft=0
for i =0 to ubound (s)-1
  
    me("Txt" & i)=s(i)
    me("Txt" & i).left=Lft
    me("Txt" & i).width=3000
    lft=lft+3000

next i

[kd2017]

A bunch of button controls was my first thought as well. I suppose i was hoping I wouldn't have to reinvent the wheel.

Can cmd buttons be resized with an autofit?

[CJ_London]

Can cmd buttons be resized with an autofit?

you can use one of the wizhook functions

dim s() as string
dim i as integer
dim Lft as long
Dim lh As Long
Dim lw As Long

'reset controls
for i=0 to 19
    me("btn" & i).left=0
    me("btn" & i).width=0
next i

WizHook.key = 51488399

s=split(myPath,"\")
Lft=0
for i =0 to ubound (s)-1
  
    with me("btn" & i)
      .caption=s(i)
      .left=Lft
      WizHook.TwipsFromFont .FontName, .FontSize, .FontWeight, .FontItalic, .FontUnderline, 0, s(i), 0, lh, lw
      .width=lw 'may want adjust further for images and margins if used
      lft=lft+.width

   end with

next i

[Edgar]

I don't have a sample but the Toolbar control MIGHT be an interesting solution to the Windows' "breadcrumbs control". In fact, since the buttons of the Toolbar control have dropdown capabilities, it MIGHT be ideal. A web browser control solves this too, with ease.

You'd have to learn to use either of them programmatically, though.
Just my 2c.

[kd2017]

Toolbar control is an interesting idea! I'll look in to it. I had actually considered a series of combos instead of buttons so I could utilize the dropdowns as menus

[kd2017]

Thanks for the wizhook suggestion. I haven't played with those functions yet. I just found isladogs write up on his website... thanks for the homework