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: 2 online  |  28 heute  |  2628 diesen Monat  |  1593778 insgesamt | Seitenaufrufe: 47   Letzte Änderung: 24.06.2006 © 2001-14 Christian Freßdorf
  Plausible Unmöglichkeiten sollten unplausiblen Möglichkeiten vorgezogen werden.
Aristoteles
 powered by phpCMS and PAX