vbnet屏保代码 vbs锁屏代码

vb 6.0编写以指定文件夹中的图片作屏保的屏幕保护程序

我值提供变换的代码（不提供切换效果）

一个Timer 控件

Private f As FileListBox

Private Sub Form_Load()

f.Path = "你要设定的目录"

End Sub

Private Sub Timer1_Timer()

Static i As Integer

If f.ListCount = 0 Then Exit Sub

Me.Picture = LoadPicture(f.Path "\" f.List(i))

i = i + 1

If i = f.ListCount Then i = 0

End Sub

相关问答

Q1: vb:如何一键更改屏保的等待时间

笨方法呵..

新建工程,放2个按钮.全部代码如下:

Private Sub Command1_Click() '设置为30分钟

Shell "control desk.cpl", 1 '打开显示属性

SendKeys "+{TAB}", True '切换到屏保页

SendKeys "{RIGHT}", True

SendKeys "{RIGHT}", True

SendKeys "{TAB}", True '切换到屏保时间

SendKeys "{TAB}", True

SendKeys "{TAB}", True

SendKeys "{TAB}", True

SendKeys 3, True '输入30并回车

SendKeys 0, True

SendKeys "~", True

End Sub

Private Sub Command2_Click() '设置为1分钟

Shell "control desk.cpl", 1 '打开显示属性

SendKeys "+{TAB}", True '切换到屏保页

SendKeys "{RIGHT}", True

SendKeys "{RIGHT}", True

SendKeys "{TAB}", True '切换到屏保时间

SendKeys "{TAB}", True

SendKeys "{TAB}", True

SendKeys "{TAB}", True

SendKeys 1, True '输入1并回车

SendKeys "~", True

End Sub

Private Sub Form_Load()

Command1.Caption = "设置为30分钟"

Command2.Caption = "设置为1分钟"

End Sub

Q2: VBA中的关闭屏幕刷新：Application.ScreenUpdating = False，在VB.NET 中是怎么写的？

可以参考下面vbnet屏保代码的代码vbnet屏保代码：

Dim myexcel As excel.Application

On Error Resume Next

Set myexcel = GetObject(, "Excel.Application")

myexcel.Application.ScreenUpdating = False

扩展资料：

VB.NET关键词

Namespace包含类似或相关功能的类的集合

Class用来定义一个类用以存储对象的属性、方法和事件

Sub子过程vbnet屏保代码，可以把要使用的数据以参数形式传入，但不返回值

Function函数，同样可以传参数，但要求有返回值

Property属性过程，设置或返回对象的属性值

Nothing表示一个变量没有值，与其他语言或数据库中的null等价

参考资料来源：百度百科-Visual Basic .NET

Q3: vb 屏保代码注释

ShowCursor、Ellipse、BitBlt 这三个是API函数ShowCursor用于控制屏保显示时鼠标指针是否存在vbnet屏保代码；Ellipse是用于绘制椭圆vbnet屏保代码的函数vbnet屏保代码，在此程序中代表星星；BitBlt的作用是做位图，也就是各种大小、颜色的星星。关于这三个API函数的详细使用，我建议你上MSDN去看看，初学VB不一定要样样精通，见多识广就可以了。多看看MSDN吧！见的多了水平自然会提高！

自认为解释得很详细，分啊分啊分！

vbnet屏保代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs锁屏代码、vbnet屏保代码的信息别忘了在本站进行查找喔。