satrio_budidharmawan Ответов: 3

Создание текстового поля (объекта) во время выполнения VB6

Привет,
Кто-нибудь знает, как создать объект (например, текстовое поле, командную кнопку, метку и т. д.) Во время выполнения с помощью VB6?
Я имею в виду, что когда я нажму одну кнопку или сделаю какое-либо действие, то появится новое текстовое поле.

В VB.Сеть выглядит вот так 
Dim txt as New Textbox


Но в VB6 не знают, что такое "новое"..

большое спасибо

обновление : я намеревался создать новый объект с нуля, поэтому мы не будем использовать ни один объект, который был создан тогда. <<--- если вы знаете, что я имею в виду, это контрольный массив!

Sergey Alexandrovich Kryukov

Есть ли вообще хоть одна причина иметь дело с этим мусором под названием "VB6"? И даже задавать вопросы по этому поводу?
--СА

Himachandra

Вообще никакого смысла.....
Y вы даете необоснованные предложения....
Если вы знаете Анс относительно вопросов ... тогда дайте ему другую мудрость
*******

Sergey Alexandrovich Kryukov

Ну, это вы думаете, что это предположение неразумно (хотя это был всего лишь вопрос, наводящий на размышления, возможно). Я уверен, что VB6 вообще не имеет смысла. Вы видите какую-то единственную причину, чтобы использовать его? :-)
--СА

satrio_budidharmawan

Да,
Я не знаю почему, но есть много студентов, которые все еще VB6-ing на своем последнем проекте, это слишком стыдно..

3 Ответов

Рейтинг:
2

Member 14762732

Dim intAdd как целое число
intAdd = сайт inputbox (ключ"на сколько число текстовых полей, которые будут добавлены")
Для x = 1 до intAdd
Нагрузка txtAdd(x)
txtAdd(индекс).Top = txtAdd(индекс).Топ + 600
txtAdd(x).Visible = True
Следующий

Рейтинг:
0

naiefm

Создайте элемент управления динамически во время выполнения. Без использования управляющего массива. То есть элемент управления отсутствует во время разработки, но появится во время выполнения.

option Explicit
'
Dim withevents Cmd1 as CommandButton
'
private Sub Form_Load()
set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
Cmd1.Width = 2000
Cmd1.Top = me.Height / 2 - Cmd1.Height / 2 - 100
Cmd1.Left = me.Width / 2 - Cmd1.Width / 2 - 100
Cmd1.Caption = "Dynamic Button"
Cmd1.Visible = true
End Sub
'
private Sub Cmd1_click()
MsgBox "I have been Created Dynamically at Run-time", _
, "Dynamic Controls"
End Sub
'

satrio_budidharmawan

как быть, если мне нужно создать много текстового поля (скажем, 100 текстовых полей)?
Нужно ли мне это делать
Dim cmd1 - cmd100?

sng0006

Очень полезно, Спасибо.
Как создать массив меток с помощью этого кода? Я постоянно менял элементы в коде, чтобы он создавал массив меток (с подписями от 1 до 100 к каждой метке). но безрезультатно.

Рейтинг:
0

frostcox

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

satrio_budidharmawan

Нет, вы забыли термины "динамично"