|
从VB 6.0到VB.NET的转换(3)(1) 升级
向导
过程的 ParamArray 参数标记有升级警告。例如，以下代码：
Function MyFunction(ParamArray p() As Variant)
'...
End Function
升级后将变为：
' UPGRADE_WARNING: ParamArray p was changed from ByRef to ByVal
Function MyFunction(ByVal ParamArray p() As Object)
'...
End Function
声明中的 As Any 参数
Visual
Basic 6.0 本地 API 的参数可以声明为 As Any，这样对本地 API 的调用就可以传递任何数据类型。通过这一方法，可以调用参数支持两种或多种数据类型的 API。
Visual Basic.NET
重载的 Declare 语句可以定义为允许调用带有两种或多种数据类型的本地 API。例如，以下 Declare 语句：
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
可以由两个 Declare 版本代替，一个接受 Long，一个接受字符串。
Overloads Private Declare Function GetPrivateProfileStringKey _
Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Overloads Private Declare Function GetPrivateProfileStringNullKey _
Lib "kernel32" Alias"GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Long, _
ByVal lpDefault As String, _
|
