HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - HTA - Interaktion VBscript & JavaScript Problem

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

HTA - Interaktion VBscript & JavaScript Problem

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   HTML
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
M@tes



Anmeldungsdatum: 01.03.2011
Beiträge: 1

BeitragVerfasst am: 01.03.2011 12:17:33    Titel: HTA - Interaktion VBscript & JavaScript Problem Antworten mit Zitat

Hallo zusammen!
Bin erst neu hier und komm auch schon mit meinem ersten Problem bezüglich HTA. Komm soweit ganz gut vorwärts, nur hab ich ein Problem mit angehängtem, aufs wesentliche reduzierte Beispielscript.
Ziel ist es, das eine Schleife im VB läuft mit einem Sleep Befehl. Diese muss im VB laufen, da damit externe Scripte geladen werden, die hierfür aber irrelevant sind. Nun sollen nach jedem durchlauf der Schleife die CSS-Eigenschaften der Tabellenzellen geändert werden. Dies soll eine Art Statusanzeige sein, dass das Script am arbeiten ist. Was als solches auch super funktioniert, mit nur einem grossen Nachteil:
Die Eigenschaften werden erst aktualisiert, sobald die Schleife durchgelaufen ist.
Das erkennt man anhand des alerts bzw. der Inputbox.
Kann mir einer weiterhelfen, wie ich das hinbekomme?

Code:
<HTML>
<HEAD>
   <HTA:APPLICATION ID = "APP">

   <STYLE>
   .normal   { font-size:   40px;}
   .big      { font-size:   60px;}
   </STYLE>

   <SCRIPT LANGUAGE="VBscript">
      Sub Window_Onload
         For y = 1 To 3
            Sleep 1000
            
            moveDot()
         Next
      End Sub
      
      Sub Sleep( MSecs )
         Set FSO         = CreateObject( "Scripting.FileSystemObject" )
         
         If FSO.FileExists( "sleeper.vbs" ) = False Then
            Set TmpFile   = FSO.CreateTextFile( "sleeper.vbs", True )
            
            TmpFile.Write "wscript.sleep WScript.Arguments(0)"
            TmpFile.Close
         End If
         
         CreateObject( "WScript.Shell" ).Run "sleeper.vbs " & MSecs, 1, True
      End Sub
   </SCRIPT>

   <SCRIPT LANGUAGE="JavaScript">
      function moveDot() {
         alert(document.form.bigDot.value);
         
         if ( document.form.bigDot.value == 1 ) {
            document.getElementById('p1').className = 'big';
            document.getElementById('p2').className = 'normal';
            document.getElementById('p3').className = 'normal';
            document.form.bigDot.value = 2;
         }
         else if ( document.form.bigDot.value == 2 ) {
            document.getElementById('p1').className = 'normal';
            document.getElementById('p2').className = 'big';
            document.getElementById('p3').className = 'normal';
            document.form.bigDot.value = 3;
         }
         else if ( document.form.bigDot.value == 3 ) {
            document.getElementById('p1').className = 'normal';
            document.getElementById('p2').className = 'normal';
            document.getElementById('p3').className = 'big';
            document.form.bigDot.value = 1;
         }
         else {
            document.getElementById('p1').className = 'normal';
            document.getElementById('p2').className = 'normal';
            document.getElementById('p3').className = 'normal';
            document.form.bigDot.value = 1;
         }
      }
   </SCRIPT>
</HEAD>

<BODY>
<FORM NAME="form">
<INPUT TYPE="text" NAME="bigDot" VALUE="">

<TABLE>
   <TD ID="p1" CLASS="normal">
      Â°
   </TD>
   <TD ID="p2" CLASS="normal">
      Â°
   </TD>
   <TD ID="p3" CLASS="normal">
      Â°
   </TD>
</TABLE>
</BODY>
</FORM>
</HTML>
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   HTML
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.