تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في ارسال بارميتير من نوع الصورة
#1
السلام عليكم اريد ارسال براميتر من نوع الصورة كpictureBox للكلاس المتواجد فيه داله 
 (CategoriesClass.Insert(Text_Num.Text, Text_Name.Text, Text_Pri.Text, ComboBox1.SelectedValue, PictureBox3.BackgroundImage
خطأ في جملة  PictureBox3.BackgroundImage
وبارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله

أين الدالة أخي الكريم؟
الرد }}}
تم الشكر بواسطة:
#3
(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
الرد }}}
تم الشكر بواسطة:
#4
طلبت منك الدالة لتعديلها بشكل أفضل، ولكن بما أنك لا تريد وضعها جرب هذه الطريقة للتعامل معها
PHP كود :
CategoriesClass.Insert(Text_Num.TextText_Name.TextText_Pri.TextComboBox1.SelectedValuePictureBox3
الرد }}}
تم الشكر بواسطة:
#5
لا ياأخي هذة كل دالة 
(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

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

وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية
الرد }}}
تم الشكر بواسطة: a.wagdi
#6
(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

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

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


وفيك بارك أخي الكريم
الرد }}}
تم الشكر بواسطة:



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


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