[فاتن]

كما هو موضح بالعنوان بان لدي مشكلة وهي اريد عمل تطبيق ليقوم المستخدم بصنع الهيدر المناسب من خلال الكتابة على اداة
PictureBox وبعدها يتم الحفظ على شكل صورة على الجهاز

ارجو من ذوي الخبرة ان يقومو بمساعدتي


# وهل يمكن ان استعرض شعار للهيدر مثل شعار الشركة او logo ؟؟؟؟


[TABLE="class: grid, width: 500, align: center"]
[TR]
[TD]صورة توضيحية [/TD]
[/TR]
[/TABLE]

[TABLE="class: outer_border, width: 500, align: center"]
[TR]
[TD] [/TD]
[/TR]
[/TABLE]



وشاكرة لكم جهودكم

[الميسري]

لم افهم ؟؟؟؟؟؟؟؟؟!!!

[Sajad]

السلام عليكم اختي العزيزة

يمكن ذلك ببساطة كل ماعليك 3 textbox وpicture box واحد في الForm وبعد انتهاء الكتابة اضغطي على الprintscreen الموجدود في الkeyboard ومن ثم past على الpaint واحفظي الناتج كصورة

هذا فكرة مبسطة لعمل ذلك والله اعلم

[فاتن]

sajad كتب :السلام عليكم اختي العزيزة

يمكن ذلك ببساطة كل ماعليك 3 textbox وpicture box واحد في الForm وبعد انتهاء الكتابة اضغطي على الprintscreen الموجدود في الkeyboard ومن ثم past على الpaint واحفظي الناتج كصورة

هذا فكرة مبسطة لعمل ذلك والله اعلم

ممممممم مع احترامي الفكرة ما هي منطقية لان مش كل المستخدمين بعرفو لهاي الطريقة
ولو فكرت بهاي الطريقة كان االحسن لو اخلي المستخدم يستعمل الفوتو شوب :o

اريد حل برمجي وسهل للمستخدم

[Osama_Ghareeb]

ضعي كل الأدوات التي ستظهر في الصورة في Panel واحد

ثم إستخدمي الأمر التالي :

كود :

Dim Img As New Bitmap([color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height)
        Dim Save As New SaveFileDialog
        Save.Filter = "PNG Image|*.png"
        [color=#ff0000]Panel1[/color].DrawToBitmap(Img, New Rectangle(0, 0, [color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height))
        If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
            Img.Save(Save.FileName, Imaging.ImageFormat.Png)
        End If

بالتوفيق

[فاتن]

اريد ان يصبح الناتج كما هو الحال في الجزء العلوي من الصورة السابقة

[Sajad]

اختي انا اعرف انها ليست بمنطقية لكني قلت انك ربما تستفيدين منها وتطورينها

الحل الثاني باستخدام الGDI+ وذلك برسم نص على الPictureBox ورسم الlogo ايضا على الpicturebox مع تحديد طبعا مواقع كل واحدة منها ثم حفظ الناتج كصورة

بالتوفيق

طبعا حل الاخ اسامة غريب اعتبره الحل الامثل

[فاتن]

Osama_Ghareeb كتب :ضعي كل الأدوات التي ستظهر في الصورة في Panel واحد

ثم إستخدمي الأمر التالي :

كود :

Dim Img As New Bitmap([color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height)
        Dim Save As New SaveFileDialog
        Save.Filter = "PNG Image|*.png"
        [color=#ff0000]Panel1[/color].DrawToBitmap(Img, New Rectangle(0, 0, [color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height))
        If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
            Img.Save(Save.FileName, Imaging.ImageFormat.Png)
        End If

بالتوفيق

شكرا تم تجربة الكود لكن لا تظهر النصوص التي بداخد اداة richtext



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

PHP كود :

Public Class Form1
    Dim Graph As Graphics
    Dim Drawbitmap As Bitmap
    Dim Brush As New Drawing.SolidBrush(Color.Black)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dlg As New FontDialog
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.Font = dlg.Font
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dlg As New ColorDialog
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            Brush.Color = dlg.Color
            RichTextBox1.ForeColor = dlg.Color
        End If
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Drawbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Graph = Graphics.FromImage(Drawbitmap)
        PictureBox1.Image = Drawbitmap
        Graph.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        Graph.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brush, PictureBox1.Location)

    End Sub
End Class




'You can add save code, if ya want the codes for save, here it is:

'    Dim dlg As New SaveFileDialog
'dlg.Filter = "Bitmap|*.bmp"
'If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
'PictureBox1.Image.Save(dlg.FileName)
'End If 


[فاتن]

ارجوكم اريد حل منطقي وشكرا لكم جميعاً

[Osama_Ghareeb]

تفضلي المثال بالمرفقات