vb编程从入门到精通图文（学习VB编程第59天windowsAPI使用入门）

vb编程从入门到精通图文（学习VB编程第59天windowsAPI使用入门）Dim n As LongAutoRedraw = TrueDim WithEvents label1 As LabelPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Click()

今天学习了刘金玉老师零基础VB教程的第73期，学习的主要内容是windows API使用入门。

1.API简单的理解就是指接口，Windows API它是windows操作系统开发的接口用来控制系统内的各种应用。

2.哪里去找API？VB6.0自带WindowsAPI的查找工具，而且还可以根据查找的接口，自动生成一个申明语句。在Windows开始菜单栏中找到api浏览器，打开api浏览器——然后导入WIN32API.TXT——搜索我们需要的API函数，使用私有模式，复制文本。

3.案例：使用sleep API创建一个倒计时工具。

Dim WithEvents label1 As Label

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

Private Sub Form_Click()

AutoRedraw = True

Dim n As Long

For n = 10 To -10 Step -1

label1.Caption = n

Sleep (500)

DoEvents

Next n

End Sub

Private Sub form_load()

Set label1 = Controls.Add("vb.label" "label1")

label1.Caption = "10"

label1.FontSize = 40

label1.AutoSize = True

label1.Left = ScaleWidth / 2 - label1.Width / 2

label1.Top = ScaleHeight / 2 - label1.Height / 2

label1.Visible = True

End Sub