关于网页制作滚动字幕的代码，请教。

如果这段代码复制到我的电脑上,保存为文件后也显示为空白的一条!你使用作为背景,我想应该是一有深色颜色的吧,用来反衬显示的白色文字但由于你用的使用了绝对路径,在别人的电脑上怎么能保证也在相同的位置有这一呢所以没有衬托后,白色的文字就不能显出出来了,所以只能看到白色的一条,如果你用鼠标去选择一下,应该是可以看到滚动的蓝色文字的吧看下这个特效符合你要求不,免费模板网上分享的,

示例：

PrivateSubForm_Load()

'//预先设定要显示的内容

content="滚动字幕示例控制文本的循环滚动"

'//获取内容长度

length=Len(content)

'//label1控件，手动调整

'//接着需要选择字体大小

SetMeFont=Label1Font'//方便借用FormTextHeight方法

Dimfont_heightAsLong,font_widthAsLong,sizeAsLong

size=Label1Fontsize

font_height=MeTextHeight("循环滚动")

font_width=MeTextWidth("循环滚动")

Whilefont_height<=Label1HeightAndfont_width<=Label1Width

size=size+1

Label1Fontsize=size

font_height=MeTextHeight("循环滚动")

font_width=MeTextWidth("循环滚动")

Wend

Label1Fontsize=size-1'//选择最合适的字体大小

pos=1'//从第一个字符开始读取

EndSub

PrivateSubCommand1_Click()

Timer1Interval=1000'1000毫秒执行一次

EndSub

PrivateSubTimer1_Timer()

DimsizeAsLong,tempAsString

'//每次显示5个长度单位的内容

size=length-pos'//得到截取的长度大小

Ifsize<4Then'//当不足5个长度单位时

temp=Mid(content,pos,size+1)

temp=temp&Mid(content,1,4-size)

pos=5-size

Else

temp=Mid(content,pos,5)

pos=pos+5

EndIf

Label1Caption=temp'//把截取的文本内容显示出来

EndSub

扩展资料

VB设计自动滚动字幕窗体

DimDireAsString

'窗体Load事件

PrivateSubForm_Load()

Dire="向左"

EndSub

'定时器事件

PrivateSubTimer1_Timer()

DimNewColorAsLong

Randomize

NewColor=RGB(Rnd()256,Rnd()256,Rnd()256)

Label1ForeColor=NewColor

IfDire="向左"Then

Label1Left=Label1Left-10

IfLabel1Left<0ThenDire="向右"

ElseIfDire="向右"Then

Label1Left=Label1Left+10

IfLabel1Left+Label1Width>MeScaleWidthThenDire="向左"

EndIf

EndSub

<marquee direction=up behavior=scroll loop=3 scrollamount=1 scrolldelay=10 align=top bgcolor=#ffffff height=300 width=30% hspace=20 vspace=10 onmouseover=thisstop() onmouseout=thisstart()> 此处输入滚动内容 </marquee>

◎ direction表示滚动的方向，值可以是left，right，up，down，默认为left

◎ behavior表示滚动的方式，值可以是scroll（连续滚动）slide（滑动一次）alternate（往返滚动）

◎ loop表示循环的次数，值是正整数，默认为无限循环

◎ scrollamount表示运动速度，值是正整数，默认为6

◎ scrolldelay表示停顿时间，值是正整数，默认为0，单位似乎是毫秒

◎ align表示元素的垂直对齐方式，值可以是top，middle，bottom，默认为middle

◎ bgcolor表示运动区域的背景色，值是16进制的RGB颜色，默认为白色

◎ height、width表示运动区域的高度和宽度，值是正整数（单位是像素）或百分数，默认width=100% height为标签内元素的高度

◎ hspace、vspace表示元素到区域边界的水平距离和垂直距离，值是正整数，单位是像素。

◎ onmouseover=thisstop() onmouseout=thisstart()表示当鼠标以上区域的时候滚动停止，当鼠标移开的时候又继续滚动。

下面则用javascript实现的非常实用的滚动,你可以修改滚动的方向

<DIV id=scrollbody>

<DIV id=scrolltext>

your contnet

</di>

</di>

<SCRIPT type=text/javascript>

<!--

try{

var marqueesHeight = 150;

var stopscroll = false;

var scrollElem = documentgetElementById("scrollbody");

with(scrollElem){

stylewidth = 275;

styleheight = marqueesHeight;

styleoverflow = 'hidden';

noWrap = true;

}

scrollElemonmouseover = new Function('stopscroll = true');

scrollElemonmouseout = new Function('stopscroll = false');

var preTop = 0;

var currentTop = 0;

var stoptime = 0;

var leftElem = documentgetElementById("scrolltext");

scrollElemappendChild(leftElemcloneNode(true));

init_srolltext();

}catch(e){}

function init_srolltext(){

scrollElemscrollTop = 0;

setInterval('scrollUp()', 15);

}

function scrollUp(){

if(stopscroll) return;

currentTop += 1;

if(currentTop == 30){

stoptime += 1;

currentTop -= 1;

if(stoptime == 180){

currentTop = 0;

stoptime = 0;

}

}else{

preTop = scrollElemscrollTop;

scrollElemscrollTop += 1;

if(preTop == scrollElemscrollTop){

scrollElemscrollTop = 0;

scrollElemscrollTop += 1;

}

}

}

//-->

</SCRIPT>

<!-- phpstatsportscn -->

<SCRIPT language=JavaScript type=text/javascript>

var _PCSWebSite="10000008";

var _PCSText="num1";

</SCRIPT>

1、浏览器标签法

这个先用不到代码，但却十分简单实用的，首先早一步到办公室，或者趁表白对象不注意的时候在她的电脑上安装chrome浏览器，设置成默认的浏览器，把各项的同步功能打开就可以了。然后选择一个合适的时机，在你的电脑上登录账号，然后标签栏添加你想说的话，例如下图这样：

然后标签就自动同步到表白对象的浏览器上了。

2、两个按键组合成I LOVE U

这个简单的功能是利用的网页查找的功能，在网页中复制下这段文字，

然后crtrl+f，在输入框中输入9，然后回车，看下效果：

3、Python表白代码

心型和圆形椭圆的代码类似，都是由X,Y上的点构成的曲线，确定出一个表达式expression，然后就是两个for循环（for y in range；for x in range），然后逐行逐列的开始就行了。

当然有点太单调，我们可以这样操作一下，让他动起来，像这样

print('\n'join([''join([('Love'[(x-y) % len('Love')] if ((x005)2+(y01)2-1)3-(x005)2(y01)3 <= 0 else ' ') for x in range(-30, 30)]) for y in range(30, -30, -1)]))

当然还能替换表情，这个代码就不放了，需要的直接跟我要就行。

4、炫酷一点的

C语言诠释爱——为TA写下心中情，生成程序传给TA，TA点开程序就懂你。

这个开始的时候会展示出表白对象的名字，接着就是最重要的烟花部分，为了让烟花显得更加真实，需要附加重力效果和空气阻力效果，源代码图如下

如果需要源码的留下邮乡就可以了。

5、恶搞一点的

这个适合关系已经不错的那种了，看看效果

源码直接发

在软件启动时，为了加深软件在用户头脑中的印象，可以在软件封面上由下而上循环滚动显示一些包含软件名称、功能、版本、用户名、研制单位等文字信息，在用户按下任意键或点击鼠标键后，立即结束演示进入程序主界面。本文通过向工程中添加Splash screen组件，然后在CsplashWnd类中添加DrawText成员方便地实现了具有滚动文字效果的软件封面，其中文字的位置、对齐方式、字体、字号、颜色都由程序来控制。

---- 详细设计步骤如下：

---- 1创建一个名为test的SDI或MDI工程；

---- 2向工程中添加Splash screen组件，即添加一个CWnd类的派生类CsplashWnd；

---- 3编辑或导入软件封面的位图资源，标识号为IDB_SPLASH；

---- 4向CsplashWnd类中添加一个公有成员函数DrawText,此函数用来在软件封面中显示文字，的实现代码如下：（其中参数含义分别为：内存dc，文字位置，对齐方式，字体，字号，颜色，正文文字）

void CSplashWnd::DrawText(CDC pDC,

int x, int y, int nAlign,

CString sFontName, int nFONTSIZE0,

COLORREF crTextColor, CString sText)

{

LOGFONT lf;//字体

lflfStrikeOut=0;//删除线

lflfCharSet = DEFAULT_CHARSET ;//字符集

lflfEscapement =0;//角度

lflfItalic = 0 ;//倾斜

lflfUnderline = 0 ;//下划线

lflfHeight = nFONTSIZE0 ;//字号

strcpy(lflfFaceName,sFaceName

GetBuffer(sFontNameGetLength()));

CFont font ;

fontCreateFontIndirect(&lf);

CFont pOldFont = (CFont )

pDC->SelectObject(&font);

UINT oldAlign,uAlign ;

switch(nAlign)

{

case 0: uAlign = TA_LEFT | TA_TOP ; break;

case 1: uAlign = TA_CENTER | TA_TOP; break;

case 2: uAlign = TA_RIGHT | TA_TOP ; break;

default: uAlign = TA_LEFT | TA_TOP ; break;

}

oldAlign = pDC->SetTextAlign(uAlign);

int oldMode = pDC->SetBkMode(TRANSPARENT);

int oldColor = pDC->SetTextColor(crTextColor) ;

pDC->TextOut(x,y,sText);

pDC->SetTextColor(oldColor) ;

pDC->SetTextAlign(oldAlign);

pDC->SetBkMode(oldMode);

pDC->SelectObject(pOldFont);

fontDeleteObject();

}

---- 5 给CsplashWnd类中添加如下公有成员变量，并初始化变量；

class CSplashWnd : public CWnd

{

public:

CDC m_dcText,m_dcImage;//显示dc的兼容内存dc

CBitmap m_pBitmap;//位图对象

CBitmap m_pOldBitmapText,

m_pOldBitmap;//跟踪内存dc中的原位图

CRgn m_rgn;//用于生成矩形区域

CRect m_TextRect ;//显示文字的矩形区域

int m_nCurPos ;//文字当前位置

}

CSplashWnd::CSplashWnd()

{

m_nCurPos = 50 ;

}

---- 6在SPLASHCPP中加入以下预定义命令：

#define TITLECOLOR RGB(0,0,255)//默认标题颜色

#define CONTENTCOLOR RGB(0,255,255)//默认说明文字颜色

#define FONTSIZE0 15 //默认字号

---- 7 在CsplashWnd类Create中拷贝矩形区域到m_TextRect ；

BOOL CSplashWnd::Create

(CWnd pParentWnd /= NULL/)

{

m_TextRectCopyRect

(&CRect(50,100,500,300));

}

---- 8 在CsplashWnd类的成员OnPaint中添加代码，响应显示窗口时发送的WM_PAINT消息。

void CSplashWnd::OnPaint()

{

CPaintDC dc(this);

BITMAP bm;

m_bitmapGetBitmap(&bm);

static BOOL bFirst = TRUE;//

指示是否第一次绘制窗口

if(bFirst)

{

if (!m_dcImageCreateCompatibleDC(&dc)) return;

m_pOldBitmap = m_dcImageSelectObject(&m_bitmap);

if (!m_dcTextCreateCompatibleDC(&dc)) return;

m_pBitmap = new CBitmap ;

int nBitCount = m_dcTextGetDeviceCaps(BITSPIXEL);

m_pBitmap->CreateBitmap

(bmbmWidth,bmbmHeight,1,nBitCount,NULL);

m_pOldBitmapText = m_dcTextSelectObject(m_pBitmap);

m_rgnCreateRectRgn(m_TextRectleft,m_TextRecttop,

m_TextRectright,m_TextRectbottom);

bFirst = FALSE;

}

m_dcTextSelectClipRgn(NULL);

m_dcTextBitBlt(0, 0, bmbmWidth,

bmbmHeight,&m_dcImage, 0, 0, SRCCOPY);

m_dcTextSelectClipRgn(&m_rgn);

int nBasex = m_TextRectleft ;

int nBasey = m_TextRectbottom-m_nCurPos;

int nMidx = m_TextRectleft + m_TextRectWidth()/2 ;

DrawText(&m_dcText,nMidx,nBasey, 1,

"楷体_GB2312", FONTSIZE0+5,TITLECOLOR,"研制单位");

DrawText(&m_dcText,nMidx,nBasey+30, 1,

"楷体_GB2312", FONTSIZE0,CONTENTCOLOR,

"武警指挥学院模拟中心");

DrawText(&m_dcText,nMidx,nBasey+50, 1,

"楷体_GB2312", FONTSIZE0,TITLECOLOR,"邮政编码");

DrawText(&m_dcText,nMidx,nBasey+70, 1,

"楷体_GB2312", FONTSIZE0,CONTENTCOLOR,"300350");

dcBitBlt(0, 0, bmbmWidth,

bmbmHeight,&m_dcText, 0,0, SRCCOPY);

}