照片走马灯式显示-源代码练习（走马灯的代码）

今天给各位分享照片走马灯式显示-源代码练习的知识，其中也会对走马灯的代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、使用Java做一个走马灯，源代码？
• 2、要达到这种走马灯效果，得用什么代码
• 3、用vb制作走马灯 窗体代码全过程
• 4、用走马灯的形式显示“0 1 2 3 ”C语言代码
• 5、跑马灯HTML源代码
• 6、几幅图片的走马灯效果怎么做？

使用Java做一个走马灯，源代码？

import java.awt.Color;

import java.awt.Dimension;

import java.awt.Font;

import java.awt.HeadlessException;

import java.awt.Point;

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

import java.awt.event.ComponentAdapter;

import java.awt.event.ComponentEvent;

import javax.swing.JFrame;

import javax.swing.JLabel;

import javax.swing.JOptionPane;

import javax.swing.JViewport;

import javax.swing.Timer;

public class Test84 extends JFrame {

  private Timer timer;

  private JLabel view;

  private JViewport window;

  public static void main(String[] args)

  {

    JFrame frm = new Test84("跑马灯");

    frm.setDefaultCloseOperation(EXIT_ON_CLOSE);

    frm.pack();

    frm.setVisible(true);

  }

  public Test84(String title) throws HeadlessException

  {

    super(title);

    initComponents();

    addComponentListener(new ComponentAdapter() {

      public void componentResized(ComponentEvent e)

      {

        anchor = new Point();

        anchor.x = -window.getExtentSize().width;

        timer.start();

      }

    });

    timer = new Timer(100, new ActionListener() {

      public void actionPerformed(ActionEvent e)

      {

        animate();

      }

    });

    timer.setInitialDelay(0);

  }

  private void initComponents()

  {

   String s = JOptionPane.showInputDialog(null, "请输入要实现效果的文字:");

    view = new JLabel(s);

    view.setFont(Font.decode("Dialog-BOLD-36"));

    view.setForeground(Color.BLUE);

    window = new JViewport();

    window.setView(view);

    getContentPane().add(window);

  }

  Point anchor;

  private void animate()

  {

    Dimension extSize = window.getExtentSize();

    Dimension viewSize = view.getPreferredSize();

    anchor.x += 5;//设置移动的速度

    window.setViewPosition(anchor);

    if (anchor.x  viewSize.width)

      anchor.x = -extSize.width;

  }

}

要达到这种走马灯效果，得用什么代码

DELPHI的源码，用了字符复制函数，与册除字符函数。。。原理简单。

procedure TForm1.FormCreate(Sender: TObject);

begin

s:= 'TEST ';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

s:=s+copy(s,1,1);

delete(s,1,1);

label1.Caption:=s;

Label1.Refresh;

end;

用vb制作走马灯 窗体代码全过程

1、使用label(标签）来模拟灯，只要修改label背景就可以实现跑马灯效果。

2、工具vb6

3、示例：

Private WithEvents NewTimer As Timer

Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 10

        Set NewLabel = Controls.Add("vb.label", "label"  i, Me)

        NewLabel.Move i * 200, 100, 100, 100

        NewLabel.BackColor = vbWhite

        NewLabel.Visible = True

    Next

    Set NewTimer = Controls.Add("vb.timer", "Timer1", Me)

    NewTimer.Interval = 200

    NewTimer.Enabled = True

End Sub

Private Sub NewTimer_Timer()

    Static i As Integer

    i = i + 1

    Me("label"  i).BackColor = vbRed

    If i = 1 Then

        If i = 1 Then i = 11

        Me("label"  i - 1).BackColor = vbWhite

        If i = 11 Then i = 1

    End If

    If i = 10 Then i = 0

End Sub

4、注意：复制以上代码到代码窗体，不要加任何控件，直接运行即可。

用走马灯的形式显示“0 1 2 3 ”C语言代码

#include "reg51.h"

unsigned char code led[]={0x3f,0x06,0x5b,0x4f} ;

unsigned char i;

unsigned char a,b,temp;

main()

{ while(1)

{temp=0xfe;

for(i=0;i4;i++)

{P0=led[i];

P2=temp;

a=temp1;

b=temp7;

temp=a|b;

for(;a0;a--) //

for(b=0;b100;b++) ; /// 这两句是延时的。

P2=0xff;

}

}

}

跑马灯HTML源代码

1、marquee.../marquee普通卷动

2、marquee behavior=slide.../marquee滑动

3、marquee behavior=scroll.../marquee预设卷动

4、marquee behavior=alternate.../marquee来回卷动

5、marquee direction=down.../marquee向下卷动

6、marquee direction=up.../marquee向上卷动

7、marquee direction=right/marquee向右卷动

8、marquee direction=’left’/marquee向左卷动

9、marquee loop=2.../marquee卷动次数

10、marquee width=180.../marquee设定宽度

11、marquee height=30.../marquee设定高度

12、marquee bgcolor=FF0000.../marquee设定背景颜色

13、marquee scrollamount=30.../marquee设定滚动速度

14、marquee scrolldelay=300.../marquee设定卷动时间

15、marquee onmouseover="this.stop()".../marquee鼠标经过上面时停止滚动

16、marquee onmouseover="this.start()".../marquee鼠标离开时开始滚动

在网页中除了可显示常见的美国信息交换标准代码（外语缩写：ASCII）字符和汉字外，HTML还有许多特殊字符，它们一起构成了HTML字符集。

有2种情况需要使用特殊字符，一是网页中有其特殊意义的字符，二是键盘上没有的字符。

HTML字符可以用一些代码来表示，代码可以有2种表示方式。即字符代码（命名实体）和数字代码（编号实体）。

字符代码以“”符开始，以分号";"结束，其间是字符名，如reg;。数字代码也以“#”符开始，以分号";"结束，其间是编号，如®。

扩展资料

网站源码作为软件的特殊部分，可能被包含在一个或多个文件中。一个程序不必用同一种格式的源代码书写。例如，一个程序如果有C语言库的支持，那么就可以用C语言；而另一部分为了达到比较高的运行效率，则可以用汇编语言编写。

较为复杂的软件，一般需要数十种甚至上百种的源代码的参与。为了降低这种复杂度，必须引入一种可以描述各个源代码之间联系，并且如何正确编译的系统。在这样的背景下，修订控制系统（RCS）诞生了，并成为研发者对代码修订的必备工具之一。

还有另外一种组合：源代码的编写和编译分别在不同的平台上实现，专业术语叫做软件移植。

参考资料来源：百度百科-源码

几幅图片的走马灯效果怎么做？

实现跑马灯的方法很多，其中最简单的是采用一句Html代码来实现，我们在需要出现跑马灯效果的地方插入“marquee滚动的文字/marquee”语句，它的效果如下所示：

滚动的文字

适当的运用marquee标签的参数，可以表现出不同的效果，请看下面的几个例子：

1、左右弹来弹去的跑马灯

弹来弹去跑马灯!

实现的方法就是在IE的标签上稍微多加了几个参数产生了更加丰富的变化。设置behavior=alternate表示双向移动，direction=left表示运动方向向左。marquee的宽度可以使用绝对象素值，例如width=200等这个值限定了跑马灯滚动的范围。需要说明的是该效果在Netscape下是看不到的。

源码粘贴框：

marquee width=400 behavior=alternate direction=left align=middle border=1弹来弹去跑马灯!/marquee

2、跑的很快的跑马灯

跑的很快跑马灯!

只要在marquee标签内加上“scrollamount=30”参数即可。

3、带有超级链接的跑马灯

带有超链接的跑马灯!点我试试？ 还有一条呢!点我试试？

其实实现的方法很简单，把整个marquee/marquee语句包含在超链接中就行，你看看下面的代码就清楚了。当然你也可以把包含在marquee/marquee中的各条内容分别加上不同的链接，这样的跑马灯用来发布滚动新闻或是做站点导航再合适不过了。

源码粘贴框：

marquee width=90%

a href="" target=_blank带有超链接的跑马灯!点我试试？/a

a href="" target=_blank还有一条呢!点我试试？/a

/marquee

以上几个例子都是marquee标签参数的应用，下面把所有可以利用的参数列在表中供你参考，不过还是要提醒你，marquee标签只被IE所支持，使用Netscape浏览器是看不到的噢。

参数 用法介绍

behavior=scroll, slide, alternate 跑马方式：循环绕行，只跑一次就停住，来回往复运动

direction=left,right 跑马方向：从左向右，从右向左

loop=100 跑马次数：循环100次，如不写默认为一直循环

width=100%,height=200 跑马范围：宽为100%，高为200像素

scrollamount=20 跑马速度：数越大越快

scrolldelay=500 跑马延时：毫秒数，利用它可实现跃进式滚动

hspace=20，vspace=20 跑马区域与其它区域间的空白大小

bgcolor=#00FFCC 跑马区域的背景颜色

这里向你介绍几个用JavaScript实现的较复杂的跑马灯，你只须把源码粘贴框中的代码按照说明复制的指定的位置就能看到跑马灯的效果。

1、状态栏中的跑马灯

在默认状态下浏览器的状态栏中显示的是链接指向信息，给人的感觉很单调。如果我们把问候语或是站点的介绍放在状态栏中滚动显示，一定能取得很好的效果。

源码粘贴框：

1、将以下代码放在head与/head之间：

script LANGUAGE="JavaScript"

!-- Begin

var Mes=new Array();

Mes[0]="洪恩在线欢迎你！ ";

Mes[1]="感谢你关注电脑交互教程 ";

Mes[2]="网页制作技巧 之 跑马灯大全 ";

var place=1;

var i=0;

function scroll()

{

window.status=Mes[i].substring(0, place);

if (place = Mes[i].length)

{

if(i2)

{

i++;

place=1;

window.setTimeout("scroll()",50);

}

else

{

i=0;

place=1;

window.setTimeout("scroll()",50);

}

}

else {

place++;

window.setTimeout("scroll()",50);

}

}

// End -－

/script

2、在body标签内加入onload 语句：

body onload="scroll();"

实现步骤:

(1)首先将JavaScript代码复制到head与/head之间，这段代码中包含了scroll()函数，它是实现跑马灯的主体代码。我们可以修改mes[]数组的值来改变跑马灯的内容，你也可以显示更多条的信息，不过代码中i的值应等于信息的条数，也就是等于mes[]数组的维数；

(2)然后在body标签中加入onload()语句即可。

2、超链接的跑马灯式提示信息

把你的“老鼠”移到下面链接上试一试，有什么不同呢？原来弹出了一条跑马灯式的提示信息，这是怎么实现的呢，请接着看：

跑马灯大全(一) 电脑交互教程 网页制作技巧技巧

源码粘贴框：

1.将下面代码放在body标签下：

script

if (!document.layers!document.all)

event="test"

function showtip2(current,e,text){

if (document.alldocument.readyState=="complete"){

document.all.tooltip2.innerHTML='marquee style="border:1px solid black"'+text+'/marquee'

document.all.tooltip2.style.pixelLeft=event.clientX+document.body.scrollLeft+10

document.all.tooltip2.style.pixelTop=event.clientY+document.body.scrollTop+10

document.all.tooltip2.style.visibility="visible"

}

else if (document.layers){

document.tooltip2.document.nstip.document.write('b'+text+'/b')

document.tooltip2.document.nstip.document.close()

document.tooltip2.document.nstip.left=0

currentscroll=setInterval("scrolltip()",100)

document.tooltip2.left=e.pageX+10

document.tooltip2.top=e.pageY+10

document.tooltip2.visibility="show"

}

}

function hidetip2(){

if (document.all)

document.all.tooltip2.style.visibility="hidden"

else if (document.layers){

clearInterval(currentscroll)

document.tooltip2.visibility="hidden"

}

}

function scrolltip(){

if (document.tooltip2.document.nstip.left=-document.tooltip2.document.nstip.document.width)

document.tooltip2.document.nstip.left-=5

else

document.tooltip2.document.nstip.left=150

}

/script

2.然后在要出现提示信息的链接中，添加onMouseover语句：

a href="pm23.htm" onMouseover="showtip2(this,event,'用marquee实现的各式跑马灯')" onMouseout="hidetip2()"跑马灯大全(一)/a

a href="/pc/index.htm" onMouseover="showtip2(this,event,'最多最全的电脑交互教程')" onMouseout="hidetip2()"电脑交互教程/a

a href="pmjq00.htm" onMouseover="showtip2(this,event,'点滴技巧装扮你的家')" onMouseout="hidetip2()"网页制作技巧技巧/a

实现步骤：

(1)先在body标签下面插入一段JavaScript代码；

(2)然后在需要实现跑马灯式提示信息效果的超链接中加入Onmouseover和Onmouseout语句。

还有一个参考下面的网址

照片走马灯式显示-源代码练习的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于走马灯的代码、照片走马灯式显示-源代码练习的信息别忘了在本站进行查找喔。