الكود الاول كامل
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim i As Object
Dim b As System.Reflection.Assembly = System.Reflection.Assembly.LoadFrom("C:\Users\osama\Desktop\WindowsApplication1\WindowsApplication1\bin\Debug\s.dll")
i = b.CreateInstance("ClassLibrary1.Class1")
Catch ex As Exception
End Try
End Sub
هذا الكود لى استراد ملف dll
الكود الثانى يحتاج الى تعديل
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = s.dll.My.Resources.close_0
End Sub
المشكله لن ينفع استغدم اسم الداله لان الكود الاول يسترد الداله من الخارج و ليس من Reference
فه يمكن ودع اسم الداله فى اداه ليتم تشغيل الكود حاولت اضعه فى ListBox اصبح الكود كالتالى PictureBox1.Image = ListBox1.SelectedItem.My.Resources.close_0 ولاكن يعتينى Error عند الضغط على الزر فهل من طريقه؟
(12-10-13, 11:25 PM)الشاكي لله كتب : [ -> ]شوف اخي
لأستخراج اي ملف موجود في ال (Resource) وليكن الملف عبارة عن صورة
يجب ان تكون الصورة مضمنة(Embedded) في الاسمبلي
الاسمبلي إما يكون ملف dll او exe
--
الان لتجعل صورة موجودة في الرسورس مضمنة في الاسمبلي (ملف dll مثلا)
عليك ان تقوم بالتالي :-
قم بحفظ المشروع وشغله لينتج لديك ملف dll في المجلد Debug
--
خلاص الان تقدر تستخلص الصورة من ملف الdll الي عملناه من اي برنامج اخر
بواسطة الكود التالي (الحل لمشكلتك) :-
PHP كود :
Dim assamble As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile("c://ClassLibrary1.dll")
Dim resoruceStream As System.IO.Stream = assamble.GetManifestResourceStream("ClassLibrary1.Resources.moon.jpg")
Dim img As Image = Image.FromStream(resoruceStream)
Me.BackgroundImage = img
لاحظ ، قمت باستخلاص الصورة moon.jpg من الاسمبلي ClassLibrary1.dll
ثم جعلتها خلفية لبرنامجي الحالي 
--
معلومة بسيطة :- لمعرفة مسارات ملفات الريسورس ضمن الاسمبلي
قم بالكود التالي الذي سيجلب لك مصفوفة من نوع string فيها اسماء ومسارات ملفات الريسورس في الاسمبلي
PHP كود :
Dim assamble As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile("c://ClassLibrary1.dll")
Dim names As String() = assamble.GetManifestResourceNames()
MessageBox.Show(names(0)) 'سيظهر لك ClassLibrary1.Resources.moon.jpg'
جزاك الله خير اخى على الكود و الشرح لاكن لم يعمل الكود معى للاسف فا معلش لو حتعبك معايه ممكن مثال؟
(13-10-13, 01:23 AM)الشاكي لله كتب : [ -> ]إقتباس :جزاك الله خير اخى على الكود و الشرح لاكن لم يعمل الكود معى للاسف فا معلش لو حتعبك معايه ممكن مثال؟
انا الي كتبته لك هو اصلا المثال
يعني حتى لو رفقته لك مابتشوف شيئ غير عن الي كتبته
(اصلا ماقدر ارفق شي لأن المشروع حذفته)
ماهو نص الخطأ ؟؟
شكرآ هذا النص
Dim img As Image = Image.FromStream(resoruceStream)
(13-10-13, 01:24 AM)أسامة كتب : [ -> ] (13-10-13, 01:23 AM)الشاكي لله كتب : [ -> ]إقتباس :جزاك الله خير اخى على الكود و الشرح لاكن لم يعمل الكود معى للاسف فا معلش لو حتعبك معايه ممكن مثال؟
انا الي كتبته لك هو اصلا المثال
يعني حتى لو رفقته لك مابتشوف شيئ غير عن الي كتبته
(اصلا ماقدر ارفق شي لأن المشروع حذفته)
ماهو نص الخطأ ؟؟
شكرآ هذا النص
Dim img As Image = Image.FromStream(resoruceStream)
هل سويت تضمين للأسمبلي كما شرحت لك ؟
هل كتبت مسار الصورة بشكل صحيح ؟
غريب !!
ارفق لي المشروعين لو سمحت
