Можно так. Перечислит все контролы. Даже массивы.

For Each Control In Form1

MsgBox Control.Name

Next

Вот только как узнать является ли контрол массивом неизвестно.

IsArray не помог. Можно поставить On Error на Control.Index.

Лучшего в голову не приходит.

Ответить

А пробовать можно вот так:

Private Function isArray(Element As Object) As Boolean
 
    On Error GoTo er
 
    If Element.Index + &H1 Then isArray = True
 
er:
 
End Function

Ответить

Вообще то isArray - это VB-шная ф-я. Может ругнуться что зарезервирована.

Да и 1 не нужно прибавлять. Он и так скажет что объект не массив.

PS: Не путай юного хакера.

Ответить

единичка - на случай если эллемент нулевой, в этом случае индекс = нулю, и условие не срабатывает... так что единица - всегда пригодится ))

Ответить

Условие сработает только в одном случе: если объект - массив. Хотя может я тебя не понял? Ну да ладно. Хватит с него и этого на первых порах. Для проверки на ошибку много знаний не нужно.

Ответить

Ответить

хм... неподумал сразу. Как бы мне потом возобновлять данные, т.е. я где-то в файле пишу (сохраняю точнее)...

Label1(0).Caption = "ВАСЯ"

Label1(1).Caption = "Ещё шо нибуть"

ну короче сохранил. А как же потом это назад вставить, как узнать чего надо изменять. Считал строку с "Label1(0).Caption = "ВАСЯ"" и.... хр-н его знает как сказать чтобы именно этот лабел принял такой капшин. Само капшин "Вася" я то могу оторвать, как да этого элемента достучатся. Есть там пример у меня, умеет из текста код программы делать, но он работает только пока в VB, а компилируешь, уже неработает.

Ответить

А почему бы не считывать тем же способом что и запись?

Или не получается?

Ответить

ну и как ты себе это представляешь?

Line Input #1,stroka$

dim a as Control

stroka$ = a

Такого небывает, или я тебя не так понял?

Ответить

Нет, почему же... теперь перечисляешь все эллементы на форме, а потом радостно проверяешь, есть-ли для них строка, тоолтип, или еще что...

Ответить

совсем хрень! их даже перечислить неполучается:

Dim Control As Control

Open App.Path & "\options.ini" For Output As #1

For Each Control In Me
   
On Error GoTo noIndex
For W = 0 To UBound(Control)
  Print #1, Control(i).Name & "(" & Str$(i) & ") = " & Control(i).Text
Next W
If W <> UBound(Control) Then Print #1, Control(i).Name & " = " & Control(i).Text
noIndex:

i = 0
Next

короче, как создать цикл по массву контрола

Ответить

Програмеры,
 кто знает язык проще VB? Киньте пожалуйста здесь ссылку.

 Ты что внатуре две процедуры связать не можешь или прикалываешся?

Private Sub Form_Load()
Dim AllControls As Integer

For AllControls = 0 To Controls.Count - 1
 If Ctl_IsArray(Controls(AllControls)) Then
    MsgBox Controls(AllControls).Name & "(" & Controls(AllControls).Index & ")"
 Else
     MsgBox Controls(AllControls).Name
 End If
Next AllControls
End Sub

Function Ctl_IsArray(ByVal Ctl As Object) As Boolean
 Ctl_IsArray = True
 im tmp_Dest As Integer
 On Error Resume Next
 tmp_Dest = Ctl.Index
 If Err > 0 Then Debug.Print Error$(Err); " ="; Err: Ctl_IsArray = False
End Function

Ответить

> кто знает язык проще VB? Киньте пожалуйста здесь ссылку

Робик проще. Фокал еще.

Ответить

2 Sharp

Это я от досады. Нахрена вообще програмированию учится если за тебя всё другие делают?

Ответить

Ответить