Проверка массива на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д