Tazman37 Web Design and Networking
Copyright © 1997 Arthur K. Armfield. All rights reserved.
Revised: December 23, 2001 06:33:38 AM
Confused yet?
Here we will show you how to put a neat message in the message bar of the Internet Explorer 4.0 browser.
All you need to do is cut and paste the code I've left here to the html in your web page. If you have any questions, just e-mail me!
Cut and Paste this Code:
<SCRIPT LANGUAGE=VBScript>
Dim MsgCount, ScrollText, Delay, CurrentMsg, Msg()
Sub Window_OnLoad()
MsgCount = 5
Delay = 100
ReDim Msg(MsgCount)
Msg(1) = "Hello and welcome to Tazman37" & Chr(39)
& "s web site."
Msg(2) = "Today is " & Now()
Msg(3) = "I hope you like my site, if not, let me know!"
Msg(4) = "Come back and visit again soon!"
Msg(5) = "Where is Lee Harvey Oswald now that we need
him?"
CurrentMsg = 1
ScrollText = String(128,Chr(32)) & Msg(CurrentMsg)
Call Scroll()
End Sub
Sub Scroll()
If Len(ScrollText) <2 Then
CurrentMsg = CurrentMsg + 1
If CurrentMsg > MsgCount Then CurrentMsg = 1
ScrollText = String(128,Chr(32)) & Msg(CurrentMsg)
End If
ScrollText = Right(ScrollText,Len(ScrollText)-1)
Window.Status = ScrollText
ID = Window.setTimeout("Scroll",Delay,"VBScript")
End Sub
------->
</SCRIPT>
The text in white above are the number of my messages and the content of my messages. You MUST change them (don't change any of the "" marks) and replace with your own message to get the desired result. Check the source code for this page, you'll see I've used FOUR messages and the way I've changed them and the amount of them compared to the above.