Перемещение большой картинки как в просмотрщиках изображений - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Есть картинка загруженная в PictureBox, занимающий всю форму. Картинка имеет размеры гораздо больше экрана монитора. Как её пермещать (чтобы просмотреть недоступные участки изображения) зажав кнопку мыши (как в графическом редакторе).

Решение задачи: «Перемещение большой картинки как в просмотрщиках изображений»

textual
Листинг программы
'…
Private xx2, yy2 As Integer
Private Sub LoadBmp_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Try
        bmpBase = loadBitmap("Ps1.jpg")
        PictureBox2.Image = bmpBase
        xx = 0
        yy = 0
        xx2 = -(bmpBase.Width - PictureBox2.DisplayRectangle.Width)
        yy2 = -(bmpBase.Height - PictureBox2.DisplayRectangle.Height)
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub
Private Sub PictureBox2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
    If bmpBase Is Nothing Then Exit Sub
    Dim g = e.Graphics
    g.Clear(Color.White)
    xx -= dX
    yy -= dY
    If xx > 0 Then xx = 0
    If yy > 0 Then yy = 0
    If xx < xx2 Then xx = xx2
    If yy < yy2 Then yy = yy2
    g.DrawImage(bmpBase, xx, yy)
End Sub
'…

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5