VB.NET调用WinAPI实例探讨

VB.NET作为一款功能强大的面向对象语言，为我们带来了很多不一样的体验。我们今天可以通过对VB.NET调用WinAPI的操作技巧的掌握，来体验一下这款语言给我们带来的不同之处，从而初步掌握它的应用技巧。

创新互联建站凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势，提供专业的网站策划、成都网站设计、做网站、成都外贸网站建设公司、网站优化、软件开发、网站改版等服务，在成都10年的网站建设设计经验，为成都成百上千家中小型企业策划设计了网站。

以下为VB.NET调用WinAPI的演示实例：

 
 
 
    
  
  
  
  1. Declare Auto Function MBox Lib 
    "user32.dll" _ 
    2. 
  
  
  
  2. Alias "MessageBox" (ByVal hWnd 
    As Integer, _ 
    3. 
  
  
  
  3. ByVal txt As String, ByVal 
    caption As String, _ 
    4. 
  
  
  
  4. ByVal Typ As Integer) As Integer 
    5. 
  
  
  
  5. '定义一些要调用参数 
    6. 
  
  
  
  6. Const MB_ICONQUESTION = &H20L 
    7. 
  
  
  
  7. Const MB_YESNO = &H4 
    8. 
  
  
  
  8. Const IDYES = 6
    9. 
  
  
  
  9. Const IDNO = 7
    10. 
  
  
  
  10. Private Sub Button1_Click(ByVal 
    sender As System.Object, ByVal e 
    As System.EventArgs) Handles 
    Button1.Click 
    11. 
  
  
  
  11. Dim RetVal As Integer ' 存储返回的值. 
    12. 
  
  
  
  12. RetVal = MBox(0, "调用WinApi成功否？", 
    "Windows API 信息框", _ 
    13. 
  
  
  
  13. MB_ICONQUESTION Or MB_YESNO) 
    14. 
  
  
  
  14. ' Check the return value. 
    15. 
  
  
  
  15. If RetVal = IDYES Then 
    16. 
  
  
  
  16. MsgBox("您选择了是") 
    17. 
  
  
  
  17. Else 
    18. 
  
  
  
  18. MsgBox("您选择了不是") 
    19. 
  
  
  
  19. End If 
    20. 
  
  
  
  20. End Sub
    21.

以下附上本CALLAPI.vb的所有代码。各位可根据自己的要求对这段VB.NET调用WinAPI代码自行修改。

 
 
 
    
  
  
  
  1. Public Class CallApi 
    2. 
  
  
  
  2. Inherits System.Windows.Forms.Form 
    3. 
  
  
  
  3. Declare Auto Function MBox Lib 
    "user32.dll" _ 
    4. 
  
  
  
  4. Alias "MessageBox" (ByVal hWnd
     As Integer, _ 
    5. 
  
  
  
  5. ByVal txt As String, ByVal 
    caption As String, _ 
    6. 
  
  
  
  6. ByVal Typ As Integer) As Integer 
    7. 
  
  
  
  7. '定义一些要调用参数 
    8. 
  
  
  
  8. Const MB_ICONQUESTION = &H20L 
    9. 
  
  
  
  9. Const MB_YESNO = &H4 
    10. 
  
  
  
  10. Const IDYES = 6
    11. 
  
  
  
  11. Const IDNO = 7
    12. 
  
  
  
  12. #Region " Windows Form Designer 
    generated code " 
    13. 
  
  
  
  13. Public Sub New() 
    14. 
  
  
  
  14. MyBase.New() 
    15. 
  
  
  
  15. 'This call is required by the 
    Windows Form Designer. 
    16. 
  
  
  
  16. InitializeComponent() 
    17. 
  
  
  
  17. 'Add any initialization after the 
    InitializeComponent() call 
    18. 
  
  
  
  18. End Sub 
    19. 
  
  
  
  19. 'Form overrides dispose to clean 
    up the component list. 
    20. 
  
  
  
  20. Protected Overloads Overrides Sub 
    Dispose(ByVal disposing As Boolean) 
    21. 
  
  
  
  21. If disposing Then 
    22. 
  
  
  
  22. If Not (components Is Nothing) Then 
    23. 
  
  
  
  23. components.Dispose() 
    24. 
  
  
  
  24. End If 
    25. 
  
  
  
  25. End If 
    26. 
  
  
  
  26. MyBase.Dispose(disposing) 
    27. 
  
  
  
  27. End Sub 
    28. 
  
  
  
  28. 'Required by the Windows 
    Form Designer 
    29. 
  
  
  
  29. Private components As System.
    ComponentModel.IContainer 
    30. 
  
  
  
  30. 'NOTE: The following procedure is 
    required by the Windows Form Designer 
    31. 
  
  
  
  31. 'It can be modified using the 
    Windows Form Designer.  
    32. 
  
  
  
  32. 'Do not modify it using the code editor. 
    33. 
  
  
  
  33. Friend WithEvents Button1 As System.
    Windows.Forms.Button 
    34. 
  
  
  
  34.  
    Private Sub InitializeComponent() 
    35. 
  
  
  
  35. Me.Button1 = New System.Windows.Forms.Button() 
    36. 
  
  
  
  36. Me.SuspendLayout() 
    37. 
  
  
  
  37. ' 
    38. 
  
  
  
  38. 'Button1 
    39. 
  
  
  
  39. ' 
    40. 
  
  
  
  40. Me.Button1.Location = New System.
    Drawing.Point(88, 56) 
    41. 
  
  
  
  41. Me.Button1.Name = "Button1"
    42. 
  
  
  
  42. Me.Button1.Size = New System.Drawing.Size(168, 48) 
    43. 
  
  
  
  43. Me.Button1.TabIndex = 0
    44. 
  
  
  
  44. Me.Button1.Text = "调用API的信息框"
    45. 
  
  
  
  45. ' 
    46. 
  
  
  
  46. 'CallApi 
    47. 
  
  
  
  47. ' 
    48. 
  
  
  
  48. Me.AutoScaleBaseSize = New System.
    Drawing.Size(5, 13) 
    49. 
  
  
  
  49. Me.ClientSize = New System.Drawing.Size(384, 205) 
    50. 
  
  
  
  50. Me.Controls.AddRange(New System.Windows.
    Forms.Control() {Me.Button1}) 
    51. 
  
  
  
  51. Me.Name = "CallApi"
    52. 
  
  
  
  52. Me.Text = "CallApi"
    53. 
  
  
  
  53. Me.ResumeLayout(False) 
    54. 
  
  
  
  54. End Sub 
    55. 
  
  
  
  55. #End Region 
    56. 
  
  
  
  56. Private Sub Button1_Click(ByVal sender 
    As System.Object, ByVal e As System.
    EventArgs) Handles Button1.Click 
    57. 
  
  
  
  57. Dim RetVal As Integer ' 存储返回的值. 
    58. 
  
  
  
  58. RetVal = MBox(0, "调用WinApi成功否？",
     "Windows API 信息框", _ 
    59. 
  
  
  
  59. MB_ICONQUESTION Or MB_YESNO) 
    60. 
  
  
  
  60. ' Check the return value. 
    61. 
  
  
  
  61. If RetVal = IDYES Then 
    62. 
  
  
  
  62. MsgBox("您选择了是") 
    63. 
  
  
  
  63. Else 
    64. 
  
  
  
  64. MsgBox("您选择了不是") 
    65. 
  
  
  
  65. End If 
    66. 
  
  
  
  66. End Sub 
    67. 
  
  
  
  67. End Class
    68.

VB.NET调用WinAPI代码示例就为大家介绍到这里。

文章名称：VB.NET调用WinAPI实例探讨
网页URL：http://www.csdahua.cn/qtweb/news48/502748.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网

成都快上网为您推荐相关内容

移动网站建设知识

各行业网站

成都酒店服定制　　 　网站制作价格　　 　广汉做网站　　 　成都网站建设　　 　四川晃众门窗　　 　成都免费自助建站　　 　主动防护网　　 　微信小程序开发　　 　内江做网站　　 　成都茶叶销售　　 　软文推广　　 　网站运营　　 　成都温江机房　　 　中国电信西部信息中心机房　　 　企业网站建设公司　　 　阿坝网站建设　　 　温江服务器托管　　 　app网站建设　　 　成都虚拟主机　　 　网站改版