منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اريد ارسال براميتر من نوع الصورة كpictureBox للكلاس المتواجد فيه داله 
 (CategoriesClass.Insert(Text_Num.Text, Text_Name.Text, Text_Pri.Text, ComboBox1.SelectedValue, PictureBox3.BackgroundImage
خطأ في جملة  PictureBox3.BackgroundImage
وبارك الله فيكم

وعليكم السلام ورحمة الله

أين الدالة أخي الكريم؟

(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

طلبت منك الدالة لتعديلها بشكل أفضل، ولكن بما أنك لا تريد وضعها جرب هذه الطريقة للتعامل معها

لا ياأخي هذة كل دالة 
(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

---

واعتذر لم اقصد والله

---

وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية

(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

---

واعتذر لم اقصد والله

---

وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية

وفيك بارك أخي الكريم