Solved

How can I create an HTA with multiple tabs or windows

Posted on 2009-05-15
4
4,456 Views
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 !
0
Comment
Question by:heliontech
  • 2
  • 2
4 Comments
 
LVL 14

Expert Comment

by:rejoinder
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.
0
 

Author Comment

by:heliontech
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.
0
 
LVL 14

Accepted Solution

by:
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.
<html>

<head>

<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">

    div,td{cursor:default;font-size:9pt;}

</style>
 

<script language=javascript>

function TableOK(){

    var dotable,tmpcol,tmprow,docol,dorow

    if(tba[0].checked){algn="left";}

    if(tba[1].checked){algn="center";}

    if(tba[2].checked){algn="right";}

    tmpcol="<td align="+algn+"></td>";

    docol=""

    dorow=""

    for ( var i=0; i<tbc.value; i++ ){

    docol=docol+tmpcol;

    }

    docol="<tr>"+docol+"</tr>"

    for ( var j=0; j<tbr.value; j++ ){

    dorow=dorow+docol;

    }

    dotable="<table border="+tbb.value+" cellspacing="+tbs.value+" cellpadding="+tbp.value+">"+dorow+"</table>"

    alert(dotable);

    }

</script>
 

<script language=VBScript>

Sub TabStrip_Change()

    select case TabStrip.Value

        case 0

            Page1.style.visibility = "hidden"

            Page0.style.visibility = "visible"

        case 1

            Page0.style.visibility = "hidden"

            Page1.style.visibility = "visible"

    end select

end sub

</script>
 

<center>

<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;">

</object>

<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>

</table>

</div>

<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>

</table>

</div>

<div align="center" style="position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + TabStrip.style.posHeight - 30) + 'px');width:280px;height:80px;" align="center">

<table border=0 cellpadding=0 cellspacing=0>

<tr>

<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>

</tr></table>

</div>

</center>

</body>

</html>

Open in new window

0
 

Author Closing Comment

by:heliontech
ID: 31582056
Thanks ! That should get me started.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
An enjoyable and seamless user experience can go a long way on an eCommerce site. While a cohesive layout and engaging copy play roles in creating a positive user experience, some sites neglect aspects that seem marginal but in actuality prove very …
The viewer will learn how to dynamically set the form action using jQuery.
The is a quite short video tutorial. In this video, I'm going to show you how to create self-host WordPress blog with free hosting service.

911 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

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now