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 
    .srcElement.style.cursor = "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(menu.style.Height, "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 = dropmenu.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 = "" 
  dropmenu.style.border = "none" 
  dropmenu.style.backgroundcolor = "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" 
      document.body.style.font = "12pt Arial" 
    case "century gothic" 
      document.body.style.font = "12pt Century Gothic" 
    case "times" 
      document.body.style.font = "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
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Secure Your WordPress Site: 5 Essential Approaches

WordPress is the web's most popular CMS, but its dominance also makes it a target for attackers. Our eBook will show you how to:

Prevent costly exploits of core and plugin vulnerabilities
Repel automated attacks
Lock down your dashboard, secure your code, and protect your users

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to prepare an HTML email signature template file containing dynamic placeholders for users' Azure AD data. Furthermore, it explains how to use this file to remotely set up a department-wide email signature policy in Office …
Today, the web development industry is booming, and many people consider it to be their vocation. The question you may be asking yourself is – how do I become a web developer?
In this tutorial viewers will learn how to embed videos in a webpage using HTML5. Ensure your DOCTYPE declaration is set to HTML5: "<!DOCTYPE html>": Use the <video> tag to insert a video. Define the src as the URL of your video; this is similar to …
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.
Suggested Courses

777 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