Создать Control динамически

@Genn55 · Регистрация: 26.12.2012

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

Доброго всем времени суток!Пожалуйста помогите разобраться.
Дана процедура (функция) в ней создается локальный временный массив он используется только в этой процедуре (функции).При работе с массивом объявляю его в теле процедуры как Static и проблем нет.

Visual Basic
1
2
3
4
5
6
7
Sub MySub (Arr() As String, .....аргументы...)
 
Static Mass() As Double
/
Что то делает
/
End Sub

Но если в качестве массива использую ListBox не работает.Когда Control кидаю на форму или создаю динамически при загрузке формы все нормально работает без ошибок.

Visual Basic
1
2
3
4
5
6
7
8
Option Explicit
Dim  Mass As ListBox
Private Sub Form_Load()
Set  Mass = Me.Controls.Add("VB.ListBox", "MyList")
With  Mass
.Visible = False: .Text = .Name
End With
End Sub

Когда пишу

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub MySub (Arr() As String, .....аргументы...)
Static Mass() As Double
Set  Mass = Me.Controls.Add("VB.ListBox", "MyList")
With  Mass
.Visible = False: .Text = .Name
End With
/
Что то делает
/
End Sub

Я так понимаю,что все равно объект создается с таким же Name и их получается немеренно,а нужен только один и вести он должен как любая локальная переменная.Что то я не то делаю,а как правильно не знаю.Пожалуйста подскажите на примере или ткните носом где можно почитать вразумительное для "чайников".
Спасибо.

@Alex77755 · 22.12.2015, 22:24

Static Mass() As Double
Set Mass = Me.Controls.Add("VB.ListBox"
Ничто не пугает? Double и Set?!

Добавлено через 1 минуту

Visual Basic
1
2
With  Mass
.Visible

У типа Double есть такое свойство?

@Genn55 · 23.12.2015, 12:34 **[ТС]**

Сообщение от Alex77755

Ничто не пугает? Double и Set?!

Конечно глупость!1000 извинений!Это опечатка!

Visual Basic
1
Static Mass As ListBox

Добавлено через 13 часов 43 минуты
Решил проблему так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim B As Integer
 
Private Sub Form_Activate()
B = Me.Controls.Count
End Sub
 
Private Sub Form_Click()
Static A As Control
 
If Me.Controls.Count <= B Then
Set A = Me.Controls.Add("VB.TextBox", "MyText")
With A
.Visible = True: .Top = 2000
.Text = .Name
End With
End If
 
End Sub

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

Shersh · 23.12.2015, 12:51

Genn55, объясните - зачем нужен невидимый листбокс?
Чем не устроил массив?

@Genn55 · 23.12.2015, 13:16 **[ТС]**

Не видимый ListBox используется как массив.Я не думаю,что процедуры добавления,удаления,поиска и пр мною будут реализованы лучше,чем это реализовано в ListBox.Остается только использовать готовые свойства стандартного Boxа,аналогично STL в C++. Это лично мое мнение,возможно и не верное,но все работает как мне нужно,хотя и натыкаюсь на "подводные камни".

Shersh · 23.12.2015, 13:22

Насчет

Сообщение от Genn55

добавления,удаления,поиска

- может стоит посмотреть в сторону Collection

@Alex77755 · 23.12.2015, 14:23

Или словаря scripting.dictionary.
Там даже искать не надо.

@Genn55 · 23.12.2015, 17:28 **[ТС]**

Сообщение от Alex77755

Или словаря scripting.dictionary.
Там даже искать не надо.

Спасибо большое.Почитаю,поэкспериментирую.Все познается в сравнении.Controls это что? Разве не Collection?А... Что думать?Писать надо тогда видно будет.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Shersh Заблокирован
	23.12.2015, 12:51
	Genn55, объясните - зачем нужен невидимый листбокс? Чем не устроил массив? 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	23.12.2015, 13:16 [ТС]
	Не видимый ListBox используется как массив.Я не думаю,что процедуры добавления,удаления,поиска и пр мною будут реализованы лучше,чем это реализовано в ListBox.Остается только использовать готовые свойства стандартного Boxа,аналогично STL в C++. Это лично мое мнение,возможно и не верное,но все работает как мне нужно,хотя и натыкаюсь на "подводные камни". 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.12.2015, 14:23
	Или словаря scripting.dictionary. Там даже искать не надо. 1

Создать Control динамически

Решение