VB.NET作為一款功能強大的面向對象語言，為我們帶來了很多不一樣的體驗。我們今天可以通過對VB.NET調用WinAPI的操作技巧的掌握，來體驗一下這款語言給我們帶來的不同之處，從而初步掌握它的應用技巧。

以下為VB.NET調用WinAPI的演示實例：

Declare Auto Function MBox Lib 
"user32.dll" _  
Alias "MessageBox" (ByVal hWnd 
As Integer, _  
ByVal txt As String, ByVal 
caption As String, _  
ByVal Typ As Integer) As Integer  
'定義一些要調用參數  
Const MB_ICONQUESTION = &H20L  
Const MB_YESNO = &H4  
Const IDYES = 6 
Const IDNO = 7 
Private Sub Button1_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles 
Button1.Click  
Dim RetVal As Integer ' 存儲返回的值.  
RetVal = MBox(0, "調用WinApi成功否？", 
"Windows API 信息框", _  
MB_ICONQUESTION Or MB_YESNO)  
' Check the return value.  
If RetVal = IDYES Then  
MsgBox("您選擇了是")  
Else  
MsgBox("您選擇了不是")  
End If  
End Sub 

以下附上本CALLAPI.vb的所有代碼。各位可根據自己的要求對這段VB.NET調用WinAPI代碼自行修改。

Public Class CallApi  
Inherits System.Windows.Forms.Form  
Declare Auto Function MBox Lib 
"user32.dll" _  
Alias "MessageBox" (ByVal hWnd
 As Integer, _  
ByVal txt As String, ByVal 
caption As String, _  
ByVal Typ As Integer) As Integer  
'定義一些要調用參數  
Const MB_ICONQUESTION = &H20L  
Const MB_YESNO = &H4  
Const IDYES = 6 
Const IDNO = 7 
#Region " Windows Form Designer 
generated code "  
Public Sub New()  
MyBase.New()  
'This call is required by the 
Windows Form Designer.  
InitializeComponent()  
'Add any initialization after the 
InitializeComponent() call  
End Sub  
'Form overrides dispose to clean 
up the component list.  
Protected Overloads Overrides Sub 
Dispose(ByVal disposing As Boolean)  
If disposing Then  
If Not (components Is Nothing) Then  
components.Dispose()  
End If  
End If  
MyBase.Dispose(disposing)  
End Sub  
'Required by the Windows 
Form Designer  
Private components As System.
ComponentModel.IContainer  
'NOTE: The following procedure is 
required by the Windows Form Designer  
'It can be modified using the 
Windows Form Designer.   
'Do not modify it using the code editor.  
Friend WithEvents Button1 As System.
Windows.Forms.Button  
<System.Diagnostics.DebuggerStepThrough()> 
Private Sub InitializeComponent()  
Me.Button1 = New System.Windows.Forms.Button()  
Me.SuspendLayout()  
'  
'Button1  
'  
Me.Button1.Location = New System.
Drawing.Point(88, 56)  
Me.Button1.Name = "Button1" 
Me.Button1.Size = New System.Drawing.Size(168, 48)  
Me.Button1.TabIndex = 0 
Me.Button1.Text = "調用API的信息框" 
'  
'CallApi  
'  
Me.AutoScaleBaseSize = New System.
Drawing.Size(5, 13)  
Me.ClientSize = New System.Drawing.Size(384, 205)  
Me.Controls.AddRange(New System.Windows.
Forms.Control() {Me.Button1})  
Me.Name = "CallApi" 
Me.Text = "CallApi" 
Me.ResumeLayout(False)  
End Sub  
#End Region  
Private Sub Button1_Click(ByVal sender 
As System.Object, ByVal e As System.
EventArgs) Handles Button1.Click  
Dim RetVal As Integer ' 存儲返回的值.  
RetVal = MBox(0, "調用WinApi成功否？",
 "Windows API 信息框", _  
MB_ICONQUESTION Or MB_YESNO)  
' Check the return value.  
If RetVal = IDYES Then  
MsgBox("您選擇了是")  
Else  
MsgBox("您選擇了不是")  
End If  
End Sub  
End Class 

VB.NET調用WinAPI代碼示例就為大家介紹到這里。

【編輯推薦】

1. 兩種VB.NET發送郵件方法解讀
2. 如何對VB.NET流進行正確操作
3. VB.NET創建過程相關步驟詳解
4. VB.NET可執行語句示例代碼解讀
5. VB.NET聲明語句具體應用方法詳解