vb屏保源代码(vb源代码网站)
admin 发布:2022-12-19 20:38 172
本篇文章给大家谈谈vb屏保源代码,以及vb源代码网站对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
vb 屏保代码注释
ShowCursor、Ellipse、BitBlt 这三个是API函数ShowCursor用于控制屏保显示时鼠标指针是否存在;Ellipse是用于绘制椭圆的函数,在此程序中代表星星;BitBlt的作用是做位图,也就是各种大小、颜色的星星。关于这三个API函数的详细使用,我建议你上MSDN去看看,初学VB不一定要样样精通,见多识广就可以了。多看看MSDN吧!见的多了水平自然会提高!
自认为解释得很详细,分啊分啊分!
用vb怎么做个简单的屏幕保护
本实例的项目文件SCRNSAVE.MAK中包括两个文件: SCRNSAVE.BAS、BLANK.FRM。这两个文件的作用分别说明如下。
一、SCRNSAVE.BAS
此模块文件包含四个子程序: HideMouse,ShowMouse,EndScrnsave,Main。前三个子程序分别用于隐藏鼠标光标、重新显示鼠标光标和结束屏幕保护程序返回Windows。当在Windows控制面板的桌面对话框中对屏幕保护程序进行“设置”时,Windows会传给相应的屏幕保护程序一个命令行参数Command$,此命令行参数含有“/c”开关,要求屏幕保护程序提供自己的设置对话框。当在桌面对话框中对屏幕保护程序进行“测试”或在设定的时间内无键盘和鼠标操作而激活屏幕保护程序时,Command$中含有“/s”开关,要求屏幕保护程序立即开始运行。本文提供的屏幕保护程序实例在启动时首先执行Main子程序,Main子程序通过检查Command$来决定后续操作。若Command$中含有“/c”开关,则利用MsgBox显示简单的提示信息, 说明本程序未提供任何设置选项;若Command$中含有“/s”开关,则启动一覆盖全屏幕的黑色窗体BlankForm,并在此窗体上显示动画,进行正常的屏幕保护工作。
为了在程序启动时首先执行Main子程序,应从VB的Options菜单中选择“Project...”项,在Project Options对话框中把Start Up Form设置为“Sub Main”。
二、BLANK.FRM
此文件是屏幕保护程序的主体。它负责建立一个覆盖全屏幕的黑色窗体BlankForm,并在此窗体上显示动画。它还负责监视键盘和鼠标事件,一旦有键盘或鼠标动作,则立即结束屏幕保护程序的运行返回Windows。为了建立一个无边框、无标题条的覆盖全屏幕的黑色窗体,需将BlankForm窗体属性中的BorderStyle置为0-None,Caption置为空,ControlBox置为False,BackColor置为&H00000000&,并在Form_Load中利用Move 0,0,Screen.Width,Screen.Height将其放大为覆盖整个屏幕。
本例显示的动画是根据《电脑爱好者》1995年第8期“动画制作秘籍(一)”中的CIRCSHOW.BAS程序改编而成。动画部分是屏幕保护程序中最精彩的部分。实际上,它也是读者为了编写自己的屏幕保护程序而唯一需要修改的部分,也是读者的创意可以尽情发挥的部分。读者可以充分发挥自己的想象力和创造力,编写出精美动人的动画。本例通过Form_KeyDown和Form_MouseMove来监视键盘和鼠标事件的发生。一旦有键盘输入,则立即结束屏幕保护程序的运行,返回Windows。鼠标则必须在移动了至少三个像素时方能结束屏幕保护程序的运行,这样可避免因敲工作台等偶然的事件而使屏幕保护程序的运行中断。
在建立了以上两个文件后,将其加到项目文件SCRNSAVE.MAK中,生成EXE文件。在生成EXE文件时, 应注意如下两点:
1.在Make EXE File对话框的“Application Title”域中应填写一个特殊的名字。这个名字必须以“SCRNSAVE”打头,随后是你要在控制面板的屏幕保护程序清单中显示的名字。例如, 本例所用标题为“SCRNSAVE VB Screen Saver”。
2.生成的EXE文件的扩展名必须为SCR而不能是EXE。本例所取EXE文件名为SSVB.SCR(按照惯例所有的屏幕保护程序的名字都以SS打头)。读者所要做的最后一件事是将SSVB.SCR拷到自己的Windows目录下, 这样Windows才能找到它, 并在控制面板的屏幕保护程序清单中显示出来。本文实例在PWIN 3.2、VB 3.0环境下调试通过。
清单1: SCRNSAVE.BAS
Declare Function ShowCursor Lib 〃USER〃 (ByVal fShow As Integer) As Integer
Sub EndScrnsave ()
ShowMouse ′使鼠标重新可见
End ′然后退出屏幕保护程序
End Sub
Sub ShowMouse ()
′这个子程序使鼠标箭头重新出现在屏幕上
While ShowCursor(True) 0
Wend
End Sub
Sub HideMouse ()
′这个子程序把屏幕上的鼠标箭头隐蔽起来
While ShowCursor(False) = 0
Wend
End Sub
Sub Main ()
′只允许屏幕保护程序的一个实例运行
If App.PrevInstance=True Then
Exit Sub
End If
′检查一下应该空屏还是显示设置对话框
If InStr(Command$, 〃/c〃) Then
MsgBox 〃No setup options for this screen saver〃 ′显示设置对话框
ElseIf InStr(Command$, 〃/s〃) Then
BlankForm.Show ′开始运行屏幕保护程序
End If
′等到没有要显示的窗体时就退出
While DoEvents() 0
Wend
End Sub
清单2: BLANK.FRM
(1)窗体和控制属性
对象 属性设置
FormBackColor &H00000000&
BorderStyle 0-None
Caption
ControlBox False
Name BlankForm
ScaleMode3-PixelTimerInterval1NameTick
(2)窗体程序
Dim r, f, p, X0, Y0
Dim lastX, lastY
Const pi = 3.14159
Sub Form_Load ()
Move 0, 0, Screen.Width, Screen.Height ′将窗体放大到覆盖全屏幕
HideMouse
r = 50
p = 0
f = 0
X0 = ScaleWidth / 2 - 1
Y0 = ScaleHeight / 2 - 1
End Sub
Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
EndScrnsave ′结束屏幕保护程序的运行
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer,
X As Single, Y As Single)
If IsEmpty(lastX) Or IsEmpty(lastY) Then
lastX = X
lastY = Y
End If
′仅当鼠标移动足够迅速(一次2个象素以上)才恢复屏幕
If Abs(lastX - X) 2 Or Abs(lastY - Y) 2 Then
EndScrnsave ′结束屏幕保护程序
End If
lastX = X
lastY = Y ′记住最后的位置
End Sub
Sub Tick_Timer ()
Dim X As Single
Dim Y As Single
If f = 0 Then
c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
X = r * Cos(2 * pi * p / 360) + X0
Y = r * Sin(2 * pi * p / 360) + Y0
Line (X0, Y0)-(X, Y), c
Circle (X, Y), 2, c
If r = 200 Then
f = 1
Exit Sub
End If
r = r + 1 / 2
p = p + 7
ElseIf f = 1 Then
c = RGB(0, 0, 0)
X = r * Cos(2 * pi * p / 360) + X0
Y = r * Sin(2 * pi * p / 360) + Y0
Line (X0, Y0)-(X, Y), c
Circle (X, Y), 2, c
If r = 50 Then
f = 0
Exit Sub
End If
r = r - 1 / 2
p = p - 7
End If
End Sub
求VB屏保的代码....要简单的 进入(黑色)屏保後,例如只要按一下ESC就可以回到正常这样就可以了,,,,邮箱
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_TOP = 0
Private Const WM_SHOWWINDOW = H18
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Unload Me
End If
End Sub
Private Sub Form_Load()
'在属性窗口中将Form1的BorderStyle设为None
Me.BackColor = vbBlack
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, Screen.Width, Screen.Height, WM_SHOWWINDOW
End Sub
'如果要设为屏保,需将生成的exe文件后缀改为scr,保存到system32中,并在电脑中选择此屏保
vb屏保源代码的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb源代码网站、vb屏保源代码的信息别忘了在本站进行查找喔。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 05-18seo网站优化,seo网站优化是做什么的
- 05-18网站收录,时代教育杂志被哪个网站收录
- 05-18seo网站排名查询,seo 网站排名
- 05-18网络推广公司网站,网络推广公司哪家好,无后顾之忧!
- 05-18海外免费网站推广,免费行情网站app
- 05-18北京seo优化,北京seo网站排名优化公司
- 05-18seo网站排名,seo网站排名全选
- 05-18可以免费网络推广网站,可以免费网络推广网站的平台
- 05-18个人怎么建网站,个人建网站步骤
- 05-18做一个网站需要多少钱大概,做一个网站需要多少钱大概中公
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接