VBNet - Форум - Не могу разобраться

Вопрос: Не могу разобраться Добавлено: 18.02.08 14:32

Автор вопроса: Alexius | Web-сайт: Kallax.ru

У меня такая проблемка:
Я могу из одной формы насоздавать кучу одинаковых с помощью небольшой проги

dim myform(100) as object
private q

private sub command1()
call gen_form
end sub

private sub gen_forms()
for q=1 to 100
set myform(q) = mew fomr1
myform(q).show
next
end sub

Вопрос: как я могу создать любое количество например picture на форме ?
Ответить

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

Номер ответа: 1 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| Цитата \| #1	Добавлено: 18.02.08 17:47
	Use Add Control Ответить

Номер ответа: 2 Автор ответа: Ber Вопросов: 4 Ответов: 16	Профиль \| Цитата \| #2	Добавлено: 18.02.08 18:14
	Кидай на форму пикчурбокс и кнопку.Свойстао Index пикчурбокса поставь 0. Далее кодец: Private Sub Command1_Click() For i = 1 To 10 Load Picture1(i) Picture1(i).Visible = True Picture1(i).Move i * 500, 0 Next End Sub PS Сторка Picture1(i).Move i * 500, 0 чисто для наглядности, просьба не материться Ответить

Номер ответа: 3 Автор ответа: Alexius Вопросов: 1 Ответов: 6	Web-сайт: Kallax.ru Профиль \| Цитата \| #3	Добавлено: 18.02.08 19:19
	Если не сложно можно поподробнее... Заранее пасиба ... Ответить

Номер ответа: 4 Автор ответа: Ber Вопросов: 4 Ответов: 16	Профиль \| Цитата \| #4	Добавлено: 19.02.08 10:01
	Alexius, каких именно подробностей? Ответить

Номер ответа: 5 Автор ответа: Alexius Вопросов: 1 Ответов: 6	Web-сайт: Kallax.ru Профиль \| Цитата \| #5	Добавлено: 19.02.08 13:25
	Да с этим мне всё понятно: Private Sub Command1_Click() For i = 1 To 10 Load Picture1(i) Picture1(i).Visible = True Picture1(i).Move i * 500, 0 Next End Sub Спасиба.. я вот на счёт Use Add Control ни в курсе.. Хотелось бы поподробнее.. а то чёт немогу врубиться.. Ответить

Страница: 1 |