برنامه درخواستی استاد

استاد این کافیه؟

نوشتن کمرنگشم دارم کار میکنم

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

بعد بخونه اگر در MemoryStream بریزه بهتره. حالا ببینیم دوستان دارن چه راهی میرن

من برای چرخاندن تصویر از

PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipX)

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

 Private Function Lighter(ByVal imgLight As Image, ByVal level As Integer, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Image
        Dim graphics_1 As Graphics = Graphics.FromImage(imgLight)

        Dim pLight As New Pen(Color.FromArgb(210, nRed, nGreen, nBlue), imgLight.Width * 2)

        graphics_1.DrawLine(pLight, -1, -1, imgLight.Width, imgLight.Height)

        graphics_1.Save()

        graphics_1.Dispose()

        Return imgLight

    End Function

موقع صدا زدن برنامه هم از دستور زیر

  PictureBox2.Image = Lighter(PictureBox2.Image, System.Math.Max(System.Threading.Interlocked.Increment(80), 80 - 1), colToFadeTo.R, colToFadeTo.G, colToFadeTo.B)

انشاءااله در همین پست سورسش را میگزاریم

برنامه به این صورت هست که هم اسلاید شو داره و هم از شاخه کنار فایل exe به نام pictures با Getfiles همه عکس ها را در ListBox میریزد و با زدن ردیف های ListBox عکس و سایه آن عوض میشود و در موقع پخش اسلاید شو هم اگر ردیفی انتخاب شود از بقیه آن حرکت میکند و هر موقع دلمان خواست رنگ پشت زمینه را عوض میکنیم

روی عکس هم یک واترمارک شماره ردیف Listbox و نام عکس را می اندازد