实现滚动厅虚启字幕:
一、单行滚动,写一个函数,每次调用让全局或静态字符数组向一个方向移位(比如左移,从最右边一个非0字符开始遍历,依次覆盖左边的一个字符,最左边的字符被第二个字符覆盖,最右边一个非0位变移出的那个字符)。记得保留结束符号0。
二、之后循环打印字符数组。每次使用system("cls"誉磨)清空控制台显示。
三、多行滚动,同理,只不过把字符移动覆盖,改成字符串移动覆盖。(移动方向的后一行覆盖前一行,把移动方向第一行内容赋值给最后一行)。
//ps:由于肉眼观察,移动需要间隔,用Sleep函数,但该函数会让线程停止,如滚屏间隔期间,还希望其它部分正常运行,需要写线程。
下面是参考代码:
#include<stdio.h>
#include <windows.h>
void sScreen(char str[],int len,int f)//len:内容长度,不包含结束符号。f=1向左移动。f=0向右移动
int main()
{
char str[]="I LOVE YOU"
while(1)
{
printf("%s\n",str)
sScreen(str,10,0)
Sleep(1000)
system("cls")
}
return 0
}
void sScreen(char str[],int len,int f)
{
int i
char c
if(f)
{
c=str[0]
for(i=0i<len-1i++)
str[i]=str[i+1]
str[len-1]=c
}
if(!f)
{
c=str[len-1]
扮如 for(i=len-1i>0i--)
str[i]=str[i-1]
str[0]=c
}
}
1、在窗体上画上计时器控件timer1和
label控件label1.
2、设置timer1的enable属性为false,interval属性为500,即500毫秒执行一次
3、设置label1的autosize属性为true,表示label1根据caption属性的内容自动调整大小。
4、在代码窗口里,写出以下代码:
Dim
ChuShiWeiZhi
As
Integer'表示label1的初始位置
Private
Sub
Command1_Click()
Timer1.Enabled
=
True'使计时控茄余件工作
End
Sub
Private
Sub
Form_Load()'窗体加载时,记录label1的位毁拦置,并初始化label1的内容,注意vbCrLf表示换行
ChuShiWeiZhi
=
Label1.Top
Label1.Caption
=
"请"
&
vbCrLf
&
"采"
&
vbCrLf
&
"纳"
&
vbCrLf
&
"我"
&
vbCrLf
&
"的"
&
vbCrLf
&
"答
"
&
vbCrLf
&
"案"
&
vbCrLf
&
"已"
&
vbCrLf
&
"通"
&
vbCrLf
&
"颤余滚过"
&
vbCrLf
&
"测"
&
vbCrLf
&
"试"
End
Sub
Private
Sub
Timer1_Timer()
Label1.Top
=
Label1.Top
-
200'没执行一次使label1的top减少200缇,200可以修改为任意你要的值
If
Label1.Top
+
Label1.Height
<
0
Then'当label1完全移出窗体时,令它top再次变为初始的值,实现循环
Label1.Top
=
ChuShiWeiZhi
End
If
End
Sub
通过测试,请采纳答案,我是vb编程团队成员,很高兴为您服务!
在图片左边写字的代码:<P><IMG height=201 hspace=30 src="图片连接地址" width=154 align=right border=0><FONT face=Arial>你要输入的文字</FONT>
在图片右边写文字的代码:
<P><IMG height=201 hspace=30 src="图片连接地址" width=154 align=left border=0><FONT face=Arial>你要输入的文字</FONT>
height=是图片高度,width=是图片宽度,hspace=是与文字之间的距离,可以自己调整数值,
标题字幕特效
你想让自己的文章更加旦粗正光彩吗?试试下面这个代码吧!
<FONT style="FONT-SIZE: 20ptFILTER: shadow(color=blue)WIDTH: 100%COLOR: #000000FONT-FAMILY: 华文彩云HEIGHT: 48px"><B> 你将要换上的文字</B></FONT
将其中的“你将要换上的文字”更换成你的文字就行了。
其中的(color=blue)是字体颜色。
让字幕上下滚动的代码
<MARQUEE scrollAmount=1 scrollDelay=77 direction=up width=270 height=77
onmouseout="this.start()" onmouseover="this.stop()">你的字
<BR>你的字
<BR>你的字
<BR>你的字
<BR>你的字</MARQUEE>
<BR>后面是显示的文字,根据你的需要填写。
注意,一个<BR>代表一行字,如果一行字太长,可能导致显示不完全。
</MARQUEE>代表文字结束。
让文字写在图片上的代码
1. 进入发表文章窗口;(想凳掘要作背景的图片网络地址应该先前就知道,否则文章做一半又得去找图,多烦!)
2. 勾选“显示源代码”---至关重要!
3. 在编辑栏内添加下列代码:
<table width="450" border="0">
<tr>
<td height="562" background="图片地址"模悔></td>
</tr>
</table>
4. 取消“显示源代码”的选择,你就会在编辑栏看到图片,而且光标也在图片之上(可能光标的首行不在图片的顶端,不过没有关系,尽管从光标的首行可是您的写作就行了,文字会自动顶到图片的顶端);
5. 写文章与没有图片一样,完了点击“发表文章”就行了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)