vb.Net编程简介之四

MsgBox(UserName)

End Function

在有些情况下，Visual Basic.NET能够更好的控制传递字符串到

API调用，因为你可以通过ANSI 和UNICODE关键字定义字符串传递的方式。

有三种情况需要对代码最手工改进。

1、在传递给API函数的自定义数据类型定义中包含固定长度字符串和

数组。在Visual Basic.NET中你需要对自定义数据类型定义中的每一个固定长度字符串和数组添加MarshallAs 属性。

2、在定义中使用As Any声明。该种声明不再被Visual Basic.NET支

持，变量定义为As Any通常是为了传递一个既可能是字符串也可能是Null的变量，在Visual Basic.NET中，你可以定义两个不同类型的API，一个为Long类型，一个为String类型，以API函数GetPrivateProfileString 为例：

Private Declare Function GetPrivateProfileString

Lib "kernel32" Alias

"GetPrivateProfileStringA" (ByVal lpApplicationName As

String, ByVal

lpKeyName As Any, ByVal lpDefault As String, ByVal

lpReturnedString As String, ByVal nSize As Long,

ByVal

lpFileName As String) As Long

你可以删除As Any而代之以定义两个不同的函数；一个接受Long数

值，一个接收String树脂：