VBNet - Форум - Как создать объект

Вопрос: Как создать объект Добавлено: 06.03.09 05:57

Автор вопроса: Jaychibek | ICQ: презираю

Доброе утро!

Помогите пожалуйста! Как можно создать объект в форме? Н: TextBox
чтоб при каждом обращении к процедуре в форме добавлялась объект.
Заранее всем спасибо!
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Jaychibek ICQ: презираю Вопросов: 10 Ответов: 20	Профиль \| \| #1	Добавлено: 06.03.09 13:03
	Решение вышеуказанной проблемы выглядит так! Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ДобавитьКонтрол(Me, New TextBox) End Sub Public Sub ДобавитьКонтрол(ByRef Форма As Form, ByRef Объект As Object) Static lLeft As Long Static ICount As Long = 0 Static lTop As Long = 10 lLeft = lLeft + 70 If lLeft = 350 Then lTop = lTop + 20 lLeft = 70 End If With Объект .Height = 15 .Width = 70 .Top = lTop .Left = lLeft .Name = Объект.GetType.Name & ICount .Text = .Name Форма.Controls.Add(Объект) .Show() ICount = ICount + 1 End With End Sub End Class Ответить

Номер ответа: 2 Автор ответа: Kardinal ICQ: 360041513 Вопросов: 1 Ответов: 164	Web-сайт: kg7.ru Профиль \| \| #2	Добавлено: 07.03.09 09:17
	Предлагаю так: создаешь текстбокс с индексом 0, а потом Load Textbox1 где а номер массива текстбоксов Ответить

Номер ответа: 3 Автор ответа: Kardinal ICQ: 360041513 Вопросов: 1 Ответов: 164	Web-сайт: kg7.ru Профиль \| \| #3	Добавлено: 07.03.09 14:21
	Блин там вместо смайла - ( а ) Ответить

Номер ответа: 4 Автор ответа: SergeyZuzic ICQ: 474690219 Вопросов: 5 Ответов: 155	Web-сайт: vsedlysita.narod.ru Профиль \| \| #4	Добавлено: 29.03.09 15:40
	Private Sub Form_Load() Form1.Controls.Add "VB.TextBox", "Text1" Form1!Text1.Width = 2000 Form1!Text1.Height = 2000 Form1!Text1.Visible = True End Sub Ответить

Страница: 1 |