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
Как программным способом добавить элементы управления
что-то вроде этого:
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д