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

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

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

رغم اني عملت الكود هذا
يعطيني السبب هذا 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

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

Mtaktak

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