Laufschrift mit DHTML / Java-Script
22.08.2006 16:05:16
ChrisL
Hallo Werner
Inzwischen hatte ich eine verrückte Idee.
https://www.herber.de/bbs/user/36033.xls
Es braucht ein Webbrowser Steuerelement (siehe Beschreibung animated gif). Anschliessend wird eine "dynamic HTML" Datei erzeugt und im Browser angezeigt.
Mehr zu DHTML: http://de.wikipedia.org/wiki/Dhtml
Viel Spass
Chris
Sub MachDHTML()
Dim strDatei As String
strDatei = tempInternetVerzeichnis & "\TestDHTML.html"
Close #1
Open strDatei For Output As #1
Print #1, "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
Print #1, "<!-- saved from <a href="url=(0076)http://www.bglerch.asn-ktn.ac.at/informatik/javascript/dhtml_laufschrift.htm">url=(0076)http://www.bglerch.asn-ktn.ac.at/informatik/javascript/dhtml_laufschrift.htm</a> -->"
Print #1, "<HTML><HEAD><TITLE>DHTML Laufschrift</TITLE>"
Print #1, "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">"
Print #1, "<SCRIPT language=JavaScript1.2>"
Print #1, "<!--"
Print #1, "/*"
Print #1, "Titel: DHTML laufschrift"
Print #1, "Autor: Christoph Bergmann"
Print #1, "email: cb@ acc.de"
Print #1, "Copyright (c) Milch und Zucker - c. Bergmann und j. Gamperl, 1998."
Print #1, "All rights reserved. Alle Rechte vorbehalten. URL: <a href="http://dhtml.seite.net"">http://dhtml.seite.net"</a>
Print #1, "Dieser Code darf für nicht-kommerzielle sowie kommerzielle Zwecke frei"
Print #1, "genutzt und angepaßt werden, solange dies unentgeltlich erfolgt und"
Print #1, "dieser Vermerk bestehen bleibt."
Print #1, "*/"
Print #1, "var x=0;"
Print #1, "var delay=50;"
Print #1, "var speed=4;"
Print #1, "
Function doanim()"
Print #1, "{"
Print #1, "if(document.layers) document.laufschrift.left=x; else document.all.laufschrift.style.left=x;"
Print #1, "x-=speed;"
Print #1, "if(x<-434) x=0;"
Print #1, "setTimeout(""doanim()"", delay);"
Print #1, "}"
Print #1, "//-->"
Print #1, "</SCRIPT>"
Print #1, "<STYLE>A:link {"
Print #1, "COLOR: blue"
Print #1, "}"
Print #1, "A:active {"
Print #1, "COLOR: blue"
Print #1, "}"
Print #1, "A:visited {"
Print #1, "COLOR: blue"
Print #1, "}"
Print #1, "A:hover {"
Print #1, "COLOR: red"
Print #1, "}"
Print #1, "#laufschrift {"
Print #1, "LEFT: 20px; POSITION: absolute; TOP: 20px"
Print #1, "}"
Print #1, "BODY {"
Print #1, "MARGIN-TOP: 2%; MARGIN-LEFT: 5%; MARGIN-RIGHT: 5%"
Print #1, "}"
Print #1, ".rahmen {"
Print #1, "BORDER-RIGHT: black 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: black 1pt solid; PADDING-LEFT: 4pt; FONT-WEIGHT: 800; PADDING-BOTTOM: 4pt; MARGIN-LEFT: 5%; TEXT-TRANSFORM: uppercase; BORDER-LEFT: black 1pt solid; COLOR: red; MARGIN-RIGHT: 5%; PADDING-TOP: 4pt; BORDER-BOTTOM: black 1pt solid; FONT-FAMILY: Arial; BACKGROUND-COLOR: lightblue; TEXT-ALIGN: center"
Print #1, "}"
Print #1, "H2 {"
Print #1, "COLOR: red; BACKGROUND-COLOR: white"
Print #1, "}"
Print #1, "</STYLE>"
Print #1, "<META content=""MSHTML 6.00.2900.2963"" name=GENERATOR></HEAD>"
Print #1, "<BODY bgColor=white onload=doanim()>"
Print #1, "<DIV id=laufschrift style=""WIDTH: 1352px; HEIGHT: 35px"">"
Print #1, "<TABLE>"
Print #1, "<TBODY>"
Print #1, "<TR>"
Print #1, "<TD noWrap>"
Print #1, "<H2>Eine einfache Laufschrift mit DHTML..."
Print #1, "</H2></TR></TBODY></TABLE></DIV>"
Print #1, "<P> </P>"
Print #1, "<P> </P></BODY></HTML>"
Close #1
Worksheets("Tabelle1").WebBrowser1.Navigate strDatei
End Sub