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

[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/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3

http://www.barnamenevis.org/sh...B9%DA%A9%D8%B3