利用VB6.0设计屏幕保护程序

5、检测键盘上各按键的状态Visual Basic中的键盘活动由KeyDown触发。代码与单击事件的代码一样。

Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer) 　X=ShowCursor(True) 　End EndSub

　　下面我们将设计一个简单的屏幕保护程序，该程序运行时，从左至右显示一张图片，图片从屏幕左边出现，至屏幕右面消失，象拉幕一样，且重不停复该过程。假设图片文件名为PIC.BMP，并存放在Windows文件夹中。实际操作如下：

　　创建一新工程，在窗体中添加一图片框和一个Timer控件。设置它们的属性如下：

Form　　　 BackColor=&H80000007&　 BorderStyle=0　　’None MaxButton=False　 MinButton=False　　 Windowstate=2　’Maximized Timer　　　 Intelval=5 PictureBox　 BackColor=&H80000007&　　 BorderStyle=0　’None　　 AutoSize=Ture

　　输入代码如下：

’在窗体的声明部分声明ShowCursor函数。 Private Declare Function ShowCursor Lib“user32”(By Val bShow As Long) As Long 　’在窗体上单击鼠标时退出程序 　Private Sub Form-Click()　 　　X=ShowCursor(True)　 　　End　 　EndSub 　’在窗体上按下按键时退出程序 　Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer)　X=ShowCursor(True)　 　　End 　EndSub 　’加载窗体时隐藏鼠标 　Private Sub Form-Load()　 　　Dim X As Long　 　　X=ShowCursor(False)　 　　Picture1.Visible=False　 　　Picture1.PICTure=LoadPICTure(“C:\windows\PIC.BMP”)　 　　Picture1.Left=-Picture1.Width 　EnｄSub 　’在窗体上移动鼠标时退出程序 Private Sub Form-MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) 　Static currentX,currentY As Single 　Dim orignX,orignY As Single 　’把当前的鼠标值赋给orignX和orignY 　orignX=X 　orignY=Y 　’初始化currentX和currentY 　If　currentX=0 And currentY=0 Then　　 　　currentX=orignX　　 　　currentY=orignY　　 　　ExitSub　　 　EndIf 　If Abs(orignX-currentX)>1 Or Abs(orignY-currentY)>1 　　Then　X=ShowCursor(True) 　　End　　　 　EndIf EndSub Private Sub Picture1-Click()　 　X=ShowCursor(True) 　End EndSub Private Sub Picture1-KeyDown(KeyCode As Integer,Shift As Integer) 　X=ShowCursor(True) 　End EndSub Private Sub Picture1-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) 　Static Xlast,Ylast As Single 　Dim Xnow,Ynow As Single 　Xnow=X 　Ynow=Y 　If Xlast=0 And Ylast=0 Then 　　Xlast=Xnow 　　Ylast=Ynow 　　ExitSub 　EndIf 　If Abs(Xnow-Xlast)>1 Or Abs(Ynow-Ylast)>1 Then 　　X=ShowCursor(True) 　　End 　EndIf EndSub Private Sub Timer1-Timer() 　Picture1.Visible=True 　Picture1.Top=(Form1.Height-Picture1.Height)/2 　Picture1.Left=Picture1.Left+50 　If Picture1.Left>Form1.Width Then 　　Picture1.Left=-Picture1.Width 　　EndIf 　EndSub

　　将以上代码编译生成可执行文件，在保存文件对话窗中输入文件名称时把扩展名改为”SCR”，最后将生成的屏幕保护程序添加到Windows的系统下即可。

查看本文来源