zoukankan      html  css  js  c++  java
  • VB API判断数组为空

    1.

    'API判断数组为空或没有初始化

    Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long  

    Private Sub Command1_Click()
    Dim tmp() As String
    If SafeArrayGetDim(tmp) = 0 Then
    MsgBox "数组为空或没有初始化"
    End If
    End Sub

    2.

    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (

                                                                                  Destination As Any, Source As Any, ByVal Length As Long)
    Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long

    Private Sub Form_Load()
        Dim S() As Long                                            //动态数组
        Dim VarPtrArrayAddress As Long                 //对数组用函数VarPtrArray得到的地址
        Dim SafeArrayPoint As Long                         //'SafeArray结构的指针的值
        
        VarPtrArrayAddress = VarPtrArray(S)

        CopyMemory SafeArrayPoint, ByVal VarPtrArrayAddress, 4   //没有分配内存,这时候SafeArrayPoint的值为0
        If SafeArrayPoint = 0 Then
            MsgBox "空"
        End If

    End Sub

  • 相关阅读:
    .java中如何实现序列化,有什么意义
    缓存穿透
    缓存击穿
    缓存雪崩
    redis缓存预热
    Docket 的常用命令
    数据库优化方法
    servlet和jsp的区别:
    6原则1法则
    学习IntelliJ IDEA(二)模块
  • 原文地址:https://www.cnblogs.com/rosesmall/p/6398115.html
Copyright © 2011-2022 走看看