屏幕保护设置文字流程

不用其他软件,你只要右键桌面,选择属性,就可以进行桌面设置了

在主题里进行桌面背景设置;在屏幕保护程序中选择三维文字或字幕,点击设置,就可以屏幕保护文字设置了,你喜欢什么文字就改成什么文字

是不是很简单

谢谢我吧!

进入设置个性化锁屏界面屏幕保护程序设置：

请选择3D文字（下方等待时间选择15分钟）→设置→自定义文字（可以修改文字内容）→确定：

Windows系统自带的“三维文字”等屏幕保护程序可以设置显示时间。以Win7为例：进入控制面板——外观和个性化，点击右栏更改屏幕保护程序。在屏幕保护程序设置窗口，从下拉菜单选中三维文字。再点旁边的设置按钮，进入三维文字设置界面，选择左上角的时间，确定退出。这时便能在屏幕保护程序设置窗口预览效果了。另外，也可下载安装一些同样能设置显示时间的第三方屏幕保护程序。

利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。

---- 一 基本编程思路

---- 大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕像素被损伤。所以，屏幕保护程序就是显示不断变化或移动的图形，并且当有鼠标移动或按键时能够终止的程序。

---- 1 编制屏幕保护图形

---- 2 隐藏鼠标

---- 用ShowCursor Windows API 函数我们可以实现隐藏鼠标。

---- 3 检测鼠标和按键行为

---- 检测上述行为以便退出屏幕保护程序

---- 4 Windows 调用屏幕保护程序的参数命令

---- /a 在显示器属性对话框中单击了改变口令按钮。

---- /p 每当选中显示器属性对话框中屏幕保护程序标签时，在对话框显示预览效果。

---- /c 在显示器属性对话框中单击了设置按钮。

---- /s 在显示器属性对话框中单击了预览按钮或屏幕保护程序被系统正常调用。

---- 5 编译屏幕保护程序

---- 其实任何VB应用程序都可作为屏幕保护程序来运行，但为了被Windows 95 所调用，需要将它作为屏幕保护程序来编译。首先进入VB5编程环境，编好程序后选择/File/Make project菜单项，然后在File Name文本框中将后缀名EXE改为SCR。最后单击OK按钮,将生成的SCR文件拷到Windows目录下，就完成了屏幕保护程序的创建。

---- 二 实例

---- 下面就用一个实例给大家详细说明屏幕保护程序的制作。

Option Explicit

Dim quitflag As Boolean ‘声明终止程序标志变量

Dim lleft

‘声明隐藏或显示鼠标的API函数

Private Declare Function ShowCursor Lib "user32"

(ByVal bShow As Long) As Long

‘检测鼠标单击或移动

Private Sub Form_Click()

quitflag = True

End Sub

Private Sub Form_MouseMove(Button As Integer,

Shift As Integer, X As Single, Y As Single)

Static xlast, ylast

Dim xnow As Single

Dim ynow 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_KeyDown(KeyCode As Integer,

Shift As Integer)

quitflag = True

End Sub

Private Sub Form_Load()

Dim X As Long

lleft = 0

‘横向滚动文字的起始X坐标

If AppPrevInstance = True Then

‘用APP对象的PrevInstance属性

Unload Me

‘防止同时运行屏幕保护程序的两个实例

Exit Sub

End If

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

‘装载命令行参数

Case "/S" ‘在显示器属性对话框中单击了

预览按钮或屏幕保护程序被系统正常调用。

Show

‘全屏显示Form1窗体

Randomize

‘初始化随机数生成器

X = ShowCursor(False)

‘隐藏鼠标

BackColor = vbBlack

Do

Timer2Enabled = True

‘启动Timer2 ,显示屏幕保护滚动文字

DoEvents

‘转让控制权,以便检测鼠标和按键行为

Loop Until quitflag = True

‘运行屏幕保护滚动文字直至有鼠标和按键行为

Timer2Enabled = False

‘终止滚动文字

Timer1Enabled = True

‘启动Timer1,退出屏幕保护程序

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim X

X = ShowCursor(True)

‘显示鼠标

End Sub

Private Sub Timer1_Timer()

Unload Me

‘退出屏幕保护程序

End Sub

Private Sub Timer2_Timer()

显示横向滚动文字

lleft = lleft + 100

If lleft >= 11810 Then

lleft = 0

Lab1Top = Int(Rnd 7000)

End If

Lab1Left = lleft

Timer2Enabled = False

End Sub

以上就是关于屏幕保护设置文字流程全部的内容，包括:屏幕保护设置文字流程、如果想在电脑空闲15分钟后启动屏幕保护,屏保程序为“三维文字”,应如何设置、电脑如何在屏幕保护显示时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！