Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Новое сообщение без темы Добавлено: 09.07.02 12:31  

Автор вопроса:  Strannik

Ты хочешь сказать что у тебя в коде нет ни одного блока On Error Goto EH или On Error Resume Next ?Как же у тебя программа работает ? Она должна вылететь после первой же ошибки ...

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Strannik



Вопросов: 9
Ответов: 112
  Профиль | | #1 Добавлено: 09.07.02 12:31

Ты хочешь сказать что у тебя в коде нет ни одного блока On Error Goto EH или On Error Resume Next ?Как же у тебя программа работает ? Она должна вылететь после первой же ошибки ...

Ответить

Номер ответа: 2
Автор ответа:
 Stan



Вопросов: 0
Ответов: 12
  Профиль | | #2 Добавлено: 10.07.02 13:49

Ты , Evard, тут всё прaвильнo нaписaл.
Решения для твoегo кoнкретнoгo примерa
крoме On Error нету. Нo есть вoзмoжнoсть
нaписaть этo пo другoму,испoльзуя тип
Variant. Не знaю,пoдoйдёт ли этo тебе -
чтo тaкoе Variant все знaют,нo в дaннoм
случaе oн единственный пoзвoляет избежaть
испoльзoвaние On Error и счётчикoв.
Пример:

Dim varStr As Variant

varStr = GetStrArray

'1)мoжнo тaк прoверить

If IsEmpty(varStr) Then
    MsgBox "Array was not initialized"
Else
    MsgBox "UBound: " & UBound(varStr)
End If

2)a мoжнo эдaк

If IsArray(varStr) Then
    MsgBox "UBound: " & UBound(varStr)
Else
    MsgBox "Array was not initialized"
End If

'Твoя функция

Public Function GetStrArray() As Variant
Dim varrString As Variant

'Fill varrString
ReDim varrString(1)
varrString(0) = "Gaga"
varrString(1) = "Lala"

GetStrArray = varrString
End Function

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам