2
www.ChF-Online.de  

Frameset nachladen

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
   Word-VBA
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
aktiv aktiv Frameset nachladen
 Eindeutschen
 Synchronisieren
 Popup-Fenster
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
 HTML-Hilfe
Print

Ein kleiner Schönheitsfehler bei der Anzeige der einzelnen Hilfethemen ist die manuelle Synchronisation mit der Baumansicht über die Schaltfläche "Synchronize" bzw. "Anzeigen". Aus dem Grund habe ich die beiden zur Anzeige verwendeten Scripte vb_buttons.vbs und js_buttons.js so angepasst, dass sie mit dem Onload-Befehl aufgerufen werden und so die Anzeige automatisch aktualisieren.

    Do While Not EOF(file)
        Line Input #file, eintrag
        If InStr(1, eintrag, "buttons.js") > 0 Then gefunden = True 
         If Not gefunden Then 
            If InStr(1, eintrag, "</head>", vbTextCompare) Then 
                Print #file2, "<script src=" & Chr(34) & "js_buttons.js" & _
                   Chr(34) & "language=" & Chr(34) & "Javascript" & Chr(34) & _
                   "></script>"
                Print #file2, "</head>"
            ElseIf InStr(1, eintrag, "<body", vbTextCompare) > 0 Then 
                Print #file2, "<body bgcolor=#ffffff text=#000000 onload=" & _
                   Chr(34) & "OnNewTopic()" & Chr(34) & ">"
            Else 
                Print #file2, eintrag
            End If 
        Else 
            Print #file2, eintrag
        End If 
    Loop 

 Besucher: 4 online  |  36 heute  |  3993 diesen Monat  |  1746209 insgesamt | Seitenaufrufe: 64   Letzte Änderung: 24.06.2006 © 2001-18 Christian Freßdorf
  Es ist nicht genug, beschäftigt zu sein; das sind auch die Ameisen. Die Frage ist: Womit sind wir beschäftigt?
Henry David Thoreau
 powered by phpCMS and PAX