Improve company productivity with a Business Account.Sign Up


HTML drop down menu positioning

Posted on 2013-12-17
Medium Priority
Last Modified: 2014-01-05

This is most likely fairly basic to everyone here, but I apologize, in that I haven't been able to find any information regarding the topic that I've been able to translate.

Using the HTML drop-down menu example here (written by Tom Lavedas)

I've modified the code, and it works great in my little personal GUI HTA I've been building, except Mr. Lavedas has the fixed position of the drop down's in the upper left of the page always.  I'd like to move the menu bar to another div, which itself works, except the drop down sub items always appear in the upper-right as 'fixed'.

Would somebody be able to point me in the correct direction, to as when one moves the <div> and <span> elements the drop down menu exists in - how do you set the sub items to always appear beneath the primary menu item?  - No matter where it falls on the HTA page?

Here is his (Mr. Lavedas') code untouched:

<!-- An editable menu bar that looks like a standard Windows menu for use in an HTA --> 
<title>Example Menu System</title> 
<script language=vbs> 
resizeto 640, 480 
' Copyright 2010, Tom Lavedas, tlavedas at hotmail dot com 
' Released for non-commercial use, only. 
' Define menu items 
Const sMenuItems = "File,Edit,Font,Help" 
' Define one submenu constant for each menu item as illustrated below 
' Each is a comma separated list in a single string 
Const sFile = "Open,Close,Save,Save As ...,Exit" 
Const sEdit = "Cut,Copy,Paste,Select All,Deselect All" 
Const sFont = "Arial,Century Gothic,Times" 
Const sHelp = "Help, About" 
Const sHTML = "&nbsp;&nbsp;&nbsp;#sItem#&nbsp;&nbsp;&nbsp;" 
Dim dMenus, sMenuOpen 
sub Window_onload 
Dim entry 
  set dMenus = createObject("Scripting.Dictionary") 
  for each entry in Split(sMenuItems, ",") 
    menu.innerHTML = menu.innerHTML & "&nbsp;<span id=" & entry _ 
                   & " style='padding-bottom:2px' onselectstart=cancelEvent>&nbsp;" _ 
                   & entry & "&nbsp;</span>&nbsp;&nbsp;" 
    dMenus.Add entry, Split(eval("s" & entry), ",") 
  sMenuOpen = "" 
end sub 
Sub menu_onmouseover 
  with window.event.srcElement 
    if .parentElement.ID = "menu" then 
      .style.border = "thin outset" 
      .style.cursor = "arrow" 
    end if 
  end with 
end sub 
Sub menu_onmouseout 
  with window.event.srcElement 
    .style.border = "none" 
    .style.cursor = "default" 
  end with ' srcElement 
end sub 
Sub dropmenu_onmouseover 
  with window.event = "arrow" 
    .cancelbubble = true 
    .returnvalue = false 
  end with 
end sub 
sub SubMenuOver 
  with window.event.srcElement 
    if .ID = "dropmenu" then exit sub 
    .style.backgroundcolor = "darkblue" 
    .style.color = "white" 
    .style.cursor = "arrow" 
  end with 
end sub 
sub SubMenuOut 
  with window.event.srcElement 
    .style.backgroundcolor = "lightgrey" 
    .style.color = "black" 
    .style.cursor = "default" 
  end with 
end sub 
Sub menu_onclick 
Dim oEL, oItem 
  if sMenuOpen <> "" then exit sub 
  with window.event.srcElement 
    if .ID <> "menu" then 
      .style.border = "thin inset" 
      nLeft = .offsetLeft 
      ntop  = .offsetTop + replace(, "px", "") - 5 
      sMenuOpen = trim(.innertext) 
      with dropmenu 
        with .style 
          .border = "thin outset" 
          .backgroundcolor = "lightgrey" 
          .position = "absolute" 
          .left = nLeft 
          .top = nTop 
          .width = "100px" 
          .zIndex = "101" ' added 28 June 2010 
        end with ' style 
        for each sItem in dMenus.Item(sMenuOpen) 
          set oEL = document.createElement("SPAN") 
          with oEl 
            .ID = sItem 
            .style.height = "20px" 
            .style.width = 
            .style.zIndex = "102" ' added 28 June 2010 
            .innerHTML = Replace(sHTML, "#sItem#", trim(sItem)) 
            set .onmouseover = getRef("SubMenuOver") 
            set .onmouseout = getRef("SubMenuOut") 
            set .onclick = getRef("SubMenuClick") 
            set .onselectstart = getRef("cancelEvent") 
          end with ' child node 
          set oEL = document.createElement("BR") 
      end with ' dropmenu 
    end if 
  end with ' srcEement 
end sub 
sub cancelEvent 
  window.event.returnValue = false 
end sub ' cancelEvent 
sub clearmenu 
  dropmenu.innerHTML = "" = "none" = "transparent" 
  if sMenuOpen <> "" then 
    document.getElementByID(sMenuOpen).style.border = "none" 
    sMenuOpen = "" 
  end if 
end sub 
' ###################  IMPORTANT  ################### 
' Code to accomplish each submenu item defined above 
' Can be as simple as a subroutine call 
Sub SubMenuClick 
  sItem = trim(window.event.srcElement.innerText) 
  Select Case lcase(sItem) 
    case "open" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "close" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "save" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "save as ..." 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "exit" 
    case "cut" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "copy" 
    case "paste" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "select all" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "deselect all" 
      msgbox "Sorry, " & sItem & " is not implemented" 
    case "arial" = "12pt Arial" 
    case "century gothic" = "12pt Century Gothic" 
    case "times" = "11pt Times New Roman" 
    case "help" 
      msgbox "Help under construction", vbOKOnly + vbInformation, "Help" 
    case "about" 
      msgbox "Copyright, 2010" & vbCRLF & "Tom Lavedas"_ 
              & vbCRLF & "Released for non-commercial use only",_ 
              vbOKOnly + vbInformation, "About Menu" 
    case else ' catch all for undefined menu items 
      msgbox "Sorry, " & sItem & " is not implemented" 
  end Select 
end sub 
     Page layout follows 
<body onmouseover=menu_onmouseover style="font:12pt Arial"> 
<div id=menu style="position:absolute;left:0;top:0;width:110%;height:23px; 
                    font:normal 9pt Microsoft Sans Serif;z-Index:100"> 
<span id=dropmenu style="font:normal 9pt Microsoft Sans Serif"></span> 
<b>Build-Your-Own Menu Example</b><br> 
Copyright, 2010 Tom Lavedas<br> 
For non-commercial use, only. 
<span id=msg style="z-Index:10"></span> 

Open in new window

Thanks for any info you guys can share.  Please bare with me as I work through understanding what you would be showing me.
Question by:usslindstrom
  • 2

Expert Comment

ID: 39725065
Can you give us a link to your site with the code in the div?
You may have styles that are over-riding.

Accepted Solution

usslindstrom earned 0 total points
ID: 39725084
It's a HTA I plan on using to speed-up some ticket processing.  A VERY basic HTA at that for viewing AD properties I'm getting tired of looking up through ADUC.

*Attached.  I had to rename the extensions of the following files for EE to allow me to upload it:

*BTW - thanks for the help.

Author Closing Comment

ID: 39757140
I have revisited the code, and applied the positional fix.  The sub menu items are now appearing correctly.

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

The article shows the basic steps of integrating an HTML theme template into an ASP.NET MVC project
Originally, this post was published on Monitis Blog, you can check it here . In business circles, we sometimes hear that today is the “age of the customer.” And so it is. Thanks to the enormous advances over the past few years in consumer techno…
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).
Want to learn how to record your desktop screen without having to use an outside camera. Click on this video and learn how to use the cool google extension called "Screencastify"! Step 1: Open a new google tab Step 2: Go to the left hand upper corn…

595 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question