التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI - مقدمة

كود :
Public Class Form1



Dim img As New Bitmap(My.Resources.blender)



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



CreateImage()

CreateImage1()

CreateImage2()

CreateImage3()

CreateImage4()

CreateImage5()



End Sub



Private Sub CreateImage()



Dim bmp As New Bitmap(150, 150, Imaging.PixelFormat.Format32bppPArgb)

Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(Brushes.Black, rect)



Dim lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.BlueViolet, Drawing2D.LinearGradientMode.Vertical, True)

Dim rect1 As New Rectangle(rect.X + 4, rect.Y + 4, rect.Width - 8, rect.Height - 8)

g.FillRectangle(lgb, rect1)



Dim rect2 As New Rectangle(rect1.X + 8, rect1.Y + 8, rect1.Width - 16, rect1.Height - 16)

Dim lgb1 As New Drawing2D.LinearGradientBrush(rect1, Color.Lime, Color.Green, Drawing2D.LinearGradientMode.Vertical, True)

g.FillRectangle(lgb1, rect2)



Dim rect3 As New Rectangle(rect2.X + 8, rect2.Y + 8, rect2.Width - 16, rect2.Height - 16)



rect3.Inflate(-1, -1)

g.FillRectangle(New SolidBrush(Color.FromArgb(25, Color.Black)), rect3)

g.DrawString("Photo", New Font("Times New Roman", 14), Brushes.White, 0, 0)



PictureBox1.Image = bmp

PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage



End Sub



Private Sub CreateImage1()



Dim bmp As New Bitmap(150, 150, Imaging.PixelFormat.Format32bppPArgb)

Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(Brushes.Black, rect)



Dim lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.BlueViolet, Drawing2D.LinearGradientMode.Vertical, True)

Dim rect1 As New Rectangle(rect.X + 4, rect.Y + 4, rect.Width - 8, rect.Height - 8)

g.FillRectangle(lgb, rect1)



Dim rect2 As New Rectangle(rect1.X + 8, rect1.Y + 8, rect1.Width - 16, rect1.Height - 16)

Dim lgb1 As New Drawing2D.LinearGradientBrush(rect1, Color.Lime, Color.Green, Drawing2D.LinearGradientMode.Vertical, True)

g.FillRectangle(lgb1, rect2)



Dim rect3 As New Rectangle(rect2.X + 8, rect2.Y + 8, rect2.Width - 16, rect2.Height - 16)



rect3.Inflate(-1, -1)

g.FillRectangle(New SolidBrush(Color.FromArgb(25, Color.Black)), rect3)



Dim clr As Color = img.GetPixel(img.Width / 2, img.Height / 2)

Dim sb As New SolidBrush(Color.FromArgb(75, Color.Navy))



g.FillRectangle(sb, New Rectangle(rect3.X + 8, rect3.X + 8, rect3.Width - 16, rect3.Height - 16))



g.DrawImage(img, New Rectangle(rect3.X + 8, rect3.X + 8, rect3.Width - 16, rect3.Height - 16))



g.FillEllipse(sb, New Rectangle(rect3.X + 16, rect3.X + 16, rect3.Width - 32, rect3.Height - 32))



g.DrawString("Photo", New Font("Times New Roman", 14), Brushes.White, 0, 0)

PictureBox2.Image = bmp

PictureBox2.SizeMode = PictureBoxSizeMode.CenterImage



End Sub



Private Sub CreateImage2()



Dim bmp As New Bitmap(150, 150, Imaging.PixelFormat.Format32bppPArgb)

Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(New SolidBrush(Color.FromArgb(150, Color.Black)), rect)



For x As Integer = 0 To bmp.Width - 1 Step 10



For y As Integer = 0 To bmp.Height - 1 Step 10



Dim rect1 As New Rectangle(rect.X + x, rect.Y + y, rect.Width - 2 * x, rect.Height - 2 * y)

Dim clr As Color = Color.DarkOrange

Dim Clr1 As Color = Color.FromArgb(x, clr)



g.DrawImage(img, New Rectangle(rect.X + 8, rect.X + 8, rect.Width - 16, rect.Height - 16))



g.FillRectangle(New SolidBrush(Clr1), rect1)

g.DrawRectangle(New Pen(Color.FromArgb(100, Color.Red), 1), rect1)



Next

Next



g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.Lime)), New Rectangle(rect.X + 10, rect.Y + 10, rect.Width - 20, rect.Height - 20))



g.DrawString("Photo", New Font("Times New Roman", 14), Brushes.White, 0, 0)

g.FillRectangle(New SolidBrush(Color.FromArgb(100, Color.Gold)), rect)



PictureBox3.Image = bmp

PictureBox3.SizeMode = PictureBoxSizeMode.CenterImage



End Sub



Private Sub CreateImage3()



Dim bmp As New Bitmap(150, 150, Imaging.PixelFormat.Format32bppPArgb)

Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(New SolidBrush(Color.FromArgb(150, Color.Black)), rect)



For x As Integer = 0 To bmp.Width - 1



For y As Integer = 0 To bmp.Height - 1



Dim rect1 As New Rectangle(rect.X + x, rect.Y + y, rect.Width - 2 * x, rect.Height - 2 * y)



Dim clr As Color = Color.Chocolate

Dim Clr1 As Color = Color.FromArgb(x, clr)



g.DrawImage(img, New Rectangle(rect.X + 50, rect.X + 50, rect.Width - 100, rect.Height - 100))

g.FillRectangle(New SolidBrush(Clr1), rect1)

g.DrawRectangle(New Pen(Color.FromArgb(100, Color.Maroon)), rect1)





Next

Next





g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.Orange)), New Rectangle(rect.X + 10, rect.Y + 10, rect.Width - 20, rect.Height - 20))



g.DrawString("Photo", New Font("Times New Roman", 14), Brushes.White, 0, 0)

PictureBox4.Image = bmp

PictureBox4.SizeMode = PictureBoxSizeMode.CenterImage



End Sub



Private Sub CreateImage4()



Dim bmp As New Bitmap(150, 150, Imaging.PixelFormat.Format32bppPArgb)

Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.Black)), rect)





Dim textures As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.BackwardDiagonal, Color.AliceBlue, Color.Tan)



g.FillRectangle(textures, New Rectangle(rect.X + 50, rect.X + 50, rect.Width - 100, rect.Height - 100))



g.DrawImage(img, New Rectangle(rect.X + 50, rect.X + 50, rect.Width - 100, rect.Height - 100))



g.FillRectangle(New Drawing2D.LinearGradientBrush(New Rectangle(rect.X + 10, rect.Y + 10, rect.Width - 20, rect.Height - 20), Color.FromArgb(250, Color.Turquoise), Color.FromArgb(150, Color.Blue), 45, False), New Rectangle(rect.X + 10, rect.Y + 10, rect.Width - 20, rect.Height - 20))



g.DrawString("Photo", New Font("Times New Roman", 14), Brushes.White, 0, 0)

PictureBox5.Image = bmp

PictureBox5.SizeMode = PictureBoxSizeMode.CenterImage



End Sub



Private Sub CreateImage5()



Dim bmp As New Bitmap(150, 150, Imaging.PixelFormat.Format32bppPArgb)

Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)

Dim g As Graphics = Graphics.FromImage(bmp)



Dim textures As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.SmallGrid, Color.Red, Color.FromArgb(50, Color.Red))

g.FillRectangle(textures, rect)



g.DrawImage(img, rect)



g.DrawString("Photo", New Font("Times New Roman", 14), Brushes.White, 0, 0)

PictureBox6.Image = bmp

PictureBox6.SizeMode = PictureBoxSizeMode.CenterImage



End Sub



End Class