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

  • 相关阅读:
    简单线程池的设计
    MFC开发--截图工具
    Win32小游戏--蜘蛛纸牌
    C++语言动态创建对象
    C++语言类之间的关系
    c++语言虚函数实现多态的原理(更新版)
    5-24 c++语言之【基础知识】
    小细节--关于printf的输出问题
    Win32小游戏--贪吃蛇
    2020北大夏令营 终末游记
  • 原文地址:https://www.cnblogs.com/rosesmall/p/6398115.html
Copyright © 2011-2022 走看看