+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب تعديل كود بسيط جداً (/showthread.php?tid=23644)
الصفحات:
1
2
طلب تعديل كود بسيط جداً - e-coder - 02-02-18
السلام عليكم
بعد الصلاة على سيدنا محمد
انا معي كود لاظهار اللون في
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))
لقد حاولت تعديل بعض الاكواد ولكن كانت نتيجة في بعض الاخطاء واليكم
صورة الاخطاء + تحميل مشروع بسيط
RE: طلب تعديل كود بسيط جداً - محمود صالح - 02-02-18
اتفضل اخي
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
RE: طلب تعديل كود بسيط جداً - e-coder - 02-02-18
اخي اعرف هذا الكود ولكن اريد وضع صورة في كود ارسال كالتالي
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 =
RE: طلب تعديل كود بسيط جداً - محمود صالح - 02-02-18
بصراحة انا لم افعل قبل كده ما تريد فعله ولكن على عموميات فهمي
لو ماجتش معاك بالخاصية المباشرة
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)
RE: طلب تعديل كود بسيط جداً - e-coder - 02-02-18
يوجد اخطاء
RE: طلب تعديل كود بسيط جداً - e-coder - 03-02-18
اخواني حد يساعدني
RE: طلب تعديل كود بسيط جداً - e-coder - 03-02-18
انا اجتهدت من نفسي وعملت الكود هذا ولكن الصورة بتطلع فارغة في الشات
كود :
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>"}))ولكن ترسل صورة فارغة الي شات
وليس الصورة المحملة من الكمبيوتر الخاص بي
مالحل؟
RE: طلب تعديل كود بسيط جداً - محمود صالح - 03-02-18
اخي ارجع للكود السابق واعمل كما في الصورة
[attachment=17038]
اولا هتخلي المتغير ده عام على مستوى الفورم 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>"}))
RE: طلب تعديل كود بسيط جداً - e-coder - 03-02-18
خطأ اخي
تفضل
RE: طلب تعديل كود بسيط جداً - محمود صالح - 04-02-18
المتغير خليه عام في اول الكلاس
الخطا ده لانك واضع المتغير داخل button فهو مش قريه
تفحص المثال ده
لتعرف ان المشكلة مش في الكود