今天学习了刘金玉老师零基础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