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

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

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

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

Visual Basic

1
2
3

Private Sub mySub (xPic as PictureBox)
xPic.BackColor=xxxx
End Sub

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

Visual Basic

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

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

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

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

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

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

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

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

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