+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : عمل برنامج لاضافة حقوق الى الصور (/showthread.php?tid=4222)
عمل برنامج لاضافة حقوق الى الصور - H111er - 20-09-12
السلام عليكم اخواني ..
في هذا الموضوع ساتناول طريقة اضافة حقوق للصور
عن طريق اضافة نص او شعار شفاف .. و التحكم بنسبة الشفافية
اي ان صلب الموضوع اننا سنتحكم بالشفافية ...
ساضع بين ايديكم فقط كود التعديل على الشفافية .. و لن اتطرق الى الاشياء الاخرى مثل الديزاين , الخ ... . حيث ستكون موجودة في المثال ان شاء الله
لاضافة نص شفاف :
PHP كود :
Dim mypoint As New Point(0, 0)
Dim myfont As New Font("Times New Roman", 45, FontStyle.Regular, GraphicsUnit.Pixel)
Dim bmp As New Bitmap(PictureBox1.Image)
Dim MyColor As Color = Color.Red
Dim opacity As Integer = 100
Dim mybrush As New SolidBrush(Color.FromArgb(opacity, MyColor))
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawString("my text", myfont, mybrush, mypoint)
PictureBox1.Image = bmp
و يكمننا التعديل على الخط بالتحكم بالمتغير myfont
و اختيار اللون بالتعديل على المتغير mycolor
و التعديل على الشفافية بالتحكم بالمتغير opacity
ننتقل الان الى اضافة صورة شفافة :
PHP كود :
Dim mysize As New Size(50, 50)
Dim bmp As New Bitmap(PictureBox2.Image, mysize)
Dim opacity As Integer = 100
For x As Integer = 0 To bmp.Width - 1
For y As Integer = 0 To bmp.Height - 1
Dim pixel As Color = bmp.GetPixel(x, y)
Dim clr As Color = Color.FromArgb(Opacity, pixel.R, pixel.G, pixel.B)
bmp.SetPixel(x, y, clr)
Next
Next
Dim pic As New Bitmap(PictureBox1.Image)
Dim mypoint As New Point(0, 0)
Dim g As Graphics = Graphics.FromImage(pic)
g.DrawImage(bmp, mypoint)
PictureBox1.Image = pic
و التحكم بحجم الشعار عن طريق التحكم بالمتغير mysize
و التحكم بمكان الشعار عن طريق التحكم بالمتغير mypoint
المثال في المرفقات
تحياتي