Работа с изображениями / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с изображениями

25 сообщений из 96, страница 2 из 4

все

Работа с изображениями

#36562999

Dudinski

Гость

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

...

Рейтинг:

0 / 0

06.04.2010, 12:19

| Ответить | Цитировать | Написать

Работа с изображениями

#36563001

Dudinski

Гость

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

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

...

Рейтинг:

0 / 0

06.04.2010, 12:20

| Ответить | Цитировать | Написать

Работа с изображениями

#36563003

Dudinski

Гость

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

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

...

Рейтинг:

0 / 0

06.04.2010, 12:21

| Ответить | Цитировать | Написать

Работа с изображениями

#36563017

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

http://vbbook.ru/book/
http://vbbook.ru/book/152/
http://vbbook.ru/book/153/

...

Рейтинг:

0 / 0

06.04.2010, 12:25

| Ответить | Цитировать | Написать

Работа с изображениями

#36563065

Dudinski

Гость

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

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

...

Рейтинг:

0 / 0

06.04.2010, 12:39

| Ответить | Цитировать | Написать

Работа с изображениями

#36565253

Dudinski

Гость

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

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
Появляется ошибка как на рисунке

...

Рейтинг:

0 / 0

07.04.2010, 11:40

| Ответить | Цитировать | Написать

Работа с изображениями

#36565260

Dudinski

Гость

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

...

Рейтинг:

0 / 0

07.04.2010, 11:42

| Ответить | Цитировать | Написать

Работа с изображениями

#36565268

Dudinski

Гость

...

Рейтинг:

0 / 0

07.04.2010, 11:44

| Ответить | Цитировать | Написать

Работа с изображениями

#36565312

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

Код: plaintext

Private Sub Image1_MouseDown(Index As Integer, Button As Integer, _
Shift As Integer, X As Single, Y As Single)

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

...

Рейтинг:

0 / 0

07.04.2010, 11:51

| Ответить | Цитировать | Написать

Работа с изображениями

#36565338

Dudinski

Гость

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

Код: plaintext

Private Sub Image1_MouseDown(Index As Integer, Button As Integer, _
Shift As Integer, X As Single, Y As Single)

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

...

Рейтинг:

0 / 0

07.04.2010, 11:55

| Ответить | Цитировать | Написать

Работа с изображениями

#36565339

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Пожалуйста, оформляйте код с помощтю тэгов

Код: plaintext

[SRC vba][/SRC]

Пожалуйста вставляйте код по возможности вместо скриншотов

Пожалуйста вставляйте текст сообщений вместо скриншотов (текст можно скопировать Ctrl-C)

...

Рейтинг:

0 / 0

07.04.2010, 11:55

| Ответить | Цитировать | Написать

Работа с изображениями

#36565342

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

07.04.2010, 11:56

| Ответить | Цитировать | Написать

Работа с изображениями

#36565360

Dudinski

Гость

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

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

...

Рейтинг:

0 / 0

07.04.2010, 12:00

| Ответить | Цитировать | Написать

Работа с изображениями

#36565383

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

07.04.2010, 12:06

| Ответить | Цитировать | Написать

Работа с изображениями

#36565408

Dudinski

Гость

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

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

Код: plaintext

1.
2.
3.
4.
5.

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

но появляется ошибка,выделенная красным

...

Рейтинг:

0 / 0

07.04.2010, 12:12

| Ответить | Цитировать | Написать

Работа с изображениями

#36565451

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Нет.

Как НАДО я писал выше.
Еще я писал, как сделать так, чтобы как НАДО появилось автоматически

...

Рейтинг:

0 / 0

07.04.2010, 12:21

| Ответить | Цитировать | Написать

Работа с изображениями

#36565525

Dudinski

Гость

Shocker.ProНет.

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

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

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

а как его написать если у меня 100 картинок

...

Рейтинг:

0 / 0

07.04.2010, 12:35

| Ответить | Цитировать | Написать

Работа с изображениями

#36565551

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

DudinskiА вот я еще писал что у меня много картинок,и Вы написали что код на перемещение повторять не надо

Вот что писалось:
Shocker.ProAntonariyИ создать по такому массиву для каждого вида объекта (колодец, свинарник, фонтан).

Я бы создал один массив, нафига плодить сущности...
а картинки подгружать по мере надобности из того же имиджлиста

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

Если вы сделаете один массив для ВСЕХ разнотипных картинок, то код будет повторяться один раз
Если вы сделаете несколько массивов - код (события) будет повторяться столько раз, сколько массивов

...

Рейтинг:

0 / 0

07.04.2010, 12:44

| Ответить | Цитировать | Написать

Работа с изображениями

#36565554

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А код, который вы только что привели - там вообще нет массивов

...

Рейтинг:

0 / 0

07.04.2010, 12:44

| Ответить | Цитировать | Написать

Работа с изображениями

#36565588

Dudinski

Гость

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

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

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

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

...

Рейтинг:

0 / 0

07.04.2010, 12:51

| Ответить | Цитировать | Написать

Работа с изображениями

#36565602

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.

For i= 1  To  10 
  Image1(i).Left = Image1(i).Left + X - downX
  Image1(i).Top = Image1(i).Top + Y - downY
Next

Вы бы поизучали что-ли язык немножко по учебнику, прежде чем писать на нем

...

Рейтинг:

0 / 0

07.04.2010, 12:54

| Ответить | Цитировать | Написать

Работа с изображениями

#36565635

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Dudinski если я напишу массив например на колодец Image1(i) i от 1 до 10,то код на перемещение этих 10 появившихся картинок будет такой?

Я тут подумал. Вам наверное нужен код не на перемещение десяти картинок, а на перемещение одной, той, в которой возникло событие. Тогда так:

Код: plaintext

1.
2.
3.
4.
5.
6.

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

...

Рейтинг:

0 / 0

07.04.2010, 13:03

| Ответить | Цитировать | Написать

Работа с изображениями

#36565641

Dudinski

Гость

Shocker.Pro

Код: plaintext

1.
2.
3.

For i= 1  To  10 
  Image1(i).Left = Image1(i).Left + X - downX
  Image1(i).Top = Image1(i).Top + Y - downY
Next

Вы бы поизучали что-ли язык немножко по учебнику, прежде чем писать на нем
просто времени нет,диплом горит
а в первом коде все прежнее оставить?
[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]и еще подскажите пожалуйста как операционные требования для созданной программы написать?
и какой вы посоветуете инсталятор сделать

...

Рейтинг:

0 / 0

07.04.2010, 13:05

| Ответить | Цитировать | Написать

Работа с изображениями

#36565665

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

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

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

Оставить. Вы хоть сами понимаете, как это работает или для вас это китайская грамота?

Dudinskiи еще подскажите пожалуйста как операционные требования для созданной программы написать?

Возьмите от VB6

Dudinskiи какой вы посоветуете инсталятор сделать

Я не посоветую. Сам пользуюсь P&D из комплекта, но здесь это считается моветон и меня щас камнями закидают

...

Рейтинг:

0 / 0

07.04.2010, 13:11

| Ответить | Цитировать | Написать

Работа с изображениями

#36565685

Dudinski

Гость

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

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

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

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

...

Рейтинг:

0 / 0

07.04.2010, 13:16

| Ответить | Цитировать | Написать

25 сообщений из 96, страница 2 из 4

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с изображениями

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=36565339&tid=2159946]:	0ms
get settings:	12ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	41ms
get topic data:	10ms
get forum data:	3ms
get page messages:	56ms
get tp. blocked users:	1ms
others:	240ms

total:	385ms