争怎路由网:是一个主要分享无线路由器安装设置经验的网站,汇总WiFi常见问题的解决方法。

能否判断动态数组有没有被分配过

时间:2024/6/22作者:未知来源:争怎路由网人气:

 动态数组在VB语言中常能起到出奇制胜的作用。但数组有没有被重新定义或释放,用“is empty”,“is null”,“=" "”等方法都不起作用。所以判断时一般采用侦别错误消息(ON ERROR )的方法。下面给出一个非错误侦别的代码,判断动态字符串数组的分配情况:

 

Private Sub Command1_Click()
Dim a() As String, 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 String) As Boolean  '定义布尔函数
Dim temp As String
temp = Join(x, ",")
hasredim = LenB(temp) > 0 '空数组长度为零
End Function





关键词:能否判断动态数组有没有被分配过




Copyright © 2012-2018 争怎路由网(http://www.zhengzen.com) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版