Создание элементов формы с помощью кода - VB
Формулировка задачи:
Подскажите,пожалуйста,как можно управлять элемент формы с помощью кода.Например,создать Textbox в центре сдвинув CommandButton вниз. Заранее сасибо
Решение задачи: «Создание элементов формы с помощью кода»
textual
Листинг программы
<font color="blue">Dim</font> txt <font color="blue">As</font> VB.TextBox <font color="blue">Dim</font> btn <font color="blue">As</font> VB.CommandButton <font color="blue">Set</font> txt = <font color="blue">Me</font>.Controls.Add(<font color="teal">"VB.TextBox"</font>, <font color="teal">"Text1"</font>, <font color="blue">Me</font>) <font color="blue">Set</font> btn = <font color="blue">Me</font>.Controls.Add(<font color="teal">"VB.CommandButton"</font>, <font color="teal">"Button1"</font>, <font color="blue">Me</font>) <font color="blue">With</font> txt .<font color="blue">Width</font> = <font color="darkblue"><b>600</b></font> .Height = <font color="darkblue"><b>285</b></font> .Visible = True .Left = (<font color="blue">Me</font>.<font color="blue">Width</font> / <font color="darkblue"><b>2</b></font>) - (.<font color="blue">Width</font> / <font color="darkblue"><b>2</b></font>) <font color="blue">End</font> <font color="blue">With</font> <font color="blue">With</font> btn .Move (txt.Left) - (.<font color="blue">Width</font> / <font color="darkblue"><b>2</b></font>) + (txt.<font color="blue">Width</font> / <font color="darkblue"><b>2</b></font>), txt.Top + txt.Height, txt.<font color="blue">Width</font> * <font color="darkblue"><b>2</b></font> .Visible = True <font color="blue">End</font> <font color="blue">With</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д