Dynamisk meny med VBscript i .hta?

OV-103 · 23. april 2008

Jeg prøver å lage et .hta basert GUI til et .bat script jeg har laget.

Det jeg vil ha er drop down menyer som endrer seg basert på forrige meny.

Jeg har fått til å lage en meny som er avhengig av den forrige, men så stopper det opp.

Problemet er at jeg ikke kan VBscript, og det jeg har hittil er basert på eksempler jeg har funnet på nettet og tilpasset.

Det beste hadde jo vært om jeg hadde lært meg VBscripting eller Java scripting skikkelig selv.. Men det har jeg dessverre ikke tid til for tiden.

Er det noen guruer som kan gi meg råd om hvordan å ta steget videre til neste meny?

Her er koden jeg har hittil som gir to menyer:

(De to plassene det står "vbscript sim_role()" har egentlig : mellom seg, men forumet likte tydeligvis ikke at jeg skrev det i code tag.)

<HTML>
<BODY ONLOAD=vbscript sim_role()>
<TITLE>KM XP Setup</TITLE>
<HTA:APPLICATION ID="XPS"
APPLICATIONNAME="KM XP Setup"
BORDER="thick"
CAPTION="yes"
ICON="kicon.ico"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="tes"
SYSMENU="yes"
WINDOWSTATE="normal"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="yes">


<script Language=JScript>
window.resizeTo(600,150);
window.caption="Test";
</SCRIPT>

Please select simulator type:<P>
<form name=stype>
<select onchange=vbscript sim_role() name=simtype>
<OPTION VALUE='1'>Bridge simulator</OPTION>
<OPTION VALUE='2'>Engine Room simulator</OPTION></SELECT><BR><BR>
<div id=prt></div>
</form>

<script Language="VBScript">
<!--

Option Explicit

Function sim_role()
 if stype.simtype.value = "1" then
prt.innerHTML="Computer role: <select name=role style=width:150;border:none;><option value='1'>Server</option><option value='2'>Instructor</option><option value='3'>Bridge</option><option value='4'>Bridge Slave</option><option value='5'>Visual Channel</option><option value='6'>ECDIS PC</option><option value='7'>Sound PC</option></select>"
 else
prt.innerHTML="Computer role: <select name=role style=width:150;border:none;><option value='11'>Server</option><option value='12'>Instructor</option><option value='13'>Work Station</option><option value='14'>LOS Station</option><option value='15'>ECR Station</option><option value='16'>Big View computer</option></select>"
 end if
end function

-->
</SCRIPT>
</HEAD>
<body scroll="no">
</body>
</html>

Logg inn

Dynamisk meny med VBscript i .hta?

Anbefalte innlegg

OV-103

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Opprett konto

Logg inn

Hvem er aktive 0 medlemmer