سلام. یک فرم ایجاد کن و یک PictureBox در موقعیت مورد نظر قرار بده و دو دکمه هم در گوشه ای قرار بده و از کدهای زیر استفاده کن:
Public Class Form1
Dim img As Image = Image.FromFile("D:\TestImage.jpg")
Dim g As Graphics
Dim rec As Rectangle
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
'Normal
g = Me.pb.CreateGraphics
If IsNothing(g) = False Then
g.Clear(Color.White)
End If
rec = New Rectangle(0, 0, img.Size.Width, img.Size.Height)
g.DrawImage(img, rec)
g.Dispose()
End Sub
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
'Zoom
Dim z As Integer = 100
g = Me.pb.CreateGraphics
If IsNothing(g) = False Then
g.Clear(Color.White)
End If
rec = New Rectangle(0, 0, img.Size.Width + z, img.Size.Height + z)
'rec.Inflate(z, z)
g.DrawImage(img, rec)
g.Dispose()
End Sub
End Class
در کدهای بالا چند متغیر در سطح فرم تعریف شده اند. و کدهای موجود در دکمه ها هم بسیار ساده هستند که با کلیک روی یکی از آنها میتونید تصویر اصلی رو به اندازه اصلی نمایش دهید و با کلیک روی دکمه بعدی و با توجه به مقدار تنظیم شده در کدها، اندازه تصویر را افزایش دهید. البته این یک نمونه کد جهت جلوگیری از ایجاد فرم با اندازه های بسیار بزرگی که شما به دنبالش هستید بود و حتما کدهای بسیار متنوعی میشه برای این مورد نوشت.
ایجاد فرم با سایز بزرگتر از اندازه صفحه نمایش
نوشته شده توسط mmbguide
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول