20-09-12, 06:28 AM
السلام عليكم اخواني ..
في هذا الموضوع ساتناول طريقة اضافة حقوق للصور
عن طريق اضافة نص او شعار شفاف .. و التحكم بنسبة الشفافية
اي ان صلب الموضوع اننا سنتحكم بالشفافية ...
ساضع بين ايديكم فقط كود التعديل على الشفافية .. و لن اتطرق الى الاشياء الاخرى مثل الديزاين , الخ ... . حيث ستكون موجودة في المثال ان شاء الله
لاضافة نص شفاف :
يمكننا التحكم بالمكان الذي نريد ان يكون فيه النص بالتحكم بالمتغير mypoint
و يكمننا التعديل على الخط بالتحكم بالمتغير myfont
و اختيار اللون بالتعديل على المتغير mycolor
و التعديل على الشفافية بالتحكم بالمتغير opacity
ننتقل الان الى اضافة صورة شفافة :
يمكننا التحكم بالشفافية عن طريق التحكم بالمتغير opacity
و التحكم بحجم الشعار عن طريق التحكم بالمتغير mysize
و التحكم بمكان الشعار عن طريق التحكم بالمتغير mypoint
المثال في المرفقات
تحياتي
في هذا الموضوع ساتناول طريقة اضافة حقوق للصور
عن طريق اضافة نص او شعار شفاف .. و التحكم بنسبة الشفافية
اي ان صلب الموضوع اننا سنتحكم بالشفافية ...
ساضع بين ايديكم فقط كود التعديل على الشفافية .. و لن اتطرق الى الاشياء الاخرى مثل الديزاين , الخ ... . حيث ستكون موجودة في المثال ان شاء الله
لاضافة نص شفاف :
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
المثال في المرفقات
تحياتي