powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объявление массивов
9 сообщений из 9, страница 1 из 1
Объявление массивов
    #32561125
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем
Кто-нить знает как объявить массив типом паблик?
...
Рейтинг: 0 / 0
Объявление массивов
    #32561140
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что не получается?
Пишешь вместо Dim слово Public?
...
Рейтинг: 0 / 0
Объявление массивов
    #32561149
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пишет ошибку
Constants, fixed-length strings, arrays, user-defined types, and Declare statements not allowed as Public members of an object module
...
Рейтинг: 0 / 0
Объявление массивов
    #32561151
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
объявлять надо в модуле а не в форме
...
Рейтинг: 0 / 0
Объявление массивов
    #32561153
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
You declared a Public array in an object module.
Although a procedure can't return an array, it can return a Variant that contains an array. To simulate a Public array in a class module, use a set of Property procedures that accept and return a Variant containing an array.

советуют через property, только я не совсем понимаю как юзать это самое проперти, подскажите плиз
...
Рейтинг: 0 / 0
Объявление массивов
    #32561162
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
точно в модуле! спасибо
а вопрос на счет проперти остается...
...
Рейтинг: 0 / 0
Объявление массивов
    #32561166
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В классе, действительно, нельзя!

Обходи это через задание свойств (property)

class
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim arr( 1  To  10 ) As Long

Public Property Let MyArr(ByVal index As Integer, ByVal p As Long)
    arr(index) = p
End Property

Public Property Get MyArr(ByVal index As Integer) As Long
    MyArr = arr(index)
End Property

form
Код: plaintext
1.
2.
3.
4.
Private Sub Form_Load()
Dim a As New Class1
    a.MyArr( 5 ) =  10 
    MsgBox a.MyArr( 5 )
End Sub
...
Рейтинг: 0 / 0
Объявление массивов
    #32561181
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо
а где можно подробно почитать про это проперти?
...
Рейтинг: 0 / 0
Объявление массивов
    #32561195
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
raurспасибо
а где можно подробно почитать про это проперти?

MSDN
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объявление массивов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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