function - VB6 有指定函数别名的方法吗？

Question

有没有办法在 VB6 中为函数指定别名？

例如。我有以下功能

 Public Sub printCommonString(CommonString() As Byte)
 ...

我这样称呼这个函数 -

 printCommonString commonString

我不想以这种方式调用函数，而是想使用更短的名称，例如

pCS commonString

所以 pCS 是 printCommonString 的别名。有没有办法写出这样的别名？

Answer 1

据我所见，VB6 中没有别名。如果您无法重命名该方法，这可能是一个选项。创建一个简单包装 printCommonString 的方法怎么样？

Public Sub pCS(ByRef CommonString() As Byte)
   printCommonString CommonString
End Sub

Answer 2

据我所知，您可以在 VB6 中使用的唯一别名是从 DLL 声明函数的别名。例如

Declare Function Dostf Lib "stuff.dll" Alias "DoStuff" (ByVal id As Integer, ByRef msg As Any, ByVal blen As Integer) As Integer)

其中 DoStuff 是库中的函数名， Dostf 是 vb 代码中的函数名。