| Вопрос: Scroll Picture | Добавлено: 20.12.03 15:33 |
Автор вопроса:  =]sashOK[=
|
|
Люди , как программно можно скроллить картинку в PictureBox'е или в image. Там в роде всё просто, но блин - не помню У меня такой пример в книжке есть, но ,блин, книжка куда-то делась |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 20.12.03 16:12 |
|
pict - PictureBox Dim Pic As IPictureDisp Private Sub Form_Load() pict.Picture = LoadPicture(App.Path & "\eagames.jpg") HScroll1.Max = pict.Picture.Width / 400 VScroll1.Max = pict.Picture.Height / 400 Set Pic = LoadPicture(App.Path & "\eagames.jpg") End Sub Private Sub HScroll1_Change() Change End Sub Private Sub HScroll1_Scroll() Change End Sub Private Sub VScroll1_Change() Change End Sub Private Sub VScroll1_Scroll() Change End Sub Sub Change() pict.PaintPicture Pic, -(HScroll1.Value * 100), -(VScroll1.Value * 100) End Sub |
||
|
Номер ответа: 2 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 20.12.03 22:18 |
|
Через PaintPicture - нехорошо. Хорошо запихнуть контейнер со своим рисунком и его перещать. |
||
|
Номер ответа: 3 Автор ответа:  =]sashOK[= Вопросов: 5 Ответов: 4 |
Профиль | | #3 | Добавлено: 22.12.03 05:44 |
|
Спасибо, блин большое, кстати книжка так и не нашлась |
||
Страница: 1 |