[جيولوجي مبتدئ]

(02-08-22, 01:28 AM)جيولوجي مبتدئ كتب :

(01-08-22, 07:16 PM)asmarsou كتب :

(01-08-22, 06:43 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته

ِأشكركم إخواني على ردكم والله يجزيكم بالخير 

بالنسبة asmarsou  حاولت أفهم وأحول الكود لكم لم أستطع 

وبالنسبة للأخ [b]aljzazy  هذا الجزء من الكود هل أضعه في button  أم في حدث كليك للداتاقريد فيو [/b]

    Dim ff() As Byte = CType(dt_pdf.Rows(DgId)(4), Byte())

           Dim FPath = Application.StartupPath & "\" & dt_pdf.Rows(DgId)(2).ToString() & dt_pdf.Rows(DgId)(3).ToString()

           Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)

           FFS.Write(ff, 0, ff.Length)

           FFS.Close()

           ' تنفيذ فتح الملف بعد انشائه بالكود السابق

           Process.Start(FPath)

ثاني حاجة بالنسبة للخلايا التي جعلتها باللون الأزرق تشير إلى ماذا ؟
أسف على كثرة الأسئلة 

لكم جزيل الشكر 

دمتم بود

و عليكم السلام و رحمة الله و بركاته
كاضافة فقط اليك بهذا الرابط لموقع لتحويل الاكواد من و الى عدة لغات برمجية .. ان لم يفدك  في تحويل اكواد الموضوع السابق فسيساعدك فيما سواه
https://www.carlosag.net/tools/codetranslator/

إن شاء الله اجرب مرة أخرى أشكرك على مجهودك 

لك جزيل الشكر 
دمت بود

للأسف لم أتوصل لحل المشكلة مقدراً مجهودكم