刘金玉的零基础VB教程073期：
windows API使用入门 sleep
windows API
Windows操作系统，xp win7 win8 win10
还有操作系统的位数 32位 64位
64位操作系统是兼容32的软件的
系统最初碰到多的32位
Window 32位 API简称Win32 API
API
简单的理解就是接口
接口：对接的口子
Windows API 就是windows操作系统开发的接口
这些接口，用来控制windows系统的
如何入门？
VB6自带windows api的查找工具
可以根据查找的接口，自动生成一个声明语句
1、在菜单目录中找到API Text Viewer
2、导入win32API文本
3、搜索我们需要的API函数，使用private模式添加
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函数要了解
界面：
源代码：
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
