بسم الله الرحمن الرحيم
نبدا من كود فتح صورة جديدة
Dim OpenFileDialog As OpenFileDialog = New OpenFileDialog()
Dim imagFilter As String = "Fichiers d'images (*.jpg,*.jpeg,*.bmp,*.gif,*.png)|*.BMP;*.PNG;*.JPG;*.JPEG;*.GIF"
OpenFileDialog.Filter = imagFilter
OpenFileDialog.RestoreDirectory = True
If OpenFileDialog.ShowDialog() = DialogResult.OK Then
Dim img As Image = Image.FromFile(OpenFileDialog.FileName)
PictureBox1.Image = img.GetThumbnailImage(PictureBox1.Width, PictureBox1.Height, Nothing, Nothing)
End If
حفظ التغيرات على الصورة
Dim SaveFileDialog As New SaveFileDialog()
SaveFileDialog.Filter = "Fichiers d'images (*.JPG,*.BMP,*.GIF)|*.jpg;*.bmp;*.gif"
If SaveFileDialog.ShowDialog() = DialogResult.OK Then
If Not PictureBox2.Image Is Nothing Then
PictureBox2.Image.Save(SaveFileDialog.FileName)
End If
End If
اضافة حد للصورة
Dim bm As Bitmap = New Bitmap(PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bm)
Dim pan As New System.Drawing.Pen(Brushes.Aquamarine, 20)
g.DrawImage(bm, 0, 0)
g.DrawRectangle(pan, 0, 0, bm.Width, bm.Height)
PictureBox2.SizeMode = AutoSize
PictureBox2.Image = bm.GetThumbnailImage(PictureBox2.Width, PictureBox2.Height, Nothing, Nothing)
الكتابة على الصورة
'Dim grayImage As Image = PictureBox1.Image
Dim bm As Bitmap = New Bitmap(PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bm)
Dim myFont As New Font("Tahoma", TextBox4.Text, FontStyle.Bold, GraphicsUnit.Pixel, 100)
g.DrawString(TextBox1.Text, myFont, Brushes.Beige, TextBox2.Text, TextBox3.Text)
g.DrawImage(bm, 0, 0)
bm.MakeTransparent(Color.Black)
g.DrawImage(bm, 0, 100)
PictureBox2.Image = bm.GetThumbnailImage(PictureBox2.Width, PictureBox2.Height, Nothing, Nothing
يتبع ...............
اللهم انصرنا على بشار وشبيحتوووووووووو قولو اميييييييين