Тип данных при передаче массива контролов как параметра

@golb · Регистрация: 11.10.2007

Студворк — интернет-сервис помощи студентам

Добрый день.
Такой вопрос меня мучит.
Передаю в процедуру как параметр один стандартный контрол (например PictureBox). Никаких проблем:

Visual Basic
1
2
3
Private Sub mySub (xPic as PictureBox)
xPic.BackColor=xxxx
End Sub

Но вот если мне надо передать массив из этих PictureBox:

Visual Basic
1
2
3
4
5
6
Private Sub mySub (xPics)
Dim xPic as PictureBox
For Each xPic in xPics 
xPic.BackColor=xxxx
Next xPic
End Sub

В принципе жрёт и так, без явных данных по типу. Но как-то это некрасиво.
Каким типом нужно объявлять этот xPics из второго примера? Чтоб не торчал там параметр без типа данных.

Аналогично, если мне нужно передать как параметр меню. VB жрёт это без типа данных, но как-то же он это в своих недрах определяет. Какой тип данных нужно задавать в этом случае?
Спасибо за помощь... и с наступающим!

07.03.2011, 20:00

Передавай как Object %)

07.03.2011, 23:17

Private Sub XXX(aPb() As PictureBox)

08.03.2011, 12:37

Лучше через обьект, у меня 2 контрла, было LIST и Combo. Для обоих одинаковая функция заполнения из запроса. Единственно надо вставить строчку проверки Обьекта.... если то что надо то ОК - если нет , то Exit.

08.03.2011, 12:42

Да ... если массив в параметре. то лучше проверить является ли параметр - массивом.

Visual Basic
1
2
3
4
Public Sub aaa(Параметр() As Object)
   If Not IsArray(Параметр) Then Exit Sub
   ' ...
End Sub

@golb · 08.03.2011, 15:18 **[ТС]**

Спасибо за отклики. Способы, предложенные Вами безусловно будут работать. Оно в принципе работает даже если параметр массива элемента вообще без указания типа передавать. Мне просто интересно было, есть ли конкретно для этих массивов элементов конкретно определённый тип. Неужели в своих потрохах бейсик тоже его как объект определяет?
В любом случае благодарен за ответы.

09.03.2011, 16:30

Option Explicit во многом поможет решить проблемы... с ошибками в переменных :-)

09.03.2011, 16:47

Если без Option Explicit, то прога тоже будет работать. но тогда все переменные будут интерпретироваться как вариант(если явно их не обьвлять),это лишняя трата памяти(даже если ваша прога без ошибок логических). Ну и проблемы с ошибками.. я к примеру никак не могу понять почему в цыкле(без явного обявления) на VBA:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub xxx()
for i=1 to 1000
 a=Cells(i,1).value
  for ii=1 to i
    n=n+1
    ' ... тут код какойто с проверкой данных
    ' ... так при i=276 у меня n=501 получалось иногда.
    Cells(n,1).value=a
  next ii
next i
end sub

вот и не понятно откуда и почему :-) т.к. VB сам интерпритирует переменные, или взамен числа вылазит дата ;-)(дата это тоже число Long)

@golb · 13.03.2011, 23:48 **[ТС]**

Фу, праздники.... потому с задержкой хочу поблагодарить за ответы.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

CatsTail
	07.03.2011, 23:17
	Private Sub XXX(aPb() As PictureBox)

Сумрак
	08.03.2011, 12:37
	Лучше через обьект, у меня 2 контрла, было LIST и Combo. Для обоих одинаковая функция заполнения из запроса. Единственно надо вставить строчку проверки Обьекта.... если то что надо то ОК - если нет , то Exit.

@golb 0 / 0 / 0 Регистрация: 11.10.2007 Сообщений: 103
	08.03.2011, 15:18 [ТС]
	Спасибо за отклики. Способы, предложенные Вами безусловно будут работать. Оно в принципе работает даже если параметр массива элемента вообще без указания типа передавать. Мне просто интересно было, есть ли конкретно для этих массивов элементов конкретно определённый тип. Неужели в своих потрохах бейсик тоже его как объект определяет? В любом случае благодарен за ответы. 0

Сумрак
	09.03.2011, 16:30
	Option Explicit во многом поможет решить проблемы... с ошибками в переменных :-)

@golb 0 / 0 / 0 Регистрация: 11.10.2007 Сообщений: 103
	13.03.2011, 23:48 [ТС]
	Фу, праздники.... потому с задержкой хочу поблагодарить за ответы. 0