Проверка массива на Nothing - VB

Узнай цену своей работы

Формулировка задачи:

Подскажите, пожалуйста, как в vb 6 проверить массив на равенство nothing? Например в vb .net это можно сделать так:
Просьба решения с использованием On Error GoTo не предлагать.

Решение задачи: «Проверка массива на Nothing»

textual
Листинг программы
Option Explicit
 
Private Declare Function GetMem4 Lib "msvbvm60" (Src() As Any, Dst As Any) As Long
 
Private Sub Form_Load()
    Dim ar() As Long, init As Long
    
    ReDim ar(0)
    
    GetMem4 ar, init
 
    If init Then
        ' Г€Г*èöèГ*ëèçèðîâГ*Г*
        MsgBox "Г€Г*èöèГ*ëèçèðîâГ*Г*"
    Else
        ' ГЌГҐГЁГ*èöèГ*ëèçèðîâГ*Г*
        MsgBox "ГЌГҐГЁГ*èöèГ*ëèçèðîâГ*Г*"
    End If
    
    ' Ãëþêè Г± ГЇГ«Г*ГўГ*ГѕГ№ГҐГ© òî÷êîé (ìîæГ*Г® ïåðåõâГ*ГІГЁГІГј)
    If (Not ar) = -1 Then
        ' ГЌГҐГЁГ*èöèГ*ëèçèðîâГ*Г*
        MsgBox "ГЌГҐГЁГ*èöèГ*ëèçèðîâГ*Г*"
    Else
        ' Г€Г*èöèГ*ëèçèðîâГ*Г*
        MsgBox "Г€Г*èöèГ*ëèçèðîâГ*Г*"
    End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы