المشاركات : 20
المواضيع 11
الإنتساب : Sep 2018
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 4 مشاركات
السلام عليكم اريد ارسال براميتر من نوع الصورة كpictureBox للكلاس المتواجد فيه داله
(CategoriesClass.Insert(Text_Num.Text, Text_Name.Text, Text_Pri.Text, ComboBox1.SelectedValue, PictureBox3.BackgroundImage
خطأ في جملة PictureBox3.BackgroundImage
وبارك الله فيكم
المشاركات : 100
المواضيع 1
الإنتساب : Dec 2018
السمعة :
7
الشكر: 88
تم شكره 117 مرات في 72 مشاركات
وعليكم السلام ورحمة الله
أين الدالة أخي الكريم؟
المشاركات : 20
المواضيع 11
الإنتساب : Sep 2018
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 4 مشاركات
(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
المشاركات : 20
المواضيع 11
الإنتساب : Sep 2018
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 4 مشاركات
25-12-18, 02:09 PM
(آخر تعديل لهذه المشاركة : 25-12-18, 02:14 PM {2} بواسطة 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
واعتذر لم اقصد والله
وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية