在VB里，怎么调用API函数啊？

Question

能不能举一个简单的例子？

Answer 1

比如:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
这里就是定义了一个私有API函数GetPixel 
使用的时候可以这样:
dim Color as long
...
Color=GetPixel(Pictue1.hdc,100,20)
...
h和一般的函数一样用关于API的定义,你可以在VB里找菜单"外接程序管理器"找"API浏览器"
里面有绝大部分API的定义

Answer 2

先声明,然后调用就可以了Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Sub Command1_Click()
 Dim id As Long
  id = ShowWindow(Me.hwnd, 3)
End Sub

Answer 3

Const MB_OK = &H0&
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Form_Load()
    MessageBox Me.hwnd, "你好！", App.Title, MB_OK
    End
End Sub