主题：怎样定义api函数

最好让发布商提供调用例程，我很少使用传统的DLL，有的话也是对方提供了例程给我的。

 

下面这段加入全局代码：

 

    <DllImport("文件名.dll")> _
    Private Function GetPeopleName(ByVal lpOutBuffer As StringBuilder, ByVal length As Integer) As Integer
    End Function

 

 Public Function GetName() As String 
        Dim lpOutBuffer As New StringBuilder(32)
        If GetPeopleName(lpOutBuffer, 32) = 1 Then
            Return lpOutBuffer.ToString.Trim
        Else
            Return Nothing
        End If
End Function

 

在Foxtable中用GetName函数取得姓名

 

 

 

不太懂，对方应该有vb.net或C#例程的。

如果是vb.net的，可以直接用。

如果是C#的，网上有转换程序。