+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في ارسال بارميتير من نوع الصورة (/showthread.php?tid=28029)
مشكلة في ارسال بارميتير من نوع الصورة - Adata - 25-12-18
السلام عليكم اريد ارسال براميتر من نوع الصورة كpictureBox للكلاس المتواجد فيه داله
(CategoriesClass.Insert(Text_Num.Text, Text_Name.Text, Text_Pri.Text, ComboBox1.SelectedValue, PictureBox3.BackgroundImage
خطأ في جملة PictureBox3.BackgroundImage
وبارك الله فيكم
RE: مشكلة في ارسال بارميتير من نوع الصورة - a.wagdi - 25-12-18
وعليكم السلام ورحمة الله
أين الدالة أخي الكريم؟
RE: مشكلة في ارسال بارميتير من نوع الصورة - Adata - 25-12-18
(Shared Sub Insert(ByVal Num As String, ByVal Name As String, ByVal price As String, ByVal Types As String, ByVal pic As PictureBox
هذة الدالة الموجودة في كلاس ولكن عند ارسال متغير Pic من نوع الصورة كيف ارسل PictureBox3.BackgroundImage
(CategoriesClass.Insert(Text_Num.Text, Text_Name.Text, Text_Pri.Text, ComboBox1.SelectedValue, PictureBox3.BackgroundImage
خطأ في PictureBox3.BackgroundImage كيف ارسلها الصورة الي دالة التي متغيرها pic
RE: مشكلة في ارسال بارميتير من نوع الصورة - a.wagdi - 25-12-18
طلبت منك الدالة لتعديلها بشكل أفضل، ولكن بما أنك لا تريد وضعها جرب هذه الطريقة للتعامل معها
PHP كود :
CategoriesClass.Insert(Text_Num.Text, Text_Name.Text, Text_Pri.Text, ComboBox1.SelectedValue, PictureBox3)
RE: مشكلة في ارسال بارميتير من نوع الصورة - Adata - 25-12-18
لا ياأخي هذة كل دالة
(Shared Sub Insert(ByVal Num As String, ByVal Name As String, ByVal price As String, ByVal Types As String, ByVal pic As PictureBox)
Dim cmd As New SqlCommand("INSERT INTO Categories (Num,Name,price,Types,pic) VALUES(@Num,@Name,@price,@Types,@pic
( cmd.Parameters.AddWithValue("@Num", Num
(cmd.Parameters.AddWithValue("@Name", Name
(cmd.Parameters.AddWithValue("@price", pric
( cmd.Parameters.AddWithValue("@Types", Types
{}=Dim imageData() As Byte
Dim ms As New IO.MemoryStream
(BackgroundImage.Save(ms, pic.BackgroundImage.RawFormat
imageData = ms.GetBuffer
( cmd.Parameters.AddWithValue("@pic", imageData
(ExecuteCommand(cmd
End Sub
واعتذر لم اقصد والله
وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية
RE: مشكلة في ارسال بارميتير من نوع الصورة - a.wagdi - 25-12-18
(25-12-18, 02:09 PM)Adata كتب : لا ياأخي هذة كل دالة
(Shared Sub Insert(ByVal Num As String, ByVal Name As String, ByVal price As String, ByVal Types As String, ByVal pic As PictureBox)
Dim cmd As New SqlCommand("INSERT INTO Categories (Num,Name,price,Types,pic) VALUES(@Num,@Name,@price,@Types,@pic
( cmd.Parameters.AddWithValue("@Num", Num
(cmd.Parameters.AddWithValue("@Name", Name
(cmd.Parameters.AddWithValue("@price", pric
( cmd.Parameters.AddWithValue("@Types", Types
{}=Dim imageData() As Byte
Dim ms As New IO.MemoryStream
(BackgroundImage.Save(ms, pic.BackgroundImage.RawFormat
imageData = ms.GetBuffer
( cmd.Parameters.AddWithValue("@pic", imageData
(ExecuteCommand(cmd
End Sub
واعتذر لم اقصد والله
وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية
وفيك بارك أخي الكريم