Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Great New / 7 сообщений из 7, страница 1 из 1
02.12.2004, 17:08:52
    #32810231
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
Доброго Вам времени суток
Уважаемые господа


при наличии времени прошу Вас помочь

форма
на форме объект picture1.picturebox -состояние - невидим

при нажатии кнопки мыши, объект picture1.picturebox появляется

как сделать так чтобы,
кликнув еще раз,
копия такого же объекты появилась вновь

(я знаю что можно сделать масив из этого обекта и переодичесик его переберать, но вдруг нужно будет больше чем заданный масив,
т.е. теоретически я говорю о Great New но как это реализовать я не знаю)

С Уважением и Благодарностью
Намик Рустамов
...
Рейтинг: 0 / 0
02.12.2004, 17:47:17
    #32810358
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
Размер массива контролов не ограничен (точнее ограничен Integer'ом). Положи на форму PictureBox1 с индексом 0 и делай Load PictureBox1(PictureBox1.Count) по мере надобности
...
Рейтинг: 0 / 0
02.12.2004, 18:05:21
    #32810447
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
в Вашем примере

мне нужно будет "физически" создать определенное кол-во

PictureBox1(0).Visible = True
PictureBox1(1).Visible = True
и т.д.

а я хотел бы иметь на форме всего один объект
PictureBox

а уже после его дублировать

(или я чего то не понял)

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
03.12.2004, 16:34:22
    #32812389
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
Именно, что не понял. На форме достаточно одного PictureBox1 с индексом 0. Строчка Load PictureBox1(PictureBox1.Count) создает копию этого пикчербокса со следующим по порядку индексом.
...
Рейтинг: 0 / 0
03.12.2004, 16:58:26
    #32812474
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
Простите

а ничего не происходит

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Load PictureBox1(PictureBox1.Count)
End Sub

PictureBox1 как был один так остался ?
...
Рейтинг: 0 / 0
06.12.2004, 14:03:48
    #32814461
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Load PictureBox1(PictureBox1.Count)
End Sub


Если изначально PictureBox1.Visible=False, то создаваемый PictureBox будет наследовать его параметры. Также наследуются свойства .Left и .Top. Так что если даже PictureBox1.Visible=True, то PictureBox будут создаваться на месте PictureBox1, поэтому ты их появление не видишь.

Попробуй:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Load PictureBox1(PictureBox1.Count)
PictureBox1(PictureBox1.Count-1).Left=Новые координаты
PictureBox1(PictureBox1.Count-1).Top=Новые координаты
End Sub
...
Рейтинг: 0 / 0
06.12.2004, 14:47:16
    #32814588
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Great New
И не забудь строку: PictureBox1(PictureBox1.Count-1).Visible=True
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Great New / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]