API判断数组是否为空
来源:互联网 发布:mac用户名是什么 编辑:程序博客网 时间:2024/06/10 19:38
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
Dim msg As String
Dim arr1() As String, arr2() As String, arr3() As Date, arr4() As Date, arr5() As Range, arr6() As Range
msg = "arr1 " & IIf(SafeArrayGetDim(arr1) > 0, "数组不为空!", "数组为空!")
arr2 = Split("一、二、三、四、五、六", "、")
msg = msg & vbCrLf & "arr2 " & IIf(SafeArrayGetDim(arr2) > 0, "数组不为空!", "数组为空!")
msg = msg & vbCrLf & "arr3 " & IIf(SafeArrayGetDim(arr3) > 0, "数组不为空!", "数组为空!")
ReDim arr4(1 To 100)
msg = msg & vbCrLf & "arr4 " & IIf(SafeArrayGetDim(arr4) > 0, "数组不为空!", "数组为空!")
ReDim arr6(1 To 256, 1 To 65536)
msg = msg & vbCrLf & "arr5 " & IIf(SafeArrayGetDim(arr5) > 0, "数组不为空!", "数组为空!")
msg = msg & vbCrLf & "arr6 " & IIf(SafeArrayGetDim(arr6) > 0, "数组不为空!", "数组为空!")
MsgBox msg
End Sub
'API判断数组为空或没有初始化
Sub diag()
Dim msg As String
Dim arr1() As String, arr2() As String, arr3() As Date, arr4() As Date, arr5() As Range, arr6() As Range
msg = "arr1 " & IIf(SafeArrayGetDim(arr1) > 0, "数组不为空!", "数组为空!")
arr2 = Split("一、二、三、四、五、六", "、")
msg = msg & vbCrLf & "arr2 " & IIf(SafeArrayGetDim(arr2) > 0, "数组不为空!", "数组为空!")
msg = msg & vbCrLf & "arr3 " & IIf(SafeArrayGetDim(arr3) > 0, "数组不为空!", "数组为空!")
ReDim arr4(1 To 100)
msg = msg & vbCrLf & "arr4 " & IIf(SafeArrayGetDim(arr4) > 0, "数组不为空!", "数组为空!")
ReDim arr6(1 To 256, 1 To 65536)
msg = msg & vbCrLf & "arr5 " & IIf(SafeArrayGetDim(arr5) > 0, "数组不为空!", "数组为空!")
msg = msg & vbCrLf & "arr6 " & IIf(SafeArrayGetDim(arr6) > 0, "数组不为空!", "数组为空!")
MsgBox msg
End Sub
- API判断数组是否为空
- 判断数组是否为空
- 判断数组是否为空
- 判断一个数组是否为空数组
- 判断动态数组是否为空
- Java_判断一个数组是否为空
- 怎么判断ArrayList数组是否为空?
- PHP判断数组是否为空
- PHP 判断一个数组是否为空
- 如何判断PHP数组是否为空
- 有逼格地判断数组是否为空
- PHP判断多维数组是否为空
- PHP判断多维数组是否为空
- js 判断数组是否为空
- PHP判断数组是否为空
- Java中判断数组是否为空?
- 判断Java二维数组是否为空
- js 判断数组是否为空
- 通过JDBC操纵Oracle数据库LOB字段的分析
- ASP.NET调用ORACLE实现快速分页
- Ajax in action (英文版)
- 在powerpoint中插入flash
- 做事
- API判断数组是否为空
- Java读取Excel的两种方式方式介绍
- VB中调用IE和WORD
- 实现了服务器向客户发送数据库中的数据
- 程序员要养成的习惯
- 可怜的OpenBSD
- CSDN 让你的文章成为全球开发者的参考资料
- [未必冷漠的世界全都是冷漠]
- 酒