2
www.ChF-Online.de  

Anzeige synchronisieren

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
   Word-VBA
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
 Frameset nachladen
 Eindeutschen
aktiv aktiv Synchronisieren
 Popup-Fenster
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
 IE5/6, Netscape4.7x, Netscape6.x, Opera 6
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: 0 online  |  0 heute  |  0 diesen Monat  |  2214353 insgesamt | Seitenaufrufe: 28   Letzte Änderung: 24.06.2006 © 2001-18 Christian Freßdorf
  Der Mensch kommt unter allen Tieren dem Affen am nächsten.
G. C. Lichtenberg
 powered by phpCMS and PAX