VB.NET作為一款功能強(qiáng)大的面向?qū)ο笳Z言，為我們帶來了很多不一樣的體驗(yàn)。我們今天可以通過對(duì)VB.NET調(diào)用WinAPI的操作技巧的掌握，來體驗(yàn)一下這款語言給我們帶來的不同之處，從而初步掌握它的應(yīng)用技巧。

以下為VB.NET調(diào)用WinAPI的演示實(shí)例：

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  
'定義一些要調(diào)用參數(shù)  
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 ' 存儲(chǔ)返回的值.  
RetVal = MBox(0, "調(diào)用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的所有代碼。各位可根據(jù)自己的要求對(duì)這段VB.NET調(diào)用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  
'定義一些要調(diào)用參數(shù)  
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 = "調(diào)用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 ' 存儲(chǔ)返回的值.  
RetVal = MBox(0, "調(diào)用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調(diào)用WinAPI代碼示例就為大家介紹到這里。

【編輯推薦】

1. 兩種VB.NET發(fā)送郵件方法解讀
2. 如何對(duì)VB.NET流進(jìn)行正確操作
3. VB.NET創(chuàng)建過程相關(guān)步驟詳解
4. VB.NET可執(zhí)行語句示例代碼解讀
5. VB.NET聲明語句具體應(yīng)用方法詳解