【VB6】实现VB6中类的静态方法
发布时间:2020-12-17 00:11:58 所属栏目:大数据 来源:网络整理
导读:原创文章,欢迎支持 在VB的使用过程中,较为高级和较为具有兼容性的编程方式是创建类模块。 比如创建了一个数组创建类,专门用来创建特定类型的数组,它被存在一个“ArrayHelper.cls”文件中。代码如下: Option Explicit '/////////////////// '@@summary '
原创文章,欢迎支持
比如创建了一个数组创建类,专门用来创建特定类型的数组,它被存在一个“ArrayHelper.cls”文件中。代码如下: Option Explicit
'///////////////////
'@@summary
'@@require
'@@reference
'@@license
'@@author
'@@create
'@@modify
'////////////////////
'-------------------
' 初始化
'-------------------
Private Sub Class_Initialize()
End Sub
'--------------------
' 销毁
'--------------------
Private Sub Class_Terminate()
End Sub
'///////////////////////////
'//
'// 公有方法
'//
'///////////////////////////
Public Function StringArray(ParamArray arr()) As String()
Dim a() As String
Dim i As Integer
ReDim a(UBound(arr))
For i = LBound(arr) To UBound(arr)
If VarType(arr(i)) <> vbString Then
Err.Raise 104,"[SunSoft]参数非String,请检查代码!"
End If
a(i) = CStr(arr(i))
Next i
StringArray = a
End Function
Public Function IntegerArray(ParamArray arr()) As Integer()
Dim a() As Integer
Dim i As Integer
ReDim a(UBound(arr))
For i = LBound(arr) To UBound(arr)
If VarType(arr(i)) <> vbInteger Then
Err.Raise 104,"[SunSoft]参数非Integer,请检查代码!"
End If
a(i) = CStr(arr(i))
Next i
IntegerArray = a
End Function
当我需要在其他的地方使用这里的方法的时候,我必须创建一个类,才能使用这个方法。如下: Dim k() As String
Dim o As New ArrayHelper
k = o.StringArray("1","2222")
Stop
在Stop命令帮助下,我们在调试模式下验证,k变量的确得到了正确的数组。 但是,由于VB6的机制,我们没法在不创建对象的时候调用这个对象的方法。 今天,创建ActiveX DLL的时候,意外发现了一个方法。 使用ActiveX DLL创建支持静态函数的类创建工程创建一个ActiveX DLL工程,工程名为 创建类首先,添加一个类模块(
编译导出编译,生成 使用方法新建一个普通exe工程,然后在 Dim k() As String
k = ArrayHelper.StringArray("1","2222")
Stop
可以看到我们可以直接访问到ArrayHelper提供的方法了。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |