Vb6 Как программным способом добавить элементы управления в Form1

Узнай цену своей работы

Формулировка задачи:

SOS!!!!
Как программным способом добавить элементы управления
что-то вроде этого:
Private Sub Form_Load()
Dim txt As TextBox
txt.Height = 420
txt.Left = 120
txt.Top = 240
txt.Width = 1695
txt.Text = "My Control"
End Sub

чувствую что чего то не хватает, может надо добавить Reference?
кстати, речь идёт о VB 6
Знаю как VBA, знаю как VB.NET, но понятия не имею как это делать на VB 6

Решение задачи: «Vb6 Как программным способом добавить элементы управления в Form1»

textual
Листинг программы
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>3</b></font>
SSTab1(<font color="darkblue"><b>1</b></font>).Tabs = <font color="darkblue"><b>4</b></font>
SSTab1(<font color="darkblue"><b>1</b></font>).TabsPerRow = <font color="darkblue"><b>4</b></font>
SSTab1(<font color="darkblue"><b>1</b></font>).Tab = <font color="darkblue"><b>1</b></font>
<font color="blue">Set</font> txt = <font color="blue">Me</font>.Controls.Add(<font color="teal">"VB.TextBox"</font>, <font color="teal">"TextBox"</font> & i, SSTab1(<font color="darkblue"><b>1</b></font>))
txt.Height = <font color="darkblue"><b>285</b></font>
txt.Top = <font color="darkblue"><b>800</b></font> * i
txt.Text = <font color="teal">"New textbox"</font>
txt.Visible = True
<font color="blue">Next</font> i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы