Прокрутка колесом мыши изображения в PictureBox

@denrashodchikov · Регистрация: 29.02.2012

Студворк — интернет-сервис помощи студентам

объясню наглядно ? вот что нужно в picturebox

@HackerVlad · 09.12.2024, 18:41

Сообщение от I can

А вообще без PictureBox-а

Так какая разница, можно и вообще без PictureBox там же в hdc свинячет картинку

@HackerVlad · 09.12.2024, 19:09

Откуда берётся чёрная полоса сверху в EXE остаётся полной загадкой, я даже специально пододвинул картинку вверх и всё равно...

@HackerVlad · 09.12.2024, 19:13

Кажется это глюк компилятора VB6

@Argus19 · 09.12.2024, 19:37

Я когда-то шалил. Может кому пригодится:

@HackerVlad · 09.12.2024, 19:39

Argus19, и какая у тебя там реализация? на контейнере?

I can · 09.12.2024, 19:42

Сообщение от HackerVlad

на контейнере?

Тебе чем контейнеры не нравятся, я не пойму

На VB.Net и C# если так делать, то там вообще кода не будет.
Или все делают неправильно, один ты - Лев Толстой?

@Argus19 · 09.12.2024, 19:43

На форме 2 картинки. На фоне одной колёсиком масштабируется другая.

I can · 09.12.2024, 19:44

Сообщение от Argus19

На форме 2 картинки

Тему не читал? Тут у нас гурман.

@HackerVlad · 09.12.2024, 19:49

Argus19, ну хорошо, спасибо, мне понравился твой пример для работы с колёсиком, красивый проектик)

Добавлено через 56 секунд

Сообщение от I can

все делают неправильно

да, все делают неправильно, к сожалению

@Argus19 · 09.12.2024, 19:51

А этот почему-то дуркует. На WinXp что-то получалось, а уже на Win7 изображение пропадает.
Рисую на экране монитора:

@HackerVlad · 09.12.2024, 20:02

Сообщение от Argus19

А этот почему-то дуркует.

Что должна делать эта программа? У меня просто чёрная форма и всё. И ничего не происходит.

@Argus19 · 09.12.2024, 20:05

Сообщение от HackerVlad

Что должна делать эта программа?

У меня выводит на экран монитора картинку и потом появляется чёрная форма. Что делает, не помню, но что-то связанное с колёсиком мыши. Подозреваю, что надо отлавливать некие события системы и перерисовывать картинку.

@HackerVlad · 09.12.2024, 20:08

Сообщение от I can

Тебе чем контейнеры не нравятся, я не пойму

Если требуется двигать только картинку, без всяких там элементов, то эта реализация более громоздкая, больше жрёт оперативки, целых два пикчебокса, прикинь, это же в два раза больше памяти будет жрать. И больше строк кода, не забывай. По скорости ещё не проверял, что быстрее.

Добавлено через 2 минуты
Argus19, ну в семёрке твой последний проект не работает, к сожалени, даже с отключенным Windows Aero

@Argus19 · 09.12.2024, 20:15

Сообщение от HackerVlad

ну в семёрке твой последний проект не работает,

У меня успевает нарисовать картинку. Где-то был ещё проектик, но в прошлом году рухнули два винта, на одном из которых были готовые проекты.

I can · 09.12.2024, 20:17

Сообщение от HackerVlad

Если требуется двигать только картинку

Такого я что-то в реальных программах не встречал. Как минимум двигается картинка как часть чего-то еще.

Не по теме:

Сообщение от HackerVlad

И больше строк кода, не забывай.

На C# вообще без кода всё будет. Ладно, я тут пришёл со своим самоваром, извиняюсь.

@HackerVlad · 09.12.2024, 20:35

Сообщение от Argus19

У меня успевает нарисовать картинку.

А у меня ничего не происходит.

Добавлено через 1 минуту

Сообщение от I can

Такого я что-то в реальных программах не встречал

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

Добавлено через 7 минут

Сообщение от Argus19

У меня успевает нарисовать картинку.

Проверил в EXE заработало. Рисует картинку на экране. Не работает в IDE.

Добавлено через 8 минут

Сообщение от HackerVlad

Откуда берётся чёрная полоса сверху в EXE остаётся полной загадкой

Кажется я разгадал загадку этого чудесного появление полосы сверху. Это из-за Trick'овского контрола полосы прокрутки, поставил обычную полосу прокрутки, так этот баг сразу исчез сверху.

@HackerVlad · 09.12.2024, 20:51

Новое решение, на базе стандартного элемента управления прокрутки (по горизонтали):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Dim cPic As StdPicture
' We will scroll the picture here from 0 to -319 (320 in total)
 
Private Sub DrawFit(ByVal hDC As Long, ByVal cPic As IPicture, ByVal NewX As Long)
    Dim lsw As Long
    Dim lsh As Long
    
    lsw = CLng(((cPic.Width / 2540) * 1440) / Screen.TwipsPerPixelX)
    lsh = CLng(((cPic.Height / 2540) * 1440) / Screen.TwipsPerPixelY)
    
    cPic.Render hDC, -NewX, 0, lsw, lsh, 0, cPic.Height, cPic.Width, -cPic.Height, ByVal 0&
End Sub
 
Private Sub Paint_Picture()
    Dim NewValueX As Long
    
    NewValueX = HScroll1.Value
    Me.Caption = NewValueX
    
    Picture1.Cls
    DrawFit Picture1.hDC, cPic, NewValueX
End Sub
 
Private Sub HScroll1_Change()
    Paint_Picture
End Sub
 
Private Sub HScroll1_Scroll()
    Paint_Picture
End Sub
 
Private Sub Form_Load()
    Set cPic = LoadPicture(App.Path & "\123456789.jpg")
    HScroll1.Max = Picture1.ScaleWidth
    Paint_Picture
End Sub

Хочу обратить внимание на то, что здесь всего 37 строк кода! И всё работает как надо! Картинка идеально двигается от начала и до конца, как в IDE, так и в EXE. И при этом не надо ничего мудрить с двумя пикчебоксами. Пикчебокс внутри пикчебокса это ерунда полнейшая, от которой я сразу же решил отказаться. Всё работает за счёт Render. Это правильно.

@HackerVlad · 09.12.2024, 21:44

Сообщение от HackerVlad

Откуда берётся чёрная полоса сверху в EXE остаётся полной загадкой

Я решил этот баг так: я перенёс полосу прокрутки из пикчебокса на форму. И баг с верхней чёрной полосой исчез. Ура.
Кстати здесь я в своих примерах делал полосу прокрутки внутри пикчебокса, а это неправильно, так как снизу будет немного загараживать само изображение. Всё-таки правильнее, получается, делать полосу прокрутки именно на форме. Так лучше.

@Mikle Quits · 10.12.2024, 08:15

Сообщение от HackerVlad

правильнее, получается, делать полосу прокрутки именно на форме

Плюсую.

@Mikle Quits · 10.12.2024, 21:09

Я когда-то делал заготовку для редактора карт с картой произвольного размера и возможностью ресайзить форму, а так же сохранением состояния окна при закрытии и восстановлением при открытии.
Никаких хитростей, просто картинка в картинке, может, кому-то пригодится.

Новые блоги и статьи Все статьи Все блоги /
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .
сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .

@denrashodchikov 0 / 0 / 0 Регистрация: 29.02.2012 Сообщений: 37

	Прокрутка колесом мыши изображения в PictureBox 08.03.2012, 17:55. Показов 7458. Ответов 39 Метки нет (Все метки) объясню наглядно ? вот что нужно в picturebox Миниатюры 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	09.12.2024, 19:09
	Откуда берётся чёрная полоса сверху в EXE остаётся полной загадкой, я даже специально пододвинул картинку вверх и всё равно... Миниатюры 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	09.12.2024, 19:13
	Кажется это глюк компилятора VB6 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	09.12.2024, 19:39
	Argus19, и какая у тебя там реализация? на контейнере? 0

@Argus19 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24
	09.12.2024, 19:43
	На форме 2 картинки. На фоне одной колёсиком масштабируется другая. 0