发信人: feeing()
整理人: jinhu(1999-06-22 21:46:44), 站内信件
|
为增强Windows屏幕保护程序的效果,可以利用Windows下声音动
画API函数,播放声音动画,还可加进高分辨率位图,方法很多,可
以根据自己喜好采用。这里介绍一个最简单的屏幕保护程序。
在VB中设计一个窗体:form1;一个编辑框:text1,用以编辑修改备
忘录或者标语;一个文本框:label1,用以显示备忘录或标语。只要设
置form1的keypreview属性为true,而其他均可为缺省值。程序清单附
后。
将此程序编译成.exe文件后更名为.scr文件,copy到当前使用的W
indows目录的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
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.101.163.248]
|
|