Здравствуйте.Такая проблема.Задача создать схему на которую можно перетаскивать условные изображения.Схема Image(она большая),условные изображения то же Image(маленькие),код для перемещения условных обозначений на схему я нашел.Вопрос вот в чем.Условных обозначений много,на схему помещаться могут они одного типа,например на схему надо перетащить 3 колодца,2 дома,1 ворота,2 конюшни.При загрузке Image соответственно загружается одно изображение например колодца,а надо 3.Пример такой,в TextBox пишу "3",и на форме появляется 3 условных обозначения колодца(3 Image) и и т.д. с каждыми условными.Вот как это реализовать вопрос.Может как то через ImageList/

Shocker.ProНикак не могу понять, какая разница, что изображено в имидже?
Нужно три колодца - грузите три колодца.
Нужно колодец, лошадь и ракету - грузите колодец, лошадь и ракету
изначально никто не знает что нужно,кто работает сам должен определить сколько чего нужна,вот он пишет что того то столько,того то столько,а потом что появилось например по нажатия кнопки,то переносит на схему

Shocker.ProМожет вы про это пытаетесь спросить?


как это прочитать

Shocker.ProDudinskiизначально никто не знает что нужно,кто работает сам должен определить сколько чего нужна,вот он пишет что того то столько,того то столько,а потом что появилось например по нажатия кнопки,то переносит на схему

А в чем заключается проблема? С точки зрения работы с Image, по барабану, какие картинки в них нарисованы, одинаковые или разные.

Dudinski как это прочитать

Картинка из Image2 копируется в Image1
Вот пример.Тому кто работает с программой говорят к примеру следующее"Сделай "классный" двор","Сделай "хороший" двор,"Сделай "нормальный" двор" и "Сделай "плохой" двор".
Тот кто работает знает,что:
"классный двор" - это 3 колодца,1 ворота,2 дома,3 свинарника,1 фонтан
"хороший двор" - это 2 колодца,1 ворта,3 свинарника
"нормальный двор" - это 1 колодец,1 ворота,1 свинарник
"плохой двор" - это 1 колодец.
Кроме того что он это знает,он их еще должен правильно расположить.Но он может и не знать что чего сколько для какого двора надо.
К примеру он знает и пишет правильно для хорошего двора.
TextBox1 - 2(кол-во колодцев)
TextBox2 - 1(кол-во ворот)
TextBox3 - 3(кол-во свинарников)
TextBox4 - вообще ничего не пишет(кол-во фонтанов)
Написал,кликнул на кнопочку,на форме появились условные изображения(Image) 2 колодцев,1 ворот,3 свинарников.Он их берет и премещает на схему.Потом проверяющий смотрит и говорит,колодец не там поставил... и т.д. и т.п.,либо что неточное задал их количество.

у меня все написано,только не знаю как связать что написал с тем чтоб появилось.Написал 3 появилось 3,загрузить можно хоть миллион,сегодня надо 2,завтра 6,потом 1 и т.д

Shocker.Proинформации не хватает

предположу, что вы не знаете, как размножить Image.
предположу, что один из Image с колодцем вы формируете в Design Time

тогда один из вариантов
вам нужно поставить свойство Image1.Index=0
Тогда размножать их вы можете с помощью оператора Load, а убирать лишние с помощью Unload

Это будет так называемый массив контролов.
Design Time - не знаю что это.Не знаю как размножать Image.

Shocker.ProDudinskiDesign Time - не знаю что это.

Режим разработки. Как противопоставление RunTime - режим исполнения [программы]

DudinskiНе знаю как размножать Image.

Так я, собственно, написал - как
а можно пожалуйста код,а то не въеду

Shocker.ProDudinskiа можно пожалуйста код,а то не въеду

На форме в дизайнтайме создаете Image1 со свойством Index=0

В рантайме:
У вас на форме появляется копия Image1 с индексом 5

Убить:

Спасибо большое.

Shocker.ProDudinskiа можно пожалуйста код,а то не въеду

На форме в дизайнтайме создаете Image1 со свойством Index=0

В рантайме:
У вас на форме появляется копия Image1 с индексом 5

Убить:

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

и еще,если много очень картинок,и надо что бы они все перемещались,там надо для каждой картинки код прописывать где то на 8 строк(сейчас компьютер не мой,не могу предоставить код),а картинок больше 100.Как нибудь можно не для каждой прописывать код на перетаскивание а для всех сразу?

Konst_Oneу вас код будет прописан исключительно один раз для всех ваших картинок, если воспользуетесь советом по использованию массивов контролов
подскажите как его использовать,я увы несообразителен в этом деле

Shocker.ProDudinskiКак нибудь можно не для каждой прописывать код на перетаскивание а для всех сразу?

Можно.
как описали выше?Массив?

Shocker.ProDudinskiкогда так пытаюсь размножить,нажимаю на пуск,выделяет в коде текст где прописано что картинку можно перемещать

Мы дружно напрягли зрение, но так и не смогли увидеть ваш экран.
Мы дружно напрягли гадалку, но она не смогла угадать текст сообщения об ошибке.
Мы дружно напрягли экстрасенсорные способности, но текст вашей программы у нас перед глазами не появился.
))))))))))))))))))) Вы правы.Но вот не помню сам код ошибки,а под рукой увы нет

Shocker.ProDudinskiподскажите как его использовать,я увы несообразителен в этом деле

http://vbbook.ru/book/
http://vbbook.ru/book/152/
http://vbbook.ru/book/153/
спасибо)))

Попробовал я как написано через масив,вылазит таже ошибка.Вот какой я код писал:
Перемещение картинки

Option Explicit
Dim downX, downY

Private Sub Command1_Click()
Form3.Hide
pForm3.Show
End Sub

Private Sub Image2_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
downX = X
downY = Y
End Sub

Private Sub Image2_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image2.Left = Image2.Left + X - downX
Image2.Top = Image2.Top + Y - downY
End If
End Sub


Массив

Dim t As Long ' Объявляем переменную
Private Sub Command1_Click(Index As Integer)
For i = 1 To 10
Load Form2.Image1(i)
Form2.Image1(i).Visible = True
Next i
End Sub
Появляется ошибка как на рисунке

рисунок чего то не добавляется,сейчас еще раз попробую,не получится напишу так какая ошибка

Shocker.ProОпределение должно быть таким


дообавилось Index As Integer
Вы добавили индексы, но не поменяли определения для событий.
даже так ошибка появляется

Shocker.ProDudinski[quot Shocker.Pro]даже так ошибка появляется

Эта же? Странно. Ну убейте эту процедуру и добавьте обработчик заново
немножечка не понял,т.е. все удалить и заново вставить?

Shocker.ProDudinskiнемножечка не понял,т.е. все удалить и заново вставить?

Удалить процедуру, на которой возникает ЭТА ошибка
Выбрать в левом списке Image1
Выбрать в правом списке MouseDown
Процедура добавится обратно в правильном формате.
понятно,а вот то что в массиве у меня Image1(i),а в коде на премещение пишется ведь тоже для массива,т.е. там так же надо писать по идее
но появляется ошибка,выделенная красным

Shocker.ProНет.

Как НАДО я писал выше.
Еще я писал, как сделать так, чтобы как НАДО появилось автоматически
это с Load
А вот я еще писал что у меня много картинок,и Вы написали что код на перемещение повторять не надо
а как его написать если у меня 100 картинок

Shocker.ProА код, который вы только что привели - там вообще нет массивов
если я напишу массив например на колодец Image1(i) i от 1 до 10,то код на перемещение этих 10 появившихся картинок будет такой?

Shocker.Pro
Вы бы поизучали что-ли язык немножко по учебнику, прежде чем писать на нем
просто времени нет,диплом горит
а в первом коде все прежнее оставить?
[srq vba]
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, _
Shift As Integer, X As Single, Y As Single)
downX = X
downY = Y
End Sub
[/src]и еще подскажите пожалуйста как операционные требования для созданной программы написать?
и какой вы посоветуете инсталятор сделать

Shocker.ProShocker.Pro[quot Dudinski][quot Shocker.Pro]Вы бы поизучали что-ли язык немножко по учебнику, прежде чем писать на нем
просто времени нет,диплом горит

Вот такие дипломированные специалисты. Даже изучать не хотят, что в собственном дипломе пишут.

Dudinskiа в первом коде все прежнее оставить?

Оставить. Вы хоть сами понимаете, как это работает или для вас это китайская грамота?[quot Shocker.Pro]
я еще среди всех считаюсь что знаю,у нас такие есть огого.Нет не китайская грамота,код же легче прочитать чем написать,читаю я их более менее.

Спасибо Вам

Опять выскакивает та же ошибка,но уже здесь: