VB课程设计 屏幕保护程序

来源：百度知道 编辑：UC知道 时间：2024/05/29 18:00:53
专业点的 不要简单滴 要有源代码 截图 或者其他设计也行 一定要是VB
写的好加分 尽快 明天要滴
Name frmScreenSaver
代码第九行没找到啊

我有一个屏幕保护教程VB的，可惜字数太多，这里贴不下！

二、 生成界面
对象 属性 设置值
Form1 AutoRedraw True
BackColor 黑色
BorderStyle 0 - None
Caption 我的编程世界……
ControlBox False
KeyPreview True
MaxButton False
MinButton False
Name frmScreenSaver
ScaleMode 3 - Pixel
WindowState 2 - Maximized
Label1 AutoSize True
BackStyle 0 - Transparent
BorderStyle 0 - None
Caption 我的编程世界……
ForeColor 红色
Font 幼圆
Timer1 Enabled False
Interval 1

在窗体下加入下面的代码：
Option Explicit

Dim QuitFlag As Boolean
Const SPI_SETSCREENSAVEACTIVE = 17
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 Declare Function ShowCursor Lib "use