用戶名:  密碼:  驗證碼: 驗證碼  注冊  找回
RSS
無雙網
 2019年10月12日 星期六  您現在位于: 首頁 → 技術文欄 → 能否判斷動態數組有沒有被分配過-網站開發(其它相關:能否判...

能否判斷動態數組有沒有被分配過

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



 (本文已被瀏覽 16925 次)
 發布人:asp126
 → 推薦給我的好友
上篇文章:用diskid.dll和disk32.dll獲得...
下篇文章:用VB6.0設計簡易賽車游戲
發表評論
  → 評論內容 (點擊查看)   共0條評論,每頁顯示5條評論   瀏覽所有評論
(沒有相關評論)
  → 發表我的評論 (點擊發表)
熱門文章
 保存webbrowser中的HTML內...
 用VB6.0設計簡易賽車游戲
 MSFlexGrid使用技巧一例
 游戲對照表
 Win2003+Discuz!5.5+II...
 添加紅月裝備的詳細教程 (包括裝備 武...
 全部DLL下載
 在Delphi里播放Flash
 用vb6的ActiveX控件實現異步下...
 能否判斷動態數組有沒有被分配過
最新文章
 [ODBC SQL Server Driv...
 評論:115網盤的何去何從
 我科學家實現百公里量級自由空間量子隱形...
 中國智能手機出貨量占全球27%居世界之...
 Gartner:2012 第二季度西歐 P...
 [多圖]華山論劍:當今在世的智商最高的...
 三星獲出租車服務系統專利 可快速查看駕...
 [多圖]15項可能延續到2030年的科...
 分析稱蘋果三星專利大戰輸贏已成定論
 Google終獲云操作系統專利
 網站留言· 友情鏈接·與我在線·網站地圖聯系我們·管理·TOP 
 陜ICP備14011112號  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.016s, 8 queries, 34 Cache,0 Online  
福建11选5遗漏