刘金玉的零基础VB教程073期：windows API使用入门 sleep

星夢妙者 2025-09-05 00:00:00 次阅读

视频讲解：

https://www./link/0d7c463832b871c20405a6c9296b5517

文字讲解：

刘金玉的零基础VB教程073期：Windows API使用入门 sleep

Windows API

Windows操作系统，包括XP、Win7、Win8、Win10等

还有操作系统的位数：32位和64位

64位操作系统兼容32位软件

最初系统普遍使用的是32位

Windows 32位API简称Win32 API

API

简单理解就是接口

接口：对接的口子

Windows API就是Windows操作系统开发的接口

这些接口用于控制Windows系统

如何入门？

VB6自带Windows API的查找工具

可以根据查找的接口，自动生成一个声明语句

1、在菜单目录中找到API Text Viewer

2、导入Win32API文本

3、搜索我们需要的API函数，使用私有模式添加

4、复制API文本

模拟自动倒计时

技术点：使用API

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

参数：传入一个毫秒数

课堂总结

1、了解Windows API

2、在VB中学会使用API Text Viewer

3、查看Win32 API函数

4、了解常用的API函数

界面：

源代码：

代码语言：javascript 代码运行次数：0

运行复制 ```javascript Dim WithEvents label1 As Label '引入window api 这是一个睡眠函数，意思是暂停多少时间 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Click() AutoRedraw = True Dim i As Long For i = 10 To 0 Step -1 label1.Caption = i Sleep (1000) '暂停一秒 DoEvents Next i End Sub

Private Sub Form_Load() Set label1 = Controls.Add("vb.label", "label1") label1.AutoSize = True label1.Caption = "10" label1.FontSize = 50 label1.Left = ScaleWidth / 2 - label1.Width / 2 label1.Top = ScaleHeight / 2 - label1.Height / 2 label1.Visible = True End Sub