How can I create an HTA with multiple tabs or windows

Posted on 2009-05-15
Last Modified: 2012-05-07
What I want to do is create one hta file with all my code, but have multiple windows to click through with different things in each window.  I could click an audit tab and see all of my controls, and then click another tab to change the body of the hta to other controls.  

I prefer to do this in vbscript because its what I know. Thanks !
Question by:heliontech
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
  • 2
LVL 14

Expert Comment

ID: 24398901
Since you have not posted any code whatsoever, I can only say that this may be possible?!?  So, first post the code you want to see in an HTA.  Then when time permits, please post a screen shot or something similar with how you expect to see the HTA arranged - sometimes a picture is worth a thousand words.

Author Comment

ID: 24398917
I don't have any code at the moment, I just want to know how to do it.  I was coming up with names off the top of my head.  So if anyone has a sample with even a button on each page and maybe 2 tabs at the top I can figure it out from there.
LVL 14

Accepted Solution

rejoinder earned 500 total points
ID: 24399266
I see what you want.  Tabs are tricky but here is a sample for you to play with.
<title>Tab Sample</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body bgcolor=buttonface scroll=no topmargin=5>
<style type="text/css">
<script language=javascript>
function TableOK(){
    var dotable,tmpcol,tmprow,docol,dorow
    tmpcol="<td align="+algn+"></td>";
    for ( var i=0; i<tbc.value; i++ ){
    for ( var j=0; j<tbr.value; j++ ){
    dotable="<table border="+tbb.value+" cellspacing="+tbs.value+" cellpadding="+tbp.value+">"+dorow+"</table>"
<script language=VBScript>
Sub TabStrip_Change()
    select case TabStrip.Value
        case 0
   = "hidden"
   = "visible"
        case 1
   = "hidden"
   = "visible"
    end select
end sub
<object id="TabStrip" classid="clsid:eae50eb0-4a62-11ce-bed6-00aa00611080" style="WIDTH: 285px; HEIGHT: 150px" >
<param name="ListIndex" value="0">
<param name="NewVersion" value="-1">
<param name="Accelerator" value="&A;B;">
<param name="TipStrings" value="Page 1;Page 2;">
<param name="Items" value="Item 1;Item 2;">
<div id="Page0" style="visibility:visible;position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + 30) + 'px');width:280px;height:200px;text-align:left;">
<table border=0 cellpadding=0 cellspacing=2>
<tr><td>Border:</td><td><input type=text name=tbb size=20 value="1" maxlength=2 onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>px</td></tr>
<tr><td>Columns:</td><td><input type=text name=tbc size=20 value="2" maxlength=2 onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>px</td></tr>
<tr><td>Rows:</td><td><input type=text name=tbr size=20 value="2" maxlength=2 onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>px</td></tr>
<div id="Page1" style="visibility:hidden;position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + 30) + 'px');width:280px;height:200px;text-align:left;">
<table border=0 cellpadding=0 cellspacing=2>
<tr><td>Spacing:</td><td><input type=text name=tbs size=16 maxlength=2 value="2" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td width=85>px</td></tr>
<tr><td>Padding:</td><td><input type=text name=tbp size=16 maxlength=2 value="2" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>px</td></tr>
<tr><td>Align:</td><td colspan=2><input type=radio name=tba checked>Left<input type=radio name=tba>Center<input type=radio name=tba>Right</td></tr>
<div align="center" style="position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + - 30) + 'px');width:280px;height:80px;" align="center">
<table border=0 cellpadding=0 cellspacing=0>
<td width=50 align=center><input type=button onclick="window.close();" value="Close" class=cmdbtn></td>
<td width=50 align=center><input type=button onclick="TableOK();" value="OK" class=cmdbtn></td>

Open in new window


Author Closing Comment

ID: 31582056
Thanks ! That should get me started.

Featured Post

Forrester Webinar: xMatters Delivers 261% ROI

Guest speaker Dean Davison, Forrester Principal Consultant, explains how a Fortune 500 communication company using xMatters found these results: Achieved a 261% ROI, Experienced $753,280 in net present value benefits over 3 years and Reduced MTTR by 91% for tier 1 incidents.

Question has a verified solution.

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

Color can increase conversions, create feelings of warmth or even incite people to get behind a cause. If you want your website to really impact site visitors, then it is vital to consider the impact color has on them.
When crafting your “Why Us” page, there are a plethora of pitfalls to avoid. Follow these five tips, and you’ll be well on your way to creating an effective page.
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)

737 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