• 0
JBR07

حفظ الصورة

سؤال

السلام عليكم ورحمة الله وبركاته

هي اول مشاركه الي بالمنتدى وان شاء الله ألقى الحل معكم

انا عملت برنامج بالفيجيوال بيسك 2010 البرنامج بيقوم بالكتابه على الصورة

وكل أشي تمام بس بدي كود لحفظ الصورة بعد الكتابه عليها مع المحافظة على الكتابه

ويفضل انو باستخدام savedialog

بانتظاركم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

14 إجابة على هذا السؤال .

  • 0

السلام عليكم 

 

لنفترض ان لديك  Picture box1 ويحوي اى صوره على سبيل المثال  ،،، نقم باضافه زر للحفظ وبه الكود التالى حيث يقوم باضافه نص على الصورة الموجوده  

    Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click                    Dim img As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(img)        Dim x As Integer = 10        Dim y As Integer = 30        g.DrawString("WWW.ARABTAEM200-FORUM>COM", New Font("Arial", 10), Brushes.White, x, y)        PictureBox1.Image = img        SFD.ShowDialog()    End Sub

في الحدث لللاداه FileOk Savefiledialog اكتب الكود التالي

 Private Sub SFD_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SFD.FileOk                Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, SFD.FileName)        PictureBox1.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Jpeg)    End Sub
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرفق المثال السابق  VS2012

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرفق المثال السابق  VS2012

DrawPicture.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تسلم ايديك كل اشي تمام بس لو ما فيها غلبه :rolleyes:

ممكن طريقة اني اضيف font dialog و color dialog B)

ويصير المستخدم يقدر يغير نوع الخط او لون الخط :D

وما شاء الله عليك انسان رائع :wub:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

واذا امكن هل توجد طريقة لجعل المستخدم يختار مكان الكتابه :rolleyes:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما زلت بانتظاركم يا ابطال :)

اذا طلبي مستحيل او لا يمكن فعله يرجى اخباري :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم،،،

 

لا يوجد مستحيل فى عالم البرمجه.......يوجد بالقسم شرحات GDI+ اقراءها وارنا محاولتك واذا استصعب عليك شئ نساعدك ،،،، حاول وارنا محاولتك ومن ثم اسأل...........

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

والله انك إنسان اكثر من رائع ;)

تسلم ايديك ;)

بالمناسبة استطعت تقريبا إنهاء البرنامج :)

وحليت مشكلة الخط وصرت اقدر أغير الخط وحجمه ;)

وبالنسبة للون الخط لم أستطيع إيجاد حل يتناسب مع الكود الي تم طرحه من قبل حضرتك :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

نعدل الكود السابق كالتالى لنمكن المستخدم من اختيار اللون باستخدام ColorDialog

    Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click                    Dim img As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(img)        Dim x As Integer = 10        Dim y As Integer = 30        'نعرف الكائن ColorDialog        Dim CD As New ColorDialog        'هنا اعطيته اللون الافتراضى الابيض كون الصوره سوداء ،،، اختار اللون اللى يعجبك        CD.Color = Drawing.Color.White        'نعرض الاداه للمتخدم ليختار اللو اللى يبيه        CD.ShowDialog()        'ننشى فرشاه ونعطيها اللون المختار من الاداه ColorDialog        Dim Brush As SolidBrush = New SolidBrush(CD.Color)        'نمررها(الفرشاه) لكان الجرافيك باللون المختار        g.DrawString("WWW.ARABTAEM200-FORUM>COM", New Font("Arial", 10), Brush, x, y)        PictureBox1.Image = img        With SFD            .Filter = "Image Files | *.jpeg"            .ShowDialog()        End With    End Sub



			
				


	تم تعديل  بواسطه SOLO.NET
	
	

			
		
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الحمدلله تم انهاء المشروع بفضل الله ثم بمساعدة اخي solo.net ^_^

فعلا ما شاء الله عليك انسان مبدع في البرمجة والتفكير ^_^

وتم استخدام فكرة الكود لاتمام مشروعي على طريقتي :)

وتم وضع اسمك في ال About الخاصه بالبرنامج :wub:

وليكون هذا المكان مرجع لمن يهمه الامر لدي سؤال للاخ solo.net :D

هل يمكن جعل المستخدم يحرك النص براحته يعني مثل الفوتشوب او الpaint الخاص بالويندوز
;)

انا وضعت 3 خيارات للمستخدم ليحدد مكان الكتابه اما في الاعلى او في المنتصف او في الاسفل :rolleyes:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

 

 

نعرف المتغيرين(بارميترات الطريقة g.DrawString    (ْX,Y) ] داخل الفورم

 

نحصل على موقع نقر الماوس على Picturebox 1  فى الحدث MouseClick   من خلال e.x و e.y

 

يصبح الكود كالتالي

Imports System.Drawing.ImagingImports System.DrawingPublic Class Form1    Private x As Integer = 0    Private y As Integer = 0    Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click        Dim img As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(img)        'نعرف الكائن ColorDialog        Dim CD As New ColorDialog        'هنا اعطيته اللون الافتراضى الابيض كون الصوره سوداء ،،، اختار اللون اللى يعجبك        CD.Color = Drawing.Color.White        'نعرض الاداه للمتخدم ليختار اللو اللى يبيه        CD.ShowDialog()        'ننشى فرشاه ونعطيها اللون المختار من الاداه ColorDialog        Dim Brush As SolidBrush = New SolidBrush(CD.Color)        'نمررها(الفرشاه) لكان الجرافيك باللون المختار        g.DrawString("WWW.ARABTAEM200-FORUM>COM", New Font("Arial", 10), Brush, x, y)        PictureBox1.Image = img        With SFD            .Filter = "Image Files | *.jpeg"            .ShowDialog()        End With    End Sub    Private Sub SFD_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SFD.FileOk        Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, SFD.FileName)        PictureBox1.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Jpeg)    End Sub    Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick        x = e.X        y = e.Y    End SubEnd Class
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

قمت باستخدام الكود ولكن بالنسبه للكتابه في المكان الذي يختاره المستخدم تنجح الكتابه في بعض المناطق من الصوره فقط

لا اعرف لماذا

لكن اعتقد لاننا قمنا بتحديد طول و عرض الصوره بطول وعرض الpictureBox

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بالنسبه للمشكله الاخيره الخطء كان مني في الكود والحمدلله تم حل المشكله :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .