在vb中判断数组是否为空

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

 

dim a() as byte

if  SafeArrayGetDim (a)>0 then

'非空

else

'空

end if

你可能感兴趣的:(vb,function,byte)