月光软件站 - 编程文档 - 网站制作 - 带时钟、文字动画的网页，利用windows的控件

网站制作

本类阅读TOP10

·IIS 安装配置全攻略
·用VS.NET打开网上下载的.NET web项目出错的解决办法
·HTML 4.0 语言快速参考
·限制TextArea区的文字输入数量
·如何在网页上实现进度条
·Apache的配置步骤及测试
·谈谈Jesse James Garrett提到的Ajax
·html基础学习笔记（2）
·页面垂直居中的两种方法
·用asp遍历目录下文件的例子

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

带时钟、文字动画的网页，利用windows的控件

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

（由于文档中心禁止使用script，只能把演示放到其他地方)范例在http://61.129.70.31/103180161/jeffreyren/111222/logo.html

这个使用的是windows自带的控件，该控件由windows的Internet Connect Wizard安装的。

“Internet向导”又是windows的必须程序。所以该控件保证在任何windows上都有

。所以~~`你可以放心的在自己的网页上利用这些空间，创造这些动态效果

。下面是使用这些空间创造动态效果的例子。

代码：

<HTML>
<HEAD>
<TITLE>很COOL的画面</TITLE>
</HEAD>
<BODY BGCOLOR=BLACK LEFTMARGIN=0 TOPMARGIN=0 RIGHTMARGIN=0 BOTTOMMARGIN=0>

<OBJECT ID="Seq"
    CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">
</OBJECT>

<OBJECT ID="Circle"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:5; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetLineColor(255,255,255)">
    <PARAM NAME="Line0002" VALUE="SetFillColor(0, 0, 0)">
    <PARAM NAME="Line0003" VALUE="SetFillStyle(0)">
    <PARAM NAME="Line0004" VALUE="SetLineStyle(1)">
    <PARAM NAME="Line0005" VALUE="Oval(-200,-200,400,400,0)">
    <PARAM NAME="Line0006" VALUE="Oval(-175,-175,350,350,0)">
    <PARAM NAME="Line0007" VALUE=" HighQuality(1)"> 
</OBJECT>

<OBJECT ID="Crosshair"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT: 5; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetLineColor(139,139,139)">
    <PARAM NAME="Line0002" VALUE="SetLineStyle(1)">
    <PARAM NAME="Line0003" VALUE="Polyline(2,280,0,-280,0,0)">
    <PARAM NAME="Line0004" VALUE="Polyline(2,0,230,0,-230,0)">
    <PARAM NAME="Line0005" VALUE=" HighQuality(1)"> 
</OBJECT>

<OBJECT ID="Num5"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:0; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 350, 650, 0, 0, 0)">
    <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
    <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 0)">
    <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
    <PARAM NAME="Line0005" VALUE="Text('5', -80, 100, 0)"> 
    <PARAM NAME="Line0006" VALUE=" HighQuality(1)"> 
</OBJECT>

<OBJECT ID="Num4"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:0; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 350, 650, 0, 0, 0)">
    <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
    <PARAM NAME="Line0003" VALUE="SetFillColor(0,0,0)">
    <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
    <PARAM NAME="Line0005" VALUE="Text('4', -100, 100, 0)">
    <PARAM NAME="Line0006" VALUE=" HighQuality(1)">  
</OBJECT>

<OBJECT ID="Num3"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:0; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 350, 650, 0, 0, 0)">
    <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
    <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 0)">
    <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
    <PARAM NAME="Line0005" VALUE="Text('3', -80, 100, 0)">
    <PARAM NAME="Line0006" VALUE=" HighQuality(1)"> 
</OBJECT>

<OBJECT ID="Num2"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:0; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 350, 650, 0, 0, 0)">
    <PARAM NAME="Line0002" VALUE="SetLineColor(255,255,255)">
    <PARAM NAME="Line0003" VALUE="SetFillColor(0,0,0)">
    <PARAM NAME="Line0004" VALUE="SetFillStyle(0)">
    <PARAM NAME="Line0005" VALUE="Text('2', -80, 100, 0)">
    <PARAM NAME="Line0006" VALUE=" HighQuality(1)"> 
</OBJECT>
</DIV>

<OBJECT 
    ID="Icw"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:0; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 40, 650, 0, 0, 0)">
    <PARAM NAME="Line0002" VALUE="SetLineColor(0, 0, 255)">
    <PARAM NAME="Line0003" VALUE="SetFillColor(0, 0, 255)">
    <PARAM NAME="Line0004" VALUE="SetHatchStyle(0)">
    <PARAM NAME="Line0005" VALUE="SetFillStyle(1)">
    <PARAM NAME="Line0006" VALUE="Text('Newise.net', -55, 0, 0)">
    <PARAM NAME="Line0007" VALUE="Text('2001', -30, 30, 0)">
    <PARAM NAME="Line0008" VALUE=" HighQuality(1)"> 
</OBJECT>

<OBJECT
    ID="MM"
    CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"
    STYLE="POSITION:ABSOLUTE; WIDTH:100%; HEIGHT:100%; TOP:0; LEFT:0; VISIBILITY:HIDDEN">
    <PARAM NAME="Line0001" VALUE="SetFont('Verdana', 40, 650, 0, 0, 0)">
    <PARAM NAME="Line0002" VALUE="SetLineColor(0,255,0)">
    <PARAM NAME="Line0003" VALUE="SetFillColor(255,255,255)">
    <PARAM NAME="Line0004" VALUE="SetHatchStyle(0)">
    <PARAM NAME="Line0005" VALUE="SetFillStyle(0)">
    <PARAM NAME="Line0006" VALUE="SetLineStyle(1,1)">
    <PARAM NAME="Line0007" VALUE="Text('Product', -250, 0,  0)">
    <PARAM NAME="Line0008" VALUE="Text('Team',    -250, 30, 0)">
    <PARAM NAME="Line0009" VALUE=" HighQuality(1)"> 
</OBJECT>

<SCRIPT LANGUAGE="Javascript">
m               = DAControl.MeterLibrary;
cm              = 0.01; 
geo             = m.ImportGeometry("icw.wrl");
var IELogos     = new Array();
pi              = Math.PI;  
IELogos[0]      = m.ImportImage("face.gif");
IELogos[1]      = m.ImportImage("face.gif");
IELogos[2]      = m.ImportImage("face.gif");
IELogos[3]      = m.ImportImage("face.gif");
IELogos[4]      = m.ImportImage("face.gif");
IELogos[5]      = m.ImportImage("face.gif");
IELogos[6]      = m.ImportImage("face.gif");
IELogos[7]      = m.ImportImage("face.gif");
IELogos[8]      = m.ImportImage("face.gif");
imageCube       = Movie(IELogos);
pLight          = m.PointLight.Transform(m.Translate3(0,0,4));
dLight          = m.DirectionalLight.Transform(m.Rotate3(m.YVector3, 0.5));
geo             = geo.Transform(m.Scale3Uniform(0.5)).Texture(imageCube.MapToUnitSquare());
transXf3        = m.Scale3UniformRate(20*cm); 
modifXf3        = m.ModifiableBehavior(transXf3.DurationAnim(m.DANumber(10)));
geo             = geo.Transform(modifXf3);
srate           = m.Mul(m.LocalTime, m.DANumber(9));
cube1           = geo.Transform(m.Compose3(m.Compose3(m.Rotate3Rate(m.YVector3, pi/4),m.Rotate3Rate(m.XVector3, pi/3)),m.Scale3Uniform(0.9))); //5 = pi/8 5= pi/6
cube1           = cube1.RunOnce();
Camera          = m.PerspectiveCamera(5.5,4.5).Transform(m.Scale3(45, 45, 1));
cube1           = m.UnionGeometry(cube1, pLight);
rendered_geo    = cube1.Render(Camera);
DAControl.Image = m.Overlay(rendered_geo, m.SolidColorImage(m.Black));

DAControl.Start();

function rollCow()
{
    controlDiv.style.visibility = "visible";
}
function Movie(IELogos)
{
  movieArray = m.DAArray(IELogos);
  return movieArray.NthAnim(m.Mod(m.localTime,m.DANumber(9))) ;
}
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
'Specifies information for sequencer and controls multimedia event timing
Sub Seq_OnInit
    Call Seq("LetsGo").at(0.000,  "Setup(0)",     1,  0.050, 1)
    Call Seq("LetsGo").at(0.000,  "SweepRot",    -1,  0.100, 1)
    Call Seq("LetsGo").at(1.000,  "Setup(1)",     1,  0.050, 1)
    Call Seq("LetsGo").at(2.000,  "Setup(2)",     1,  0.050, 1)
    Call Seq("LetsGo").at(3.000,  "Setup(3)",     1,  0.050, 1)
    Call Seq("LetsGo").at(4.000,  "Setup(4)",     1,  0.050, 1)
    Call Seq("LetsGo").at(5.000,  "TransIcw",     32, 0.033, 1)
    Call Seq("LetsGo").at(5.000,  "ScaleIcw",     5,  0.033, 1)
    Call Seq("LetsGo").at(5.000,  "TransMM",      28, 0.033, 1)
    Call Seq("LetsGo").at(5.000,  "ScaleMM",      5,  0.033, 1)
    Call Seq("LetsGo").at(6.000,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.025,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.050,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.075,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.100,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.125,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.150,  "RotateMM",     5,  0.033, 1)
    Call Seq("LetsGo").at(6.175,  "RotateMM",     5,  0.033, 1)
'    Call Seq("LetsGo").at(6.500,  "rollCow",      5,  0.033, 1)
    Call Seq("LetsGo").at(10.000, "Setup(5)",     1,  0.050, 1)
 '   Call Seq("LetsGo").at(11.000, "rollCredits",  1,  0.050, 1)
    Call Seq("LetsGo").at(11.000, "Setup(6)",     1,  0.050, 1)
End Sub

'moves Icw text across screen
Sub TransIcw
    Call Icw.Translate(-6,0,0)
End Sub

'scale in Icw text
Sub ScaleIcw
    Call Icw.Scale(.9,.9,.9)
End Sub

'moves Multimedia text across screen
Sub TransMM
    Call MM.Translate(19,0,0)
End Sub

'scale in multimedia text
Sub ScaleMM
    Call MM.Scale(.9,.9,.9)
End Sub

'rotates Multimedia text across screen
Sub RotateMM
    Call MM.Rotate(-2,0,0)
End Sub

'sets rotation of sweep pie
Sub SweepRot
        Call Sweep.Rotate(0,0,30)
End Sub

'Controls appearance and dissapperance of numbers and other media events
Sub Setup(FOO)
    Select Case FOO
        Case 0
            SWEEP.style.visibility     = "visible"
            CROSSHAIR.style.visibility = "visible"
            CIRCLE.style.visibility    = "visible"
            Num5.style.visibility      = "visible"
        Case 1
            Num5.style.visibility      = "hidden"
            Num4.style.visibility      = "visible"
        Case 2
            Num4.style.visibility      = "hidden"
            Num3.style.visibility      = "visible"
        Case 3
            Num3.style.visibility      = "hidden"
            Num2.style.visibility      = "visible"
        Case 4
            Num2.style.visibility      = "hidden"
            Sweep.style.visibility     = "hidden"
            Circle.style.visibility    = "hidden"
            Crosshair.style.visibility = "hidden"
            'Controls.style.visibility = "visible"
            MM.style.visibility        = "visible"
            Icw.style.visibility       = "visible"
        Case 5
            'Controls.style.visibility = "hidden"
            MM.style.visibility        = "hidden"
            Icw.style.visibility       = "hidden"
        Case 6 
           Intro.innerHTML             = "<center><a href=HTTP://NEWISE.NET><font style='font-size:50px;color=white'>http://newise.net</a></center>"
           Call Seq("LetsGo").Stop()
    End Select
End Sub

'sets initial starting points for multimedia events
Sub Window_OnLoad
    Call Icw.Scale(3,3,3)
    Call MM.Scale(3,3,3)
    Call MM.Rotate(90, 0, 0)
    Call Seq("LetsGo").Play()
End Sub
</SCRIPT>
</BODY>
</HTML>

最后：windows里有很多控件，可以用在网页上，利用他们你可以创造出很绚丽的动态效果。

经常性的我们能见到在网页中用Ms Agent做网页向导的，但那需要下载一些控件安装....为什么我们不多多的利用系统中现有的控件呢？

相关文章：

相关软件：