vb6如何判断任意类型动态数组为空
想做个判断为空的函数,在函数内部用 Ubound判断数组长度,通过捕捉错误,判断数组是否为空,问题是想把这个函数做成可判断任意类型数据的动态数组,不知道这个函数的参数类型怎么写,或有其他什么办法来判读任意类型的动态数组是否为空
vb6如何判断任意类型动态数组为空(想做个判断为空的函数)
答案:2 悬赏:0 手机版
解决时间 2021-04-06 17:32
- 提问者网友:了了无期
- 2021-04-05 18:11
最佳答案
- 五星知识达人网友:雾月
- 2021-04-05 18:26
刚刚找到一个好方法
Private Sub Command1_Click()
Dim a(), i As Long
MsgBox hasredim(a), 64, "Has a() been redimed?" '未初始化
ReDim a(20)
For i = 1 To 20
a(i) = Chr(i + 64)
Next
MsgBox hasredim(a), 64, "Has a() been redimed?" '初始化后
Erase a '释放空间后
MsgBox hasredim(a), 64, "Has a() been redimed?"
End Sub
Function hasredim(ByRef x()) As Boolean '定义布尔函数
Dim temp As String
temp = Join(x, ",")
hasredim = LenB(temp) > 0 '空数组长度为零
End Function
Private Sub Command1_Click()
Dim a(), i As Long
MsgBox hasredim(a), 64, "Has a() been redimed?" '未初始化
ReDim a(20)
For i = 1 To 20
a(i) = Chr(i + 64)
Next
MsgBox hasredim(a), 64, "Has a() been redimed?" '初始化后
Erase a '释放空间后
MsgBox hasredim(a), 64, "Has a() been redimed?"
End Sub
Function hasredim(ByRef x()) As Boolean '定义布尔函数
Dim temp As String
temp = Join(x, ",")
hasredim = LenB(temp) > 0 '空数组长度为零
End Function
全部回答
- 1楼网友:一秋
- 2021-04-05 20:01
就是你说的方法,建议不要用vb6了,换vs2008用vb.net
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯