Перемещение большой картинки как в просмотрщиках изображений - 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 '…
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д