VB课程设计 屏幕保护程序

我有一个屏幕保护教程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 "user32" ( _

ByVal bShow As Long _

) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _

ByVal uAction As Long, _

ByVal uParam As Long, _

ByVal lpvParam As Long, _

ByVal fuWinIni As Long _

) As Long

Private Sub Form_Click()

QuitFlag = True

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

QuitFlag = True

End Sub

Private Sub Form_Load()

Dim Throw As Long

Throw = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, ByVal 0&, 0)

Select Case UCase$(Left$(Command$, 2))

Case "/A"

MsgBox "此屏幕保护程序不可以设置口令。"

Unload Me

Exit Sub

Case "/C"

MsgBox "此屏幕保护程序没有设置项。"

Unload Me

Exit Sub

Case "/P"

Unload Me

Exit Sub

Case "/S"

Show

Throw = ShowCursor(False)

Throw = SetWindowPos(hwnd, -1, 0, 0, 0, 0, (&H2 Or &H1))

Label1Left = frmScreenSaverScaleWidth

Label1Top = (frmScreenSaverScaleHeight - Label1Height) / 2

Do

Label1Left = Label1Left - 3

Sleep (50)

If Label1Left <= -Label1Width Then Label1Left = frmScreenSaverScaleWidth + Label1Width

DoEvents

Loop Until QuitFlag = True

Timer1Enabled = True

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Xnow As Single, Ynow As Single

Static Xlast As Single, Ylast As Single

Xnow = X

Ynow = Y

If Xlast = 0 And Ylast = 0 Then

Xlast = Xnow

Ylast = Ynow

Exit Sub

End If

If Xnow <> Xlast Or Ynow <> Ylast Then

QuitFlag = True

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim Throw As Long

Throw = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, ByVal 0&, 0)

Throw = ShowCursor(True)

End Sub

Private Sub Label1_Click()

QuitFlag = True

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

QuitFlag = True

End Sub

Private Sub Timer1_Timer()

Unload Me

End Sub

;BIOS调用实现

CODE SEGMENT

ASSUME CS:CODE

START:

MOV CX,26

MOV AX,0E41H;功能号e->AH,字符ASCII码->AL

LOP1:

INT 10H

INC AL

LOOP LOP1

MOV AH,4CH

INT 21H

CODE ENDS

END START

一句大白话：windows程序设计讲的就是怎么做Windows系统下运行的程序。

和他相对应的有Web程序设计、Linux程序设计、Mac程序设计等。

你所使用的windows程序的功能不只是显示图像吧，你用的的Windows那些程序有什么功能，Windows程序设计就能设计、制作那些应用程序。qq、游戏、播放器等等。

不过一本书肯定是不够的，从基础学起慢慢来吧

电脑桌面出现一个黑色的方框，上面有关闭的话，你就直接点关闭就可以了，不让它d出来。设置的话肯定是在控制面板里面设置或者是个性化里面设置。

有很多用户喜欢用两个屏幕，尤其是程序员、游戏玩家、视频制作者等，可以说双屏显示，游戏工作，两不误。那么电脑设置双屏显示或多屏显示有什么用？怎么设置双屏或多屏显示呢？下面简单介绍一下它的作用以及具体的 *** 作方法吧！

双屏显示器有什么好处（电脑）

1、大屏幕拼接

（拼接计算机图形，拼接动态视频）投影墙;公安、军事、铁路、交通、航天、邮电、卫星发射等指挥调度系统;图形图像编辑，三维动画，多媒体设计;工业领域的过程控制;证券交易、期货、银行信息显示;CAD/CAM设计，排版编辑系统，视频图象编辑。

2、文件编辑：

制作企划案文件资料时，同时参考搜寻相关网络资料，不会因为切换视窗而造成资料混乱。

3、绘图编辑：

使用绘图软件设计案件时，同时开启参考文案窗口，也可以延伸桌面，方便处理大型设计稿制作，与校对的窗口完全不重叠。

4、影视娱乐：

（1）收看网络电视，同时浏览其它频道的节目介绍，精彩节目不错过。

（2）玩在线游戏时，可同步对照游戏攻略的密技。

5、 办公室 ：

（1）横跨两个以上的屏幕检视大型表格（如EXCEL图表）。

（2）在延伸出的桌面空间上同时开启多个程序，不需频繁地切换使用窗。

（3）读取电子邮件并同时在其它屏幕开启附件档案。

6、程序设计：

撰写复杂的程序时，另外一个窗口同时检视程序执行结果画面，方便进行更新修改。

以上就是双屏电脑的好处了，大家现在对于双屏电脑是不是也有所了解了呢？看到小编为大家列举的都是双屏电脑的好处是不是有些心动呢？下面一起来看看如何设置吧！

一、硬件要求（以Win10系统为案例）

1、电脑主机必须具备VGA/DVI/HDMI任意两路输出的独立显卡接口（一般入门级显卡就支持），如下图所示：

2、准备VGA/DVI/HDMI任意两根线，显示输出接口对应的连接线外观图如下所示：

3、两个显示器，支持VGA/DVI/HDMI任意两种接口（否则需要VGA转换器接头）

二、双屏 *** 作步骤

1、首先把外接显示器与电脑显卡接口通过VGA/DVI/HDMI任意两种线相连接。

2、连接成功后，进入电脑系统桌面，鼠标右击桌面空白处选择显示设置

3、如果连接成功就可以看到显示器有2个

4、显示界面找到多显示器设置下方选择扩展这些显示器，然后两个显示器就可以正常显示了。

5、如果线路检测没问题仍然显示不出来，那么鼠标 右击桌面选择 NVIDIA 控制面板

6、找到设置多个显示器，然后勾选我们希望使用的显示器，这样就可以 了。

三、多屏显示方法

硬件要求：

除了支持双屏的硬件条件之外，部分电脑需要进BIOS设置查找相关选项，若无法找到，说明主板不支持，请参考下面 *** 作。

进BIOS *** 作步骤:

1、开机进入BIOS，找到Devices-Video Setup选项，敲击Enter回车按键；

2、选择Select Active Video选项设置成IGD模式，并将Multi-Monitor Support选项设置成Enabled模式；

3、设置完成后，点击F10键，选择Yes进行保存；

4、重启进入 *** 作系统后，在桌面空白处右键，从菜单中找到集成显卡控制台程序，进行多屏显示设置即可。

以上就是关于VB课程设计 屏幕保护程序全部的内容，包括:VB课程设计 屏幕保护程序、汇编语言程序设计：在屏幕上显示26个英文字母A~Z。、windows程序设计到底是讲什么的呢我感觉好像都在讲图像如何输出到屏幕等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！