تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
صنع رأس للصفحة (هيدر)
#1

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

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]



وشاكرة لكم جهودكم
الرد }}}}
تم الشكر بواسطة:
#2
لم افهم ؟؟؟؟؟؟؟؟؟!!!
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم اختي العزيزة

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

هذا فكرة مبسطة لعمل ذلك والله اعلم
الرد }}}}
تم الشكر بواسطة:
#4
sajad كتب :السلام عليكم اختي العزيزة

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

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

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

اريد حل برمجي وسهل للمستخدم
الرد }}}}
تم الشكر بواسطة:
#5
ضعي كل الأدوات التي ستظهر في الصورة في 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

بالتوفيق
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#6


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


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

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

بالتوفيق

طبعا حل الاخ اسامة غريب اعتبره الحل الامثلSmile
الرد }}}}
تم الشكر بواسطة:
#8
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.ObjectByVal e As System.EventArgsHandles MyBase.Load

    End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles RichTextBox1.TextChanged
        Drawbitmap 
= New Bitmap(PictureBox1.WidthPictureBox1.Height)
        
Graph Graphics.FromImage(Drawbitmap)
        
PictureBox1.Image Drawbitmap
        Graph
.SmoothingMode Drawing2D.SmoothingMode.HighQuality
        Graph
.DrawString(RichTextBox1.TextRichTextBox1.FontBrushPictureBox1.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 
الرد }}}}
تم الشكر بواسطة:
#9
ارجوكم اريد حل منطقي وشكرا لكم جميعاً
الرد }}}}
تم الشكر بواسطة:
#10
تفضلي المثال بالمرفقات


الملفات المرفقة
.rar   Header.rar (الحجم : 66.05 ك ب / التحميلات : 73)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف نطبق عملية حفظ باسم للصفحة سعود 8 1,199 27-10-13, 02:52 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم