تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب تعديل كود بسيط جداً
#1
السلام عليكم

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

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

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

بدلا من تحميل لون معين 
واظهار هذه الصورة في

PictureBox

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

PHP كود :
 Private Function DrawFilledRectangle(ByVal x As IntegerByVal y As IntegerByVal z As Color) As Bitmap
        Dim image 
As New Bitmap(xy)
 
       Dim brush As Brush = New SolidBrush(z)
 
       Using graphics As Graphics graphics.FromImage(image)
 
           Dim rect As New Rectangle(00xy)
 
           graphics.FillRectangle(brushrect)
 
       End Using
        Return image
    End 
Function 
PHP كود :
Me.ColorDialog1.ShowDialog()
 
           Dim z As Color Me.ColorDialog1.Color
            Me
.eu Me.DrawFilledRectangle(7217z)
 
           Me.PictureBox2.Image Me.eu.Clone(New Rectangle(00Me.eu.WidthMe.eu.Height), PixelFormat.Undefined)
 
           Dim stream As New MemoryStream
            Me
.eu.Save(streamImageFormat.Jpeg)
 
           Me.ximg stream.ToArray
            stream
.Dispose()
 
           Me.colorx ColorTranslator.ToHtml(Color.FromArgb(z.ToArgb)) 

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


الملفات المرفقة
.rar   WindowsApplication13.rar (الحجم : 34.18 ك ب / التحميلات : 20)
الرد
تم الشكر بواسطة:
#2
اتفضل اخي
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 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#3
اخي اعرف هذا الكود ولكن اريد وضع صورة في كود ارسال كالتالي
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 =
الرد
تم الشكر بواسطة:
#4
بصراحة انا لم افعل قبل كده ما تريد فعله ولكن على عموميات فهمي 
لو ماجتش معاك بالخاصية المباشرة 
PictureBox1.Image  او مسار الصورة (ofd.FileName)

ممكن تحولها لبايت وتخزنها ومن ثم تجلبها الى ما تريد هكذا بعد استخدام الكود السابق وجلب الصورة في 
قم بتحويلها وتخزينها  بـــ
PHP كود :
Dim MS As New MemoryStream
        PictureBox1
.Image.Save(MSPictureBox1.Image.RawFormat)
 
       Dim bytimage() As Byte MS.ToArray 


لاستدعائها في الكود اكتب 
PHP كود :
Image.FromStream(MS
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#5
يوجد اخطاء
الرد
تم الشكر بواسطة:
#6
اخواني حد يساعدني
الرد
تم الشكر بواسطة:
#7
انا اجتهدت من نفسي وعملت الكود هذا ولكن الصورة بتطلع فارغة في الشات

كود :
 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>"}))




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

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

مالحل؟
الرد
تم الشكر بواسطة:
#8
اخي ارجع للكود السابق واعمل كما في الصورة

   

اولا هتخلي المتغير ده عام على مستوى الفورم 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>"})) 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#9
خطأ اخي
 تفضل

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

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

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


الملفات المرفقة
.rar   WindowsApplication11.rar (الحجم : 73.24 ك ب / التحميلات : 19)
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل الكود عمور2016 1 22 منذ 1 ساعه مضت
آخر رد: اسامه الهرماوي
  تعديل كود الجمع عمور2016 1 60 24-10-20, 01:39 PM
آخر رد: محمد كريّم
  [VB.NET] تعديل بسيط في الطباعة المباشرة فقط ReportViewer sniperjawadino 22 7,535 23-10-20, 11:37 PM
آخر رد: Samo102
  ارجو تعديل فى جملة SELECT new_programer 3 166 14-10-20, 11:50 PM
آخر رد: new_programer
  [سؤال] مساعدة في إكمال كود 3 أزرار (حذف-بحث-تعديل) HUNTER25 12 617 08-10-20, 02:20 PM
آخر رد: اسامه الهرماوي
  سؤال عاجل جداً للأهميه وهج الصحراء 1 120 04-10-20, 03:32 AM
آخر رد: kiki
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 4 238 16-09-20, 06:17 PM
آخر رد: ميدو الفنان
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 366 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 369 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 232 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud

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


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