|
|
|
Great New
|
|||
|---|---|---|---|
|
#18+
Доброго Вам времени суток Уважаемые господа при наличии времени прошу Вас помочь форма на форме объект picture1.picturebox -состояние - невидим при нажатии кнопки мыши, объект picture1.picturebox появляется как сделать так чтобы, кликнув еще раз, копия такого же объекты появилась вновь (я знаю что можно сделать масив из этого обекта и переодичесик его переберать, но вдруг нужно будет больше чем заданный масив, т.е. теоретически я говорю о Great New но как это реализовать я не знаю) С Уважением и Благодарностью Намик Рустамов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.12.2004, 17:08:52 |
|
||
|
Great New
|
|||
|---|---|---|---|
|
#18+
Размер массива контролов не ограничен (точнее ограничен Integer'ом). Положи на форму PictureBox1 с индексом 0 и делай Load PictureBox1(PictureBox1.Count) по мере надобности ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.12.2004, 17:47:17 |
|
||
|
Great New
|
|||
|---|---|---|---|
|
#18+
в Вашем примере мне нужно будет "физически" создать определенное кол-во PictureBox1(0).Visible = True PictureBox1(1).Visible = True и т.д. а я хотел бы иметь на форме всего один объект PictureBox а уже после его дублировать (или я чего то не понял) С Уважением и Благодарностью Намик ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.12.2004, 18:05:21 |
|
||
|
Great New
|
|||
|---|---|---|---|
|
#18+
Именно, что не понял. На форме достаточно одного PictureBox1 с индексом 0. Строчка Load PictureBox1(PictureBox1.Count) создает копию этого пикчербокса со следующим по порядку индексом. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.12.2004, 16:34:22 |
|
||
|
Great New
|
|||
|---|---|---|---|
|
#18+
Простите а ничего не происходит Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Load PictureBox1(PictureBox1.Count) End Sub PictureBox1 как был один так остался ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.12.2004, 16:58:26 |
|
||
|
Great New
|
|||
|---|---|---|---|
|
#18+
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.12.2004, 14:03:48 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=32812474&tid=2168497]: |
0ms |
get settings: |
6ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
31ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 188ms |
| total: | 290ms |
| 0 / 0 |
