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.hantingmc.com/qtweb/news48/502748.html

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

广告

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

猜你还喜欢下面的内容

域名注册知识

分类信息网站

网站SEO优化　　 　led无边发光字　　 　定制网站　　 　小程序　　 　企业微信定制　　 　bgp多线机房托管　　 　企业网站建设　　 　产品包装设计　　 　云主机　　 　证企宝企业　　 　重庆电信五里店机房　　 　led背发光字　　 　广安网站制作公司　　 　手机网站版本　　 　关键词优化　　 　江油网站建设　　 　网站优化排名推广　　 　成都免费建网站　　 　LED显示屏厂家　　 　资阳网站建设