| Добавить контрол во время выполнения программы |
|
Добавьте TextBox на форму
Private Sub Form_Load() Load Text1(1) Text1(1).Left = 400 Text1(1).Top = 400 Text1(1).Visible = True 'Для того, чтобы добавить еще textbox, просто добавьте: 'Load Text1(2) 'Text1(2).Left = 400 'Text1(2).Top = 200 'Text1(2).Visible = True End Sub
Источник: http://www.vbnet.ru/ |