7492
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
sxs69 2003-05-14
www.vbgood.com在代码天地和经验之谈中用“百叶窗”搜索一下
LoveBH 2003-05-14
窗体的Cls方法是VB提供的清屏方法，但使用该方法来清屏不能实现我们希望的动态效果。实际上，所谓清屏就是用一种颜色将屏幕上原来的内容覆盖掉。那么，就可以使用图形方法（Line、Circle等）在窗体上绘制线条来清屏。通过控制线条的绘制过程，就可以实现五彩缤纷的清屏效果。例如，从窗体的两边开始画直线，使它们同时向中间靠拢，即可产生闭幕的清屏效果
'设置清屏色
Dim bcolor
Private Sub Clscolor()
Randomize
bcolor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub
'从左右两边到中间清屏
Private Sub ClrScrl()
Dim i As Integer
Clscolor
For i = 0 To ScaleWidth / 2
Line (i, 0)-(i, ScaleHeight), bcolor
Line (ScaleWidth - i, 0)-(ScaleWidth - i, ScaleHeight), bcolor
Next i
End Sub
'从中间到左右两边清屏
Private Sub ClrScr2()
Dim i As Integer
Clscolor
For i = ScaleWidth / 2 To 0 Step -1
Line (i, 0)-(i, ScaleHeight - 1), bcolor
Line (ScaleWidth - i, 0)-(ScaleWidth - i, ScaleHeight), bcolor
Next i
End Sub
'从上(顶)下(低)到中间清屏
Private Sub ClrScr3()
Dim i As Integer
Clscolor
For i = 0 To ScaleHeight / 2
Line (0, i)-(ScaleWidth, i), bcolor
Line (0, ScaleHeight - i)-(ScaleWidth, ScaleHeight - i), bcolor
Next i
End Sub
'从中间到上(顶)下(底)清屏
Private Sub ClrScr4()
Dim i As Integer
Clscolor
For i = ScaleHeight / 2 To 0 Step -1
Line (0, i)-(ScaleWidth, i), bcolor
Line (0, ScaleHeight - i)-(ScaleWidth, ScaleHeight - i), bcolor
Next i
End Sub
'菱形清屏，从四角向中心
Private Sub ClrScr5()
Dim i, j As Integer
Clscolor
For i = 0 To ScaleWidth Step 200
For j = 0 To ScaleHeight Step 200 * ScaleHeight / ScaleWidth
Line (i, 0)-(0, j), bcolor
Line (ScaleWidth - i, ScaleHeight)-(ScaleWidth, ScaleHeight - j), bcolor
Line (0, ScaleHeight - j)-(i, ScaleHeight), bcolor
Line (ScaleWidth - i, 0)-(ScaleWidth, ScaleHeight - j), bcolor
Next j
Next i
End Sub
'圆形清屏，由大至小从外围向中心
Private Sub ClrScr6()
Dim i As Integer
Clscolor
For i = ScaleWidth To 0 Step -3
Circle (ScaleWidth / 2, ScaleHeight / 2), i / 2, bcolor
Next i
End Sub
'圆形清屏，由小至大从中心向外围
Private Sub ClrScr7()
Dim i As Integer
Clscolor
For i = 0 To ScaleHeight Step 3
Circle (ScaleWidth / 2, ScaleHeight / 2), i / 2, bcolor
Next i
End Sub
Private Sub Command1_Click()
ClrScr7
ClrScr6
ClrScr5
ClrScr4
ClrScr3
ClrScr2
ClrScrl
End Sub
欢迎光临电脑爱好者论坛 bbs.cfanclub.net
'设置清屏色
Dim bcolor
Private Sub Clscolor()
Randomize
bcolor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub
'从左右两边到中间清屏
Private Sub ClrScrl()
Dim i As Integer
Clscolor
For i = 0 To ScaleWidth / 2
Line (i, 0)-(i, ScaleHeight), bcolor
Line (ScaleWidth - i, 0)-(ScaleWidth - i, ScaleHeight), bcolor
Next i
End Sub
'从中间到左右两边清屏
Private Sub ClrScr2()
Dim i As Integer
Clscolor
For i = ScaleWidth / 2 To 0 Step -1
Line (i, 0)-(i, ScaleHeight - 1), bcolor
Line (ScaleWidth - i, 0)-(ScaleWidth - i, ScaleHeight), bcolor
Next i
End Sub
'从上(顶)下(低)到中间清屏
Private Sub ClrScr3()
Dim i As Integer
Clscolor
For i = 0 To ScaleHeight / 2
Line (0, i)-(ScaleWidth, i), bcolor
Line (0, ScaleHeight - i)-(ScaleWidth, ScaleHeight - i), bcolor
Next i
End Sub
'从中间到上(顶)下(底)清屏
Private Sub ClrScr4()
Dim i As Integer
Clscolor
For i = ScaleHeight / 2 To 0 Step -1
Line (0, i)-(ScaleWidth, i), bcolor
Line (0, ScaleHeight - i)-(ScaleWidth, ScaleHeight - i), bcolor
Next i
End Sub
'菱形清屏，从四角向中心
Private Sub ClrScr5()
Dim i, j As Integer
Clscolor
For i = 0 To ScaleWidth Step 200
For j = 0 To ScaleHeight Step 200 * ScaleHeight / ScaleWidth
Line (i, 0)-(0, j), bcolor
Line (ScaleWidth - i, ScaleHeight)-(ScaleWidth, ScaleHeight - j), bcolor
Line (0, ScaleHeight - j)-(i, ScaleHeight), bcolor
Line (ScaleWidth - i, 0)-(ScaleWidth, ScaleHeight - j), bcolor
Next j
Next i
End Sub
'圆形清屏，由大至小从外围向中心
Private Sub ClrScr6()
Dim i As Integer
Clscolor
For i = ScaleWidth To 0 Step -3
Circle (ScaleWidth / 2, ScaleHeight / 2), i / 2, bcolor
Next i
End Sub
'圆形清屏，由小至大从中心向外围
Private Sub ClrScr7()
Dim i As Integer
Clscolor
For i = 0 To ScaleHeight Step 3
Circle (ScaleWidth / 2, ScaleHeight / 2), i / 2, bcolor
Next i
End Sub
Private Sub Command1_Click()
ClrScr7
ClrScr6
ClrScr5
ClrScr4
ClrScr3
ClrScr2
ClrScrl
End Sub
欢迎光临电脑爱好者论坛 bbs.cfanclub.net
英文版matlab清屏在哪,matlab清屏五彩缤纷的清屏效果.pdf 五彩缤纷的清屏效果疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article14770.html在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞台上的开幕、闭幕...
五彩缤纷的清屏效果 在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形态各异的清屏图案。VB作为一门优秀的WINDOWS下的开发语言，...
五彩缤纷的清屏效果 (转) 五彩缤纷的清屏效果 (转)[@more@]在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形态各异的清屏图案。...
屏保自己做 因需要根据不同星期自动调用不同屏保图片，自己动手做了一个 代码如下： //主工程文件 program scrsave; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize;...
UEFI开发探索32 – 有趣的图像特效 百叶窗特效，函数hWindowShadesShow()和vWindowShadesShow()： 图6 百叶窗特效 扩散收拢特效，函数为CornerToCenter()与CenterToCorner()。这两个函数属于半完成状态，程序还是比较粗糙。测试中发现，显示Jpeg的...
我在CSDN参与的3000个帖子 如何实现像Windows中的拷贝进度的效果 45： ＊＊＊＊＊ CSDN VB Blog 站点亮相推荐专栏 ＊＊＊＊＊ 46： 关于 排列组合算法 请高手赐教 47： 请问关于MSHFlexGrid的属性TextMatrix的问题，谢谢了！ ...
【C#编程学习笔记】MTK系统MMI的常用函数及宏定义 #define UI_FILLED_AREA_TYPE_ALTERNATE_HATCH_COLOR //交叉百叶窗（背景色c与替换色ac交替） #define UI_FILLED_AREA_TYPE_CROSS_HATCH_COLOR //十字图纹（背景色c与原始底色交替） #define UI_FILLED_...
黑客第二课：脱屌第一步 —— Vim Fundamentals 在上一节课（Web地址 http://www.cpp7.com/bbs/forum.php?mod=viewthread&tid=25）中，我讲到了UNIX、GNU和Linux这些... 那么，我们在正式进入第二课之前，我就来给大家做一个跟UNIX、GNU、Linux等等有关的测验。
(转载) MTK常用函数及宏定义 一、屏幕常用类：clear_screen//清屏entry_full_screen//全屏幕gui_BLT_double_buffer//重绘二、图形类：GDI：1、颜色格式转换（宏）：GDI_RGB_TO_BUFFER_FORMAT(R,G,B)GDI_BUFFER_FORMAT_TO_RGB_R(V...
MTK 常用函数及宏定义 一、屏幕常用类：clear_screen//清屏entry_full_screen//全屏幕gui_BLT_double_buffer//重绘二、图形类：GDI：1、颜色格式转换（宏）：GDI_RGB_TO_BUFFER_FORMAT(R,G,B)GDI_BUFFER_FORMA
