香蕉体育官网:vb中 如何判断数组是否初始化或为空
来源:百度文库 编辑:中财网 时间:2024/04/25 11:56:29
本文用到的是SafeArray结构的知识,感兴趣的可以搜索一下
原帖见:
topic.csdn.net/u/20100706/14/f81323d6-233b-45ef-af71-2ced3de677d4.html
Private Declare Function VarPtrArray _
Lib "msvbvm60.dll" _
Alias "VarPtr" (Var() As Any) As Long
Private Declare Sub CopyMemory _
Lib "kernel32" _
Alias "RtlMoveMemory" (lpDst As Any, _
lpSrc As Any, _
ByVal ByteLength As Long)
Private Sub Form_Load()
Dim a(0) As Long '被检测的数组
Dim PSafeArray As Long
'取得的数组内容的地址,
'如果该数字指向一个正确的地址,那么该数组是已经被正确初始化的
'如果其指向0,那么说明数组没有被初始化过
CopyMemory PSafeArray, ByVal VarPtrArray(a()), 4 '从数组的SafeArray结构头中得到实际数据的地址
If PSafeArray = 0 Then
MsgBox "数组没有被初始化过"
Else
MsgBox "数组已经被初始化,其数据地址为" & PSafeArray
End If
原帖见:
topic.csdn.net/u/20100706/14/f81323d6-233b-45ef-af71-2ced3de677d4.html
Private Declare Function VarPtrArray _
Lib "msvbvm60.dll" _
Alias "VarPtr" (Var() As Any) As Long
Private Declare Sub CopyMemory _
Lib "kernel32" _
Alias "RtlMoveMemory" (lpDst As Any, _
lpSrc As Any, _
ByVal ByteLength As Long)
Private Sub Form_Load()
Dim a(0) As Long '被检测的数组
Dim PSafeArray As Long
'取得的数组内容的地址,
'如果该数字指向一个正确的地址,那么该数组是已经被正确初始化的
'如果其指向0,那么说明数组没有被初始化过
CopyMemory PSafeArray, ByVal VarPtrArray(a()), 4 '从数组的SafeArray结构头中得到实际数据的地址
If PSafeArray = 0 Then
MsgBox "数组没有被初始化过"
Else
MsgBox "数组已经被初始化,其数据地址为" & PSafeArray
End If
Java中如何判断数组元素是否为空?
在vfp中如何判断通用字段是否为空.
.NET中,OdbcDataReader如何判断查询结果是否为空?
SQL中如何判断一个变量是否为空
VB中如何为变量数组声明
如何判断ResultSet 值是否为空
判断是否为空
asp 中如何判断access数据库中ole字段是否为空?
在asp中如何判断access数据表里的备注字段是否为空?
在asp中如何判断access数据表里的备注字段是否为空?
如何判断SQL数据表中某image类型字段的内容是否为空
判断 dropdownlist 是否为空
在DELPHI中怎样判断listview是否为空?
在DELPHI中怎样判断treeview是否为空?
VB中怎么判断一个数是否为负数?
如何让浏览器载入或刷新时判断是否存在session数组
vb中,如何判断一个form是否有菜单?
VB中,如何判断菜单栏是否被隐藏?
VB中如何判断一个数是否是整数?
VB 中如何判断一个结果集是否关闭?
在VB中怎样判断数组中的最小数?
VB中,如何判断键盘输入?
VB中如何初始化静态变量
VB的.:怎么判断记录集是否为空呀。不是rs.recordcount.因为我rs.recordcount老是返回-1