Axel Richter: HTML Objekte mit VBSript erzeugen

Beitrag lesen

Hallo,

Wenn ich deine Frage jetzt richtig verstanden habe, möchtest du die Objekte aber nicht während dem Aufbau der Seite erstellen sondern nachträglich in die HTA ein Objekt einfügen.

Das Beispiel funktioniert übrigens fast Deckungsgleich auch mit VBScript:

  
<html>  
<head>  
  <title>HtaTest</title>  
  <meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">  
  <HTA:APPLICATION ID="HtaTest"  
    APPLICATIONNAME="HtaTest"  
    BORDER="thick"  
    CAPTION="yes"  
    ICON="http://src.selfhtml.org/favicon.ico"  
    SHOWINTASKBAR="yes"  
    SINGLEINSTANCE="yes"  
    SYSMENU="yes"  
    WINDOWSTATE="normal"  
  >  
  <script type="text/vbscript">  
   i = 0  
  
   Sub InsertCheckbox(myForm)  
    i = i + 1  
    set ch1 = document.createElement("input")  
    ch1.type = "Checkbox"  
    ch1.name = "ChB" & i  
    ch1.id = "ChB" & i  
    ch1.value = "ChB" & i  
    set lb1 = document.createElement("label")  
    lb1.htmlFor = "ChB" & i  
    lb1.appendChild(document.createTextNode("ChB" & i))  
    myForm.appendChild(ch1)  
    myForm.appendChild(lb1)  
    myForm.appendChild(document.createElement("br"))  
   End Sub  
  
  </script>  
</head>  
<body>  
 <form action="#">  
 <input type="button" name="1" onclick="InsertCheckbox(me.form)" value="Checkbox einfügen"/>  
 </form>  
</body>  
</html>  

viele Grüße

Axel