دخول

**e-coder**

السلام عليكم

بعد الصلاة على سيدنا محمد

انا معي كود لاظهار اللون في

PictureBox

ولكن كل مااريدة هو تحميل صورة من الكمبيوتر بصغية

jpg

بدلا من تحميل لون معين

واظهار هذه الصورة في

PictureBox

الكود المراد تعديلة

PHP كود :

 Private Function DrawFilledRectangle(ByVal x As Integer, ByVal y As Integer, ByVal z As Color) As Bitmap
        Dim image As New Bitmap(x, y)
        Dim brush As Brush = New SolidBrush(z)
        Using graphics As Graphics = graphics.FromImage(image)
            Dim rect As New Rectangle(0, 0, x, y)
            graphics.FillRectangle(brush, rect)
        End Using
        Return image
    End Function 

PHP كود :

Me.ColorDialog1.ShowDialog()
            Dim z As Color = Me.ColorDialog1.Color
            Me.eu = Me.DrawFilledRectangle(72, 17, z)
            Me.PictureBox2.Image = Me.eu.Clone(New Rectangle(0, 0, Me.eu.Width, Me.eu.Height), PixelFormat.Undefined)
            Dim stream As New MemoryStream
            Me.eu.Save(stream, ImageFormat.Jpeg)
            Me.ximg = stream.ToArray
            stream.Dispose()
            Me.colorx = ColorTranslator.ToHtml(Color.FromArgb(z.ToArgb)) 

لقد حاولت تعديل بعض الاكواد ولكن كانت نتيجة في بعض الاخطاء واليكم

صورة الاخطاء + تحميل مشروع بسيط

**محمود صالح** · 02-02-18, 07:10 PM

اتفضل اخي

PHP كود :

Dim ofd As New OpenFileDialog
        ofd.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(ofd.FileName)
        End If 

**e-coder**

اخي اعرف هذا الكود ولكن اريد وضع صورة في كود ارسال كالتالي

PHP كود :

chaptemad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' type='groupchat' to='", room1.Text, "@conference.s.chatp.net'><body /><c xmlns='u:x:room_image'><url>" + imagec + "</url></c></message>"})) 

ماذا اوضع هنا
Me.imagec =

**محمود صالح** · 02-02-18, 08:28 PM

بصراحة انا لم افعل قبل كده ما تريد فعله ولكن على عموميات فهمي
لو ماجتش معاك بالخاصية المباشرة
PictureBox1.Image او مسار الصورة (ofd.FileName)

ممكن تحولها لبايت وتخزنها ومن ثم تجلبها الى ما تريد هكذا بعد استخدام الكود السابق وجلب الصورة في
قم بتحويلها وتخزينها بـــ

PHP كود :

Dim MS As New MemoryStream
        PictureBox1.Image.Save(MS, PictureBox1.Image.RawFormat)
        Dim bytimage() As Byte = MS.ToArray 

لاستدعائها في الكود اكتب

PHP كود :

Image.FromStream(MS) 

**e-coder** · 02-02-18, 08:36 PM

يوجد اخطاء

**e-coder** · 03-02-18, 09:14 AM

اخواني حد يساعدني

**e-coder**

انا اجتهدت من نفسي وعملت الكود هذا ولكن الصورة بتطلع فارغة في الشات

كود :

 Dim Stream As MemoryStream

    Dim Buffer As Byte()

    Dim ImageString As String

  Private Sub ButtonX7_Click(sender As Object, e As EventArgs) Handles ButtonX7.Click

        Dim ofd As New OpenFileDialog

        ofd.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"

        If ofd.ShowDialog = DialogResult.OK Then

            If ofd.FileName <> String.Empty Then

                Me.PictureBox1.Image = Bitmap.FromFile(ofd.FileName)

                Stream = New MemoryStream()

                Me.PictureBox1.Image.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)

                Buffer = Stream.GetBuffer()

                Stream.Close()

                ImageString = System.Convert.ToBase64String(Buffer)

            End If

        End If

    End Sub

اريد استخدام الصورة المحملة في هذا الكود

كود :

chaptemad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' type='groupchat' to='", room1.Text, "@conference.s.chatp.net'><body /><c xmlns='u:x:room_image'><url>" + ImageString + "</url></c></message>"}))

ولكن ترسل صورة فارغة الي شات

وليس الصورة المحملة من الكمبيوتر الخاص بي

مالحل؟

**محمود صالح** · 03-02-18, 04:16 PM

اخي ارجع للكود السابق واعمل كما في الصورة

التقاط4141.JPG الحجم : 54.88 ك ب 03-02-18, 04:14 PM

اولا هتخلي المتغير ده عام على مستوى الفورم Dim MS As New MemoryStream
هتحذف السطرين دول
تمام
الكود

PHP كود :

chaptemad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' type='groupchat' to='", room1.Text, "@conference.s.chatp.net'><body /><c xmlns='u:x:room_image'><url>" + Image.FromStream(MS) + "</url></c></message>"})) 

**e-coder** · 03-02-18, 11:58 PM

خطأ اخي

تفضل

**محمود صالح**

المتغير خليه عام في اول الكلاس
الخطا ده لانك واضع المتغير داخل button فهو مش قريه

تفحص المثال ده

لتعرف ان المشكلة مش في الكود

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] مساعدة تعديل على الكود	ZEEN4ZEEN	2	219	08-10-25, 02:20 PM آخر رد: salamandal
	تعديل كود تحديث البيانات	مصمم هاوي	1	790	26-04-25, 06:07 PM آخر رد: مصمم هاوي
	تعديل على استدعاء الدرجات حسب الاختيار	مصمم هاوي	11	1,019	15-04-25, 06:16 PM آخر رد: princelovelorn
	ارجو تعديل الكود بواستطة الاجراء المخزن	new_programer	3	684	03-04-25, 02:44 PM آخر رد: princelovelorn
	تعديل مسار مكان حفظ النسخة الاحتياطية	مصمم هاوي	6	830	02-03-25, 01:06 PM آخر رد: atefkhalf2004
	محتاج تعديل على كود الحذف	new_programer	2	658	17-02-25, 06:50 PM آخر رد: new_programer
	ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال	new_programer	0	626	05-02-25, 01:51 AM آخر رد: new_programer
	طلب تعديل كود جلب اسم الملف ومساره	مصمم هاوي	4	551	25-01-25, 12:45 AM آخر رد: مصمم هاوي
	تعديل كود الحذف	مصمم هاوي	2	496	10-01-25, 03:03 PM آخر رد: عبد العزيز البسكري
	تعديل حجم ورق الطابعة برمجيا	kmar12	1	357	21-12-24, 02:36 PM آخر رد: aljzazy