تصویر برای فرم

[mohammad.mfs]

سلام رفقا
کمک کنید
چه طوری میشه کاری کرد که تصویر یه فرم در هر مانیتوری با اندازه های مختلف به همون اندازی در بیاد؟:متفکر:
با برنامه میشه کاری کرد که اندازه تصویر رو تغییر داد؟:متفکر:

[Saman_12]

شما از خواص Dock و Anchor استفاده کنید مشکل حله!

[mohammad.mfs]

شما از خواص Dock و Anchor استفاده کنید مشکل حله!
نه آخه می خوام رو خود فرم بندازم

[Saman_12]

دوست عزیز اگه امکان داره یه توضیح کامل بدید که می خواید چی کار کنید من که نگرفتم!
اگه منظورتون تصویر پشت زمینه هست که حالات خاصیت BackgroundImageLayout رو امتحان کنید.
با این کد هم می تونید Width و Height صفحه نمایش رو به دست بیارید.


My.Computer.Screen.WorkingArea.Height
My.Computer.Screen.WorkingArea.Width

[nasim bahari]

سلام.....دوست عزیز

اگه منظورتون تغییر رزولیشن هستش....بگو تا کد مربوطه رو بزارم...

موفق باشین

[mohammad.mfs]

سلام.....دوست عزیز

اگه منظورتون تغییر رزولیشن هستش....بگو تا کد مربوطه رو بزارم...

موفق باشین
ایول می خوام هر مانیتور با اندازه های متفاوت تصویر من رو با اندازه مانیتور خودش ببینه

فکر کنم همینی که شما میگین:متفکر:
اگه میشه کدش رو بزارین:تشویق:

[nasim bahari]

سلام......

اگه می دونستم اینقده حال می کنی.....زوتر پست رو ایجاد می کردم.....

اینم یه نمونه برنامه که با کلیک بروی دکمه ای که در فرم قرار گرفته رزولیشن رو به 1024 * 768 تغییر می ده . البته شما می تونین این رزولیشن رو تغییر بدین...

موفق باشین

[mohammad.mfs]

من نمیخوام رزولیشن مانیتورم رو عوض کنه که من میخوام:
رزولیشن یا اندازه تصویرم رو بتونم تغییر بدم مثلا مثل تغییر اندازه تصویر در فتوشاپ:متفکر:

[Saman_12]

خوب همون اول می گفتی این فانکشن این کار رو می کنه :


Private Shared Function resizeImage(ByVal imgToResize As Image, ByVal size As Size) As Image

Dim sourceWidth As Integer = imgToResize.Width
Dim sourceHeight As Integer = imgToResize.Height

Dim nPercent As Decimal = 0
Dim nPercentW As Decimal = 0
Dim nPercentH As Decimal = 0

nPercentW = (size.Width / sourceWidth)
nPercentH = size.Height / sourceHeight

If nPercentH < nPercentW Then
nPercent = nPercentH
Else
nPercent = nPercentW
End If
Dim destWidth As Integer = (sourceWidth * nPercent)
Dim destHeight As Integer = (sourceHeight * nPercent)

Dim b As Bitmap = New Bitmap(destWidth, destHeight)
Dim g As Graphics = Graphics.FromImage(b)
g.InterpolationMode = InterpolationMode.HighQualityBicubic

g.DrawImage(imgToResize, 0, 0, destWidth, destHeight)
g.Dispose()

Return b
End Function

طریقه استفادش هم ساده هست .

اینم خلاصه فانکشن بالا :


Try
Dim TNImage As System.Drawing.Image
TNImage = Drawing.Image.FromFile("i:\1.jpg")
Dim objimage As New Bitmap(TNImage, 800, 400)
TNImage.Dispose()
File.Delete("i:\1.jpg")
objimage.Save("i:\1.jpg")
Catch ex As Exception
MsgBox(ex.Message)
End Try

[nasim bahari]

دوست عزیز چرا اینقدر سوال رو می پیچونید ؟

اگر می خواین یه تصویر داشته باشین و بتونین اون رو تغییر اندازه داده و یا دیگر کارهای معمول کار با عکس رو روی اون انجام بدین......چرا جستجو نکردین ؟ قبلاً پست های زیادی در این رابطه ایجاد شده ؟


http://www.barnamenevis.org/forum/showthread.php?t=234775&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=227521&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=216672&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=217163&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=216606&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=207207&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=178017&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=212419&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=210100&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=207110&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=207095&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=206716&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=204800&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=199483&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=197998&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=192397&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=189243&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=184872&highlight=%D8%B9%DA%A9%D8%B3

http://www.barnamenevis.org/forum/showthread.php?t=165409&highlight=%D8%B9%DA%A9%D8%B3