سلام دوستان
می خواستم یه فرم بسازم که سایزش بزرگتر از اندازه صفحه نمایش باشه
هر کاری میکنم ویندوز اجازه بیشتر شدن اندازه فرم از اندازه صفحه نمایش رو نمیده
ممنون میشم اگه کمکم کنید :لبخند:
Printable View
سلام دوستان
می خواستم یه فرم بسازم که سایزش بزرگتر از اندازه صفحه نمایش باشه
هر کاری میکنم ویندوز اجازه بیشتر شدن اندازه فرم از اندازه صفحه نمایش رو نمیده
ممنون میشم اگه کمکم کنید :لبخند:
سلام
اگر امکانش هست ممنون میشم علت اینکار رو هم بفرمایید شاید راه حل بهتری به ذهن برسه
سلام. یک فرم ایجاد کن و یک 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
در کدهای بالا چند متغیر در سطح فرم تعریف شده اند. و کدهای موجود در دکمه ها هم بسیار ساده هستند که با کلیک روی یکی از آنها میتونید تصویر اصلی رو به اندازه اصلی نمایش دهید و با کلیک روی دکمه بعدی و با توجه به مقدار تنظیم شده در کدها، اندازه تصویر را افزایش دهید. البته این یک نمونه کد جهت جلوگیری از ایجاد فرم با اندازه های بسیار بزرگی که شما به دنبالش هستید بود و حتما کدهای بسیار متنوعی میشه برای این مورد نوشت.