學(xué)習(xí)VB.NET時(shí)，你可能會(huì)遇到VB.NET調(diào)用Window API問(wèn)題，這里將介紹VB.NET調(diào)用Window API問(wèn)題的解決方法，在這里拿出來(lái)和大家分享一下。

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站設(shè)計(jì)制作、成都做網(wǎng)站、三山網(wǎng)絡(luò)推廣、小程序設(shè)計(jì)、三山網(wǎng)絡(luò)營(yíng)銷、三山企業(yè)策劃、三山品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供三山建站搭建服務(wù)，24小時(shí)服務(wù)熱線：028-86922220，官方網(wǎng)址：www.cdcxhl.com

VB.NET調(diào)用Window API的方法與 VB6中類似，也是必須使用Declare語(yǔ)句聲明動(dòng)態(tài)連接庫(kù)（DLL）中外部程序的引用。下面做一個(gè)調(diào)用的實(shí)例， 調(diào)用 advapi32.dll中的 GetUserName 函數(shù) 來(lái)獲得 系統(tǒng)登錄的用戶名 。

 
 
 

  
  
  
Imports System 
  
  
  
Imports System.Text 
  
  
  
Imports Microsoft.VisualBasic 
  
  
  

  
  
  
Public Class Form3Class Form3 
  
  
  
Declare Function GetUsername()Function GetUsername Lib "advapi32.dll" Alias _ 
  
  
  
"GetUserNameA" (ByVal lpbuffer As String, ByRef nSize As Integer) _ 
  
  
  
As Integer 
  
  
  

  
  
  
Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button3.Click 
  
  
  
Dim RV As Integer 
  
  
  
Dim UserName As String 
  
  
  
Dim Buffer As String 
  
  
  
Buffer = New String(CChar(" "), 25) 
  
  
  
RV = GetUsername(Buffer, 25) 
  
  
  
UserName = Microsoft.VisualBasic.Left(Buffer, InStr(Buffer, Chr(0)) - 1) 
  
  
  
MsgBox(UserName) 
  
  
  
End Sub 
  
  
  
End Class 
 
 
 

當(dāng)然，DotNet FrameWork 2.0已經(jīng)提供了豐富的類庫(kù)。我們可以不必VB.NET調(diào)用Window API就可以得到基本上所有的功能，尤其是當(dāng) 微軟 的 操作系統(tǒng)也已經(jīng) 架設(shè) 在 .net FrameWork 上之后。

當(dāng)前名稱：VB.NET調(diào)用WindowAPI經(jīng)驗(yàn)總結(jié)
URL地址：http://uogjgqi.cn/article/cccjdsj.html