+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف نستخدم هذه الدالة (/showthread.php?tid=10404)
كيف نستخدم هذه الدالة - سعود - 17-10-14
كود :
Private Function GetStreamAsByteArray(ByVal stream As System.IO.Stream) As Byte()
Dim streamLength As Integer = Convert.ToInt32(stream.Length)
Dim fileData As Byte() = New Byte(streamLength) {}
' Read the file into a byte array
stream.Read(fileData, 0, streamLength)
stream.Close()
Return fileData
End Functionاو كيف اقرا البايت الخاص بناتج هذا الكود
كود :
Private Function gficon(ByVal fn As FileInfo) As Bitmap
Return Drawing.Icon.ExtractAssociatedIcon(fn.FullName).ToBitmap()
End FunctionRE: كيف نستخدم هذه الدالة - سعود - 17-10-14
لقد عرفت والفكرة هنا
http://vb4arb.com/vb/Thread-%D9%85%D8%B4%D8%B1%D9%88%D8%B9-%D8%AD%D9%88%D9%84-%D8%AD%D9%81%D8%B8-%D8%A7%D9%8A-%D8%B4%D9%8A%D8%A1-%D8%A3%D9%83%D8%B3%D8%B3-2010-%D9%88-%D9%81%D9%8A%D8%AC%D9%88%D8%A7%D9%84-%D8%A8%D9%8A%D8%B3%D9%83-2013