荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: FDISK (FDISK-C), 信区: Visual
标 题: 自作屏保
发信站: BBS 荔园晨风站 (Sat Jan 1 09:01:48 2000), 转信
作者:feeing
为增强Windows屏幕保护程序的效果,可以利用Windows下声音动
画API函数,播放声音动画,还可加进高分辨率位图,方法很多,可 以
根据自己喜好采用。这里介绍一个最简单的屏幕保护程序。
在VB中设计一个窗体:form1;一个编辑框:text1,用以编辑修改备
忘录或者标语;一个文本框:label1,用以显示备忘录或标语。只要设
置form1的keypreview属性为true,而其他均可为缺省值。程序清单附
后。
将此程序编译成.exe文件后更名为.scr文件,copy到当前使用的
Windows目录的System目录下,并在控制面板中选定它(如果是Windows
3.x,可能要手动修改Windows目录下的System .ini中"SCRNSAVE.EXE="
语句,控制面板才能够选到该程序)。这就完成了屏幕保护程序的开
发和安装。
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.241]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店