Существует ли объект на форме

[GSerg]

if text1(1) is nothing then

[Aleksej]

Код: Выделить всё

Public Sub RebuildWindow(FormName As Form)
Dim Control As Control

For Each Control In FormName.Controls

        Debug.Print Control.Name

Next Control
End Sub

[GSerg]

В NET множественная обработка сделана не через control array, а через множественный Handles (либо AddHandler). Так что там этого .НЕТ...

[alibek]

if text1(1) is nothing then

Э... Не будет работать text1(1) никогда не будет Nothing

[GSerg]

Да???
Они что, неявно New?

[alibek]

Не знаю Сдается мне, что с индексированными контролами в VB дело обстоит очень хитро.

[Ennor]

Вообще-то у Control Array есть спец. свойства:
Me.text1.LBound
Me.text1.UBound
Есессно, только для чтения. Правда, если ты начнешь выгружать контролы из середины массива... ХЗ, что тогда будет, не помню

[ANDLL]

Да???
Они что, неявно New?

Гм. Тут просто идея такая: когда ты вызываешь функцию Text1(1) <=> Text1.Item(1) функция сама проверяет, существует ли элемент и если не существые генерирует ошибку. По этому указанное выражение и не равно nothing. И это вообще не массив, а набор, с числовыми ключами.

[tyomitch]

Да???
Они что, неявно New?

А чёрт их поймёт...

Код: Выделить всё

Private Sub Form_Load()
Debug.Print Text1(1) Is Nothing 'False
Text1(1).Visible = True 'Run-time error '340': Control array element '1' doesn't exist
End Sub


Так что похоже на неявный New + до Load с ними всё равно работать нельзя.
Это всё афаик сделано для совместимости с VB3 и раньше, когда в языке ещё не было ООП-фич. Оттуда же "двойственность" формы как класса и глобального объекта.

[alibek]

Гм. Тут просто идея такая: когда ты вызываешь функцию Text1(1) <=> Text1.Item(1) функция сама проверяет, существует ли элемент и если не существые генерирует ошибку. По этому указанное выражение и не равно nothing. И это вообще не массив, а набор, с числовыми ключами.

Ошибки не будет. Я сам удивился, но факт налицо -- для Obj Is Nothine можно указывать несуществующий элемент массива.

[tyomitch]

Гм. Тут просто идея такая: когда ты вызываешь функцию Text1(1) <=> Text1.Item(1) функция сама проверяет, существует ли элемент и если не существые генерирует ошибку. По этому указанное выражение и не равно nothing. И это вообще не массив, а набор, с числовыми ключами.

Ошибки не будет. Я сам удивился, но факт налицо -- для Obj Is Nothine можно указывать несуществующий элемент массива.

Будет-будет. ANDLL не про Is Nothing, а про доступ к свойству незагруженного контрола.

[alibek]

А...
Свойства это да, про них я забыл.
Кстати можно:
On Error ...
S=Text1(1).Name
If Err > 0 Then
On Error Goto 0

[ta_gena]

Лучше создать функцию типа:

Function ControlExists( ctrl As Control) As Boolean
Dim sTemp As String
On Error GoTo hErr
sTemp = ctrl.Name
ControlExists=True
Exit Function
hErr:
'Nothing doing
End Function