视频讲解：
https://www.php.cn/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
