[Mtaktak]

السلام عليكم
سؤالي :

ليش ما يقبل معي حفظ الصورة

رغم اني عملت الكود هذا
يعطيني السبب هذا        Value of type 'Byte()' cannot be converted to 'Byte'

كود :

       Try
               Dim Byteimage() As Byte
               Dim bmpImage As New Bitmap(picDic.Image)
               Dim ms As New MemoryStream()
               picDic.Image.Save(ms, picDic.Image.RawFormat)
               Byteimage = ms.ToArray()
           
               Save_Studant(Me.cmbID.Text, Me.cmbDicName.Text, Me.txtDicNo.Text, Me.DTPIssu.Value, Me.DTPExp.Value, Byteimage)
           Catch ex As Exception
               MsgBox(ex.Message)
           End Try

[اسامه الهرماوي]

السلام عليكم...
أولا:بدل اسم الاداة نكتب مكانها ArrImage
ثانيا: كلمة "بطاقة" يتم وضع مكانها اسم picturebox المراد الحفظ منه.

كود :

Dim ArrImage() As Byte
           Dim NmImage As String
           Dim Ms As New IO.MemoryStream
           If Not IsNothing(بطاقة.Image) Then
               بطاقة.Image.Save(Ms, بطاقة.Image.RawFormat)
               ArrImage = Ms.GetBuffer
               NmImage = "?"
           Else
               ArrImage = Nothing
               NmImage = "NULL"
           End If