用户名:  密码:  验证码: 验证码  注册  找回
RSS
无双网
 2018年10月17日 星期三  您现在位于: 首页 → 技术文栏 → 能否判断动态数组有没有被分配过-网站开发(其它相关:能否判...

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

2008年04月18日  无双网  出处:CSDN
 动态数组在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



 (本文已被浏览 15451 次)
 发布人:asp126
 → 推荐给我的好友
上篇文章:用diskid.dll和disk32.dll获得...
下篇文章:用VB6.0设计简易赛车游戏
发表评论
  → 评论内容 (点击查看)   共0条评论,每页显示5条评论   浏览所有评论
(没有相关评论)
  → 发表我的评论 (点击发表)
热门文章
 全部DLL下载
 添加红月装备的详细教程 (包括装备 武...
 保存webbrowser中的HTML内...
 MSFlexGrid使用技巧一例
 用vb6的ActiveX控件实现异步下...
 PC经典RPG《仙剑奇侠传Ⅰ》for PP...
 用VB6.0设计简易赛车游戏
 能否判断动态数组有没有被分配过
 利用压缩网页来提升网站浏览速度
 删SQL数据!还原新服务器!
最新文章
 [ODBC SQL Server Driv...
 评论:115网盘的何去何从
 我科学家实现百公里量级自由空间量子隐形...
 中国智能手机出货量占全球27%居世界之...
 Gartner:2012 第二季度西欧 P...
 [多图]华山论剑:当今在世的智商最高的...
 三星获出租车服务系统专利 可快速查看驾...
 [多图]15项可能延续到2030年的科...
 分析称苹果三星专利大战输赢已成定论
 Google终获云操作系统专利
 网站留言· 友情链接·与我在线·网站地图联系我们·管理·TOP 
 陕ICP备09004157号  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.000s, 8 queries, 37 Cache,0 Online