学步园

C＃例子

using   System.Runtime.InteropServices;    

[DllImport("user32.dll")]    
  public   static   extern   int   SendMessage(IntPtr   hWnd,int   Msg,int   wParam,int   lParam);    
   
  //此处主要用来让窗口置于最前(SetWindowPos(this.Handle,-1,0,0,0,0,0x4000|0x0001|0x0002);)    
  [System.Runtime.InteropServices.DllImport("user32.dll")]    
  public   static   extern   bool   SetWindowPos(IntPtr   hWnd,    
   int   hWndInsertAfter,    
   int   X,    
   int   Y,    
   int   cx,    
   int   cy,    
   int   uFlags    
   );      

在C#里调用Win32函数有这么几个要点。

第一：名字要与Win32 API的完全一样。

第二：函数除了要有相应的DllImport类修饰外，还要声明成public static extern类型的。

第三：函数的返回值和参数类型要与Win32 API完全一致！

窗口指针 hWnd 可以用 int 也可以用 IntPtr   推荐使用 IntPtr  

VBaisc例子

方法一。

 <DllImport("user32.dll")> _
        Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
        End Function

<DllImport("KERNEL32.DLL", EntryPoint:="MoveFileW", SetLastError:=True, _
    CharSet:=CharSet.Unicode, ExactSpelling:=True, _
    CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function MoveFile(ByVal src As String, ByVal dst As String) As Boolean
        '   This   function   copies   a   file   from   the   path   src   to   the   path   dst.  
        '   Leave   function   empty   -   DLLImport   attribute   forces   calls    
        '   to   MoveFile   to   be   forwarded   to   MoveFileW   in   KERNEL32.DLL.  
    End Function

方法二

Declare Function GetUserName Lib "advapi32.dll" Alias _
        "GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer

 详细例子可见另一篇文章 

 VB.NET编程中调用Windows API
本文来自: 中国网管联盟(bitsCN.com) 详细出处参考：http://www.bitscn.com/dotnet/vb/200605/24574.html 

VB.Net查看文件中图标的函数及申明Windows API的方法
本文来自: 中国网管联盟(bitsCN.com) 详细出处参考：http://www.bitscn.com/dotnet/vb/200605/24574.html

附1 常用Win32数据类型与.NET平台数据类型的对应表

Figure 2 Non-Pointer Data Types