منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عمل برنامج لاضافة حقوق الى الصور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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(00)
        
Dim myfont As New Font("Times New Roman"45FontStyle.RegularGraphicsUnit.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(opacityMyColor))
        
Dim g As Graphics Graphics.FromImage(bmp)
        
g.DrawString("my text"myfontmybrushmypoint)
        
PictureBox1.Image bmp 
يمكننا التحكم بالمكان الذي نريد ان يكون فيه النص بالتحكم بالمتغير mypoint
و يكمننا التعديل على الخط بالتحكم بالمتغير myfont
و اختيار اللون بالتعديل على المتغير mycolor
و التعديل على الشفافية بالتحكم بالمتغير opacity
ننتقل الان الى اضافة صورة شفافة :
PHP كود :
Dim mysize As New Size(5050)
        
Dim bmp As New Bitmap(PictureBox2.Imagemysize)
        
Dim opacity As Integer 100
        
For As Integer 0 To bmp.Width 1
            
For As Integer 0 To bmp.Height 1
                Dim pixel 
As Color bmp.GetPixel(xy)
                
Dim clr As Color Color.FromArgb(Opacitypixel.Rpixel.Gpixel.B)
                
bmp.SetPixel(xyclr)
            
Next
        Next
    
        Dim pic 
As New Bitmap(PictureBox1.Image)
        
Dim mypoint As New Point(00)
        
Dim g As Graphics Graphics.FromImage(pic)
        
g.DrawImage(bmpmypoint)
        
PictureBox1.Image pic 
يمكننا التحكم بالشفافية عن طريق التحكم بالمتغير opacity
و التحكم بحجم الشعار عن طريق التحكم بالمتغير mysize
و التحكم بمكان الشعار عن طريق التحكم بالمتغير mypoint
المثال في المرفقات
تحياتي