حفظ الصورة

السلام عليكم 

لنفترض ان لديك  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

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

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

DrawPicture.rar

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

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

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

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

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

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

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

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

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

Programing GDI+ with VB.NET

/index.php/topic/79068-%D9%85%D8%B9%D9%84%D9%88%D9%85%D8%A9programing-gdi-with-vbnet/

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

تسلم ايديك ;)

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

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

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

نعدل الكود السابق كالتالى لنمكن المستخدم من اختيار اللون باستخدام 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 ^_^

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

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

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

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

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

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

السلام عليكم

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

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

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

Imports System.Drawing.Imaging
Imports System.Drawing

Public 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 Sub
End Class

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

لا اعرف لماذا

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

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