VBNet - Форум - Проблема с циклом для Image, созданного прогр.о...

Вопрос: Проблема с циклом для Image, созданного прогр.о... Добавлено: 22.01.04 15:28

Автор вопроса: Woolfik

Проблема с циклом для Image, созданного прогр.образом
Есть проблема:
Я создаю динамически(программным образом) мой Имедж (MyImage)
с помошью функции: Private Function NewImage(im As String)
Мне нужно, чтобы этот Имедж(одинаковой картинкой)
по нажатию на клавищу выстраивался каскадом 6 раз, меняется свойство Top.
Получается Один и тот же Имедж я выстраиваю 6 раз с разными Top-ами.
Я делаю так и он первый раз строит Имедж, а на второй ругается: Run-time Error '727':
There is already a control with the name 'MyImage'
Где глюк - я вижу, но как исправить - не знаю.
Может есть другие пути решения моей проблемы, создавать индексы - я уже многое перепробовал?
Черкните, если не сложно. Заранее всем спасибо

Private Sub Command1_Click()
n = 6
For i = 1 To n
Call NewImage(Val(im))

MyImage.Top = MyImage.Top + 100
Next i
End Sub
Private Function NewImage(im As String)
dirr = "\kartinka\1.jpg"
location = App.Path + dirr
Set MyImage = Controls.Add("VB.Image", "MyImage")
With MyImage
                .Height = 1500
                .Width = 3000
                .Top = 1900
                .Left = 2700



                .BorderStyle = 1
                .Stretch = True
                .Picture = LoadPicture(location)
                .Visible = True

End With
End Function

Ответить

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

Номер ответа: 1
Автор ответа:

Вопросов: 28
Ответов: 48

Web-сайт: www.av.folder-pro.net
Профиль | | #1

Добавлено: 22.01.04 17:20

Private Function NewImage(im As String, NewIndex As Long)
dirr = "\kartinka\1.jpg"
location = App.Path + dirr
Set MyImage = Controls.Add("VB.Image", "MyImage" & NewIndex)
With MyImage
                .Height = 1500
                .Width = 3000
                .Top = 1900
                .Left = 2700
                .BorderStyle = 1
                .Stretch = True
                .Picture = LoadPicture(location)
                .Visible = True
End With
End Function

''''''''''''''
Перед тем как запускать цикл заново, необходимо удалить (выгрузить) предыдущие MyImage, или устанавливать новые индексы далее по порядку и не повторяться...

Ответить

Номер ответа: 2
Автор ответа:

Woolfik

Вопросов: 22
Ответов: 25

Профиль | | #2

Добавлено: 22.01.04 17:51

Спасибо за совет, попробую разобраться

Ответить

Страница: 1 |