<SCRIPT>
//change title text to your own
var titletext="Welcome to Dynamic Drive"
var thetext=""
var started=false
var step=0
var times=1
function welcometext()
{
times--
if (times==0)
{
if (started==false)
{
started = true;
document.title = titletext;
setTimeout("anim()",1);
}
thetext = titletext;
}
}
function showstatustext(txt)
{
thetext = txt;
setTimeout("welcometext()",4000)
times++
}
function anim()
{
step++
if (step==7) {step=1}
if (step==1) {document.title='>==='+thetext+'===<'}
if (step==2) {document.title='=>=='+thetext+'==<='}
if (step==3) {document.title='>=>='+thetext+'=<=<'}
if (step==4) {document.title='=>=>'+thetext+'<=<='}
if (step==5) {document.title='==>='+thetext+'=<=='}
if (step==6) {document.title='===>'+thetext+'<==='}
setTimeout("anim()",200);
}
if (document.title)
window.onload=onload=welcometext
</SCRIPT>
分享到:
相关推荐
标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar标题栏特效.rar
多种js页面特效,包括时间特效,导航特效,标题栏特效,背景转换特效等,页面布局特效。
js 特效 html 特效 Title栏特效一
标题栏变化特效.rar标题栏变化特效.rar标题栏变化特效.rar标题栏变化特效.rar标题栏变化特效.rar标题栏变化特效.rar
网页标题跑马灯特效,让你制作的网页不在枯燥
这是个有意思的窗口设计实例源码,Delphi实现窗体失去焦点时标题栏闪动特效,flashwindow特效,这样可吸引操作者注意,其实实现这一功能并不复杂,以下代码最关键: procedure TForm1.Timer1Timer(Sender: TObject...
VB 窗体标题栏闪烁实例,可参照以下代码实现窗体标题栏的闪烁功能: 声明API函数Flashwindow Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, _ ByVal bInvert As Long) As Long ...
VB标题栏透明的仿Vista窗口效果,Vista透明玻璃窗体效果,大家可通过截图看出标题栏部分能看到下层窗体的内容,为了制作基于VB环境的透明窗口提供一个小小的参考吧。其实用VB还是可以做很多效果的,比如这个玻璃风格...
状态栏中先单个字出现然后再整句 <!-- 要实现此效果需要 1 个步骤: --> <!-- 第 1 步: --> <!-- 把下面的代码加到<HEAD></HEAD>区域中: --> <script language="JavaScript"> <!-- var current = 0 var x = 0...
但是可以学习一下JS制作实现一些文字特效,运行效果后请查看标题栏。 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js/2015/js-title-loop-show-style-demo/ 具体代码如下: <html> <...
Android隐藏标题栏及解决启动闪过标题的实例详解 方法一: 在代码中设置 this.requestWindowFeature(Window.FEATURE_NO_TITLE);//去掉标题栏 方法二: 在AndroidManifest.xml 里面设置 android:label=@...
一款黑色简单的css页面滚动固定下拉导航菜单特效,网页上下滚动导航菜单会固定定位在顶部。
包含materialDesign很多组价,悬浮按钮,自定义标题栏,cardview,炫酷特效
Delphi落雪效果 雪花飘落特效,逼真的Delphi下雪特效,打开程序后,屏幕上就立即飘飞雪花,雪花会自动堆积在窗口的标题栏、菜单栏等处,效果相当好。
该代码实现的功能是 1.正常情况下,显示上方的flatButton和下方的文本 2.当鼠标移动上去的时候显示透明效果 ...4.弹起鼠标显示透明效果 5.鼠标立刻按钮时候,恢复正常显示 和很多商业应用软件的Button效果一样 ...
VB6.0实现透明窗体,漂亮的透明窗口特效演示,有点像Windows 7的风格,不过测试发现,仅窗口的标题栏处可以透明,或许我没有测试对,总体来说,这个半透明标题栏的窗体,效果还是挺舒服的。
jQuery版的仿Windows弹出窗口... 用此插件实现的弹出式窗口均可以被任意拖动,都有标题栏和最大化、最小化按钮等,可把网页显示在浮动窗口中,也可以显示纯文字或图文混排的内容,使用者可通过本演示文件找到用法。
淡入淡出渐变的VB透明窗口特效...同时还演示了另外一种无边框无标题栏的图文渐变窗体,点击主窗口的按钮即可调用显示出来。本窗口同样可以制作关于窗口或启动窗体等。 现在在窗体装载和卸载时,都可以"淡入淡出"了。
Delphi下雪动画特效,一个十分漂亮的下雪场景动画,雪花飘落在屏幕的窗口上面,窗口听状态栏、标题栏都会落满雪花,看上去很气派。参数设置: Point: TPoint; // 雪点位置 Color: Integer; // 先前颜色 ...
Areo特效窗体换肤 - 无标题栏,找了很久的源代码 需要的朋友抓紧时间下载啦-Areo effects Form peels- no title bar to find the source code for a long time friend in need to seize the time to download!