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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

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