VBNet - Форум - Как создать массив RichtextBox-ов?

Вопрос: Как создать массив RichtextBox-ов? Добавлено: 29.11.05 11:46

Автор вопроса: ДенисЧ

Задача следующая. В родительской форме создаю ChildFormи там хочу создать n-ное количество RichtextBox-ов (в зависимости от кол-ва записей в базе). Если есть примерчик - нарисуйте.
Чё-то ни как не получается - если один RichtextBox надо сделать - все нормально (Dim RTB as New RichtextBox, потом через with задю координаты, размер, текст и т.п. и потом NewMDIChild.Controls.Item.Add(RTB) и готово), а если надо много RichtextBox-ов, то говорят надо массив создать, а из примеров в MSDN чёйто не понятно как.
Подскажите пожалуйста, а лучше с примером.
Заранее благодарен.
Ответить

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

Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #1	Добавлено: 29.11.05 15:12
	Если полностью динамически, без начального на форме и обработки событий, то примерно так Option Explicit Dim RTB() As RichTextBox Private Sub Form_Load() ReDim Preserve RTB(3) Dim i As Long For i = 0 To 3 Set RTB(i) = Form1.Controls.Add("RichText.RichTextCtrl.1", "RTB" & i) RTB(i).Move i * 1000, i * 800, 1000, 500 RTB(i).Visible = True Next i End Sub Ответить

Номер ответа: 2 Автор ответа: ДенисЧ Вопросов: 25 Ответов: 32	Профиль \| \| #2	Добавлено: 29.11.05 16:04
	Спасибо за помощь, но... Строка Set RTB(i) = Form1.Controls.Add("RichText.RichTextCtrl.1", "RTB" & i) дает ошибку: "RichText.RichTextCtrl.1" - это типа String и не может конвертироваться в Form, а "RTB" & i говорит шо слишком много аргументов. Строка RTB(i).Move i * 1000, i * 800, 1000, 500 говорит шо Move не может юзаться директли. Объясни если не трудно чё туда надо писать. Еще раз спасибо Ответить

Номер ответа: 3 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #3	Добавлено: 29.11.05 16:29
	Это и надо писать, только вместо Form1 ставишь нужную имя своей формы. Ответить

Номер ответа: 4 Автор ответа: ДенисЧ Вопросов: 25 Ответов: 32	Профиль \| \| #4	Добавлено: 29.11.05 16:31
	эт я естественно сделал Ответить

Номер ответа: 5 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #5	Добавлено: 30.11.05 11:51
	Слух, а ты случаем не про .NET глаголишь? Ответить

Номер ответа: 6 Автор ответа: ДенисЧ Вопросов: 25 Ответов: 32	Профиль \| \| #6	Добавлено: 01.12.05 08:29
	Про него родимого. Ответить

Номер ответа: 7 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #7	Добавлено: 01.12.05 11:02
	Блииин, ну ведь есть же тут отдельный форум про него. Пудришь людям мозги. Тот код что я написал - для VB6 )))) Ответить

Страница: 1 |