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

https://v.qq.com/x/page/y09403xlp4p.html

文字讲解：

刘金玉的零基础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