powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пресловутый массив из элементов управления... отсутствие библиотеки???
7 сообщений из 7, страница 1 из 1
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34391012
Kostyan_sam
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
делал по справке и коменту с этого форума...
чтение из текстбоксов:

Dim MyControl As Control 'в справке о коллекциях

For i = 0 To nx - 1
a(i) = CDbl(MyControl.Controls("TextBox" & CStr(1 + 2 * i)).Value)
Next i

делал как в справке, но ругается на As Control , что не находит библиотеку...
может не As Control...
...
Рейтинг: 0 / 0
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34391159
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что такое здесь MyControl ?
UserControl?
...
Рейтинг: 0 / 0
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34391221
Kostyan_sam
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
WorobjoffА что такое здесь MyControl ?
UserControl?

я так думаю что имя объекта типа Control вот примеры которыми я руководствовался:

1) справка:

Private Sub CommandButton1_Click()
Dim MyControl As Control
CtrlTop = 5

For Each MyControl In Controls
If MyControl.Name = "CommandButton1" Then
'Don't move or resize this control.
Else

2) пост с форума:

Me.Controls("ctrl" & cstr(i)).Value = True
...
Рейтинг: 0 / 0
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34391986
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command2_Click()
Dim MyControl As Control
Dim i As Long
For Each MyControl In Me.Controls
If MyControl.Tag = "txt" Then
i = i +  1 
MsgBox Me.Controls("TextBox" & CStr(i)).Text
' или так MsgBox MyControl.Text
Else
End If
Next
End Sub
используй Tag для фильтрации нужных контролов на форме
а потом выводи значение
...
Рейтинг: 0 / 0
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34412794
Kostyan_sam
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Блин, а если формы нет это уже не работает(
...
Рейтинг: 0 / 0
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34414908
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Возникает резонный вопрос: а если формы нет, то откуда контролы?
...
Рейтинг: 0 / 0
пресловутый массив из элементов управления... отсутствие библиотеки???
    #34418291
Kostyan_sam
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Контролы располагаются непосредственно на Excel'ом листе.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пресловутый массив из элементов управления... отсутствие библиотеки???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]