Форум АНТИЧАТ - VB6 - run-time error 9 Subscript Out of rage, Ошибка)

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

VB6 - run-time error 9 Subscript Out of rage, Ошибка)

11.07.2009, 13:59

CTAPu4OK

Новичок

Регистрация: 28.10.2008

Сообщений: 14

Провел на форуме:
92208

Репутация: 6

VB6 - run-time error 9 Subscript Out of rage, Ошибка)

Жалуется на пред-предпоследнюю строчку

Код:

Public Function AddObjectWork(Reference As String, Optional Index As Integer = 0) As Integer
	Dim Count As Integer
	
	AddObjectWork = Index
	If ObjectWorkMax < Index Then
		ObjectWorkMax = Index
		ReDim Preserve ObjectWork(ObjectWorkMax) As ObjectsWork
	ElseIf Index = 0 Then
		For AddObjectWork = 1 To ObjectWorkMax
			If ObjectWork(AddObjectWork).Reference = 0 Then Exit For
			If AddObjectWork = ObjectWorkMax Then
				AddObjectWork = AddObjectWork + 1
				ObjectWorkMax = AddObjectWork
				ReDim Preserve ObjectWork(ObjectWorkMax) As ObjectsWork
				Exit For
			End If
		Next
	End If
	ObjectWork(AddObjectWork).Reference = GetObjectScriptIndex(Reference)
	If ObjectScript(ObjectWork(AddObjectWork).Reference).Amountable Then ObjectWork(AddObjectWork).Amount = 1
End Function

Как исправить ?

Строчка на которую жалуется

Код:

 If ObjectScript(ObjectWork(AddObjectWork).Reference).Amountable Then ObjectWork(AddObjectWork).Amount = 1

Похожие темы

Тема

Автор

Раздел

Ответов

Последнее сообщение

Ошибки Windows 2

SVipeR

Windows

02.03.2009 19:28

Ошибки Windows

dinar_007

Windows

01.07.2007 13:32