منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] Dim Byteimage() As Byte - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] Dim Byteimage() As Byte (/showthread.php?tid=32651)

Dim Byteimage() As Byte - Mtaktak - 23-12-19

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

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

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


RE: Dim Byteimage() As Byte - اسامه الهرماوي - 26-12-19

السلام عليكم...
أولا:بدل اسم الاداة نكتب مكانها 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