Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: скроулинг картинки Добавлено: 30.09.10 07:42  

Автор вопроса:  LEX1ERS | ICQ: 4204936 
Добрый день! Я хотел бы узнать как сделать скроулинг картинки в пикчербоксе, если я её увеличел через paintpicture? Спасибо

Ответить

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

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



ICQ: 4204936 

Вопросов: 38
Ответов: 100
 Профиль | | #1 Добавлено: 30.09.10 07:42
забыл. На vb6

Ответить

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #2 Добавлено: 30.09.10 09:00
невероятно муторно) делаешь один-два скрол бара (в зависимости от) и ими, и опять же пеинтпикчером мучаешь свою пикселизированную картинку..

Ответить

Номер ответа: 3
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
 Web-сайт: houselab.narod.ru
 Профиль | | #3
Добавлено: 30.09.10 11:09
попробуй внимaтeльно прочитaть описaниe мeтодa paintpicture, и ты срaзу всё поймeш (нaдeюсь)

Ответить

Номер ответа: 4
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #4 Добавлено: 30.09.10 11:16
А в чем сложность, собственно?
Чтобы не заморачиваться ни на что - кидаешь один пикчербокс внутрь другого.

Ответить

Номер ответа: 5
Автор ответа:
 LEX1ERS



ICQ: 4204936 

Вопросов: 38
Ответов: 100
 Профиль | | #5 Добавлено: 01.10.10 11:10
Сперва так и сделал. В один пикчербокс кинул ещё один(назовем его зум). В итоге сделал что то в виде лупы. Примерно выглядило это так. В процедуре Mousemove я прописал что бы пикчербокс(зум) следовал за мышкой. вышло, что зум перехватывал Mousemove у пикчербокса.

Ответить

Номер ответа: 6
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
 Web-сайт: смекаешь.рф
 Профиль | | #6
Добавлено: 02.10.10 01:21
Ну дак переадресуй. Пусть picMainBoo - это пикчербокс, в котором перемещается пикчербокс с картинкой, а picCoo - сам пикчербокс с картинкой.
  1.  
  2. Private Sub пикчербоксСКартинкой_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  3. Call РодительскийПикчербокс_MouseMove(Button, Shift, X + пикчербоксСКартинкой.Left, Y + пикчербоксСКартинкой.Top)
  4. End Sub
  5. Private Sub РодительскийПикчербокс_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  6. 'Писать код здесь
  7. End Sub


Смекнул?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам