VB.NET调用WinAPI实例探讨-vb 调用

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代码示例就为大家介绍到这里。

【编辑推荐】