代码之家 › 专栏 › 技术社区 › Tanj

函数声明中的别名重载了吗?

vb6 vb.net

Tanj · 技术社区 · 17 年前

Declare Function TmSendByLen Lib "tmctl.dll"  Alias "TmSendByLength"(ByVal id As Integer, ByRef msg As Any, ByVal blen As Integer) As Integer
'snip'

Function TmSendByLength(ByVal id As Integer, ByVal msg As String, ByVal blen As Integer) As Integer
    TmSendByLength = TmSendByLen(id, msg, blen)
End Function

2 回复 | 直到 17 年前

Ant 17 年前

Alias没有指定函数是否完全重载,但指定的名称实际上是被调用dll中的其他名称。

由于你的例子有点令人困惑(因为名字重复),我将使用稍微修改过的版本来解释:

Declare Function TmSendByLen Lib "tmctl.dll" Alias "TmSendByLength" (ByVal id As Integer, ByRef msg As Any, ByVal blen As Integer) As Integer)

Function InternalVersion(ByVal id As Integer, ByVal msg As String, ByVal blen As Integer) As Integer
    InternalVersion = TmSendByLen(id, msg, blen)
End Function

因此,在这个修改版本中 TmSendByLength name是实际调用被引用函数入口点的名称 tmctl.dll . TmSendByLen 这就是我们在代码中所指的,以及 InternalVersion

我想这是这样的

As Any here .)是否删除Alias完全取决于您,但无论哪种方式,我怀疑您都需要使用 As IntPtr .