ایجاد فرم با سایز بزرگتر از اندازه صفحه نمایش

[araz.davari]

سلام دوستان

می خواستم یه فرم بسازم که سایزش بزرگتر از اندازه صفحه نمایش باشه

هر کاری میکنم ویندوز اجازه بیشتر شدن اندازه فرم از اندازه صفحه نمایش رو نمیده

ممنون میشم اگه کمکم کنید :لبخند:

[mmbguide]

سلام

اگر امکانش هست ممنون میشم علت اینکار رو هم بفرمایید شاید راه حل بهتری به ذهن برسه

[araz.davari]

سلام

اگر امکانش هست ممنون میشم علت اینکار رو هم بفرمایید شاید راه حل بهتری به ذهن برسه

یک فرم هست که همیشه با اندازه PictureBox داخلش هم اندازه باید باشه
اگه بخوام دقیق تر بگم یه نرم افزار واسه نمایش تصاویره که وقتی کاربر روی عکس زوم میکنه فرم و PictueBox باید بزرگتر بشن ولی این محدودیت نمیزاره

[mmbguide]

سلام. یک فرم ایجاد کن و یک 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


در کدهای بالا چند متغیر در سطح فرم تعریف شده اند. و کدهای موجود در دکمه ها هم بسیار ساده هستند که با کلیک روی یکی از آنها میتونید تصویر اصلی رو به اندازه اصلی نمایش دهید و با کلیک روی دکمه بعدی و با توجه به مقدار تنظیم شده در کدها، اندازه تصویر را افزایش دهید. البته این یک نمونه کد جهت جلوگیری از ایجاد فرم با اندازه های بسیار بزرگی که شما به دنبالش هستید بود و حتما کدهای بسیار متنوعی میشه برای این مورد نوشت.