VB 版 (精华区)

发信人: wugang (◆◆King◆◆), 信区: VisualBasic
标  题: 屏保(转)
发信站: 紫 丁 香 (Wed Jun 30 05:51:35 1999), 转信


　　为增强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  
--
                       _______
      伞              ノ____ノ\           ★       伞     ┌───────┐
     伞伞             ｜ ∩  ▓                   伞伞    │ ◆◆KING◆◆ │
    伞伞伞            ˉˉˉˉˉ -_              伞伞伞   │ Icq:10689743 │
      ‖             ▇▇▇▇▇▇   -__--          ‖     └───────┘ 
_._.-*'"'*-._,_.-*'"'*-._,_.-*'"'*-._,_.-*'"'*-._,_.-*'"'*-._,_.-*'"'*-._,_.-* 

※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: hitcc02.hit.edu.]