荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Peter (小飞侠), 信区: Program
标 题: 开发自己的屏幕保护程序
发信站: BBS 荔园晨风站 (Wed Jan 27 17:42:05 1999), 转信
屏幕保护程序不仅仅用于保护屏幕,有时还可以起到消除疲劳、放
松自己的作用;如果自己能设计屏幕保护程序的话,更可以起到意想不
到的效果。比如,您的家人是游戏迷,而您不想让他过分沉迷于游戏之
中,您可以设计一个屏幕保护程序,当他在电脑前苦思冥想时,突然屏
幕上出现大字标语:好男儿当自强。这可能比苦口婆心的劝解更有感
召力。再如,您可以将备忘录输入屏幕保护程序,这样,电脑会随时提
醒您要做的事情,岂不一举两得。
为增强Windows屏幕保护程序的效果,可以利用Windows下声音动
画API函数,播放声音动画,还可加进高分辨率位图,方法很多,读者可
以根据自己喜好采用。这里介绍一个最简单的屏幕保护程序。
在VB中设计一个窗体:form1;一个编辑框:text1,用以编辑修改备
忘录或者标语;一个文本框:label1,用以显示备忘录或标语。只要设
置form1的keypreview属性为true,而其他均可为缺省值。程序清单附
后。
将此程序编译成.exe文件后更名为.scr文件,copy到当前使用的W
indows目录的System目录下,并在控制面板中选定它(如果是Windows
3.x,可能要手动修改Windows目录下的System .ini中"SCRNSAVE.EXE=
"语句,控制面板才能够选到该程序)。这就完成了屏幕保护程序的开
发和安装。
笔者用VB4.0及DELPHI2.0、3DS等制作了部分包含动画与多媒体
的屏幕保护程序,取得了良好的效果;因篇幅所限,不能全部刊出。
Modulel-1
Type mytextstr
textstr As String * 500
’定义存入文件的字符结构
End Type
Form1-1
Dim text1str As mytextstr
Private Sub Form_KeyDown(KeyCode As Integer,Shift As I
nteger)
If Shift Then
’用户按SHIFT键后
If KeyCode=27 Then
'再按ESC键
Text1.Visible=True
'为编辑备忘录或者标语
Text1.SetFocus
End If
End If
'用户按任何SHIFT+ESC以外的键则退出屏幕保护
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyCode=13 Then
'在编辑框中按回车则存盘
text1str.textstr=Text1.Text
'取入结构
Open "c:\Windows\dxcscr.ini" For Random As #1
'存盘备下次使用
put #1,1,text1str
Close #1
End If
End Sub
Private Sub Form_Load()
'屏幕保护加载
If Dir("c:\dxcscr.ini")<>Empty Then
'判定有无上次存盘的记录
Open "c:\Windows\dxcscr.ini" For Random As #1
'有,则取出
Get #1,1,text1str
Close #1
Labell.Caption=text1str.textstr
Else
Labell.Caption=Text1.Text
'无,则取原始设定
End If
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As
Integer,X As Singl e, Y As Single)
End
'用户移动鼠标,结束屏幕保护
End Sub
--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店