[alshandodi]

السلام عليكم اخوتي الأعزاء لقد قمت باختيار صورة اريد جعلها خلفية لــ MdiParint ولكن دون جدوى وهذا الكود المستخدم والصورة لا تظهر ابدا من الرغم اني جعلتها في بيتشر بوكس وتظهر 

كود :

     Me.BackgroundImage = GetImage2("Loging")
       Dim ctl As Control
       Dim ctlMDI As MdiClient
       For Each ctl In Me.Controls
           Try
               ctlMDI = CType(ctl, MdiClient)
           Catch exc As InvalidCastException

           End Try
       Next

[kiki]

وعليكم السلام ورحمة الله وبركاته
تخيل لو ردى عبارة عن فقط التالى
؟؟؟؟؟؟؟؟؟؟
GetImage2("Loging")

اين كود الفنكشن الخاص بـ GetImage2
واذا متطلب مسار صورة فهل ما تره من كلمة Loging
هو كا مسار الصورة المطلوب استخدامها ؟؟

[alshandodi]

كود :

  Public Function GetImage2(path As String) As Image
       Dim bmp As Image
       Dim fs As New IO.FileStream("Data\" & path & ".jpg", IO.FileMode.Open, IO.FileAccess.Read)
       bmp = Image.FromStream(fs)
       fs.Close()
       fs = Nothing
       Return bmp
   End Function

[kiki]

قم بحذف الـ Function
واستبدل هذا السطر
Me.BackgroundImage = GetImage2("Loging")
ليصبح
Me.BackgroundImage = System.Drawing.Image.FromFile("Data\Loging.jpg")

[alshandodi]

شكرا جزيلا اخي لقد اتعبتك معي ولكن لم ينجح لا اعلم ماهي المشكله
اتمني ان تجد الحل أو من الاخوه الكرام والسموحه والعذر منك

[kiki]

قد يكون الامر بسبب اسم ومسار الصورة غير صحيح
فقط حاول كا تجربة وضع الصورة وليكن فى دريف D
واجعل المسار بهذا الشكل
d:/123.png
كمثال واستخرج البرنامج واذهب وافتح البرنامج من المجلد كا برنامج عادي وليس من المشروع
لاتمام اختبار هل سيعرض الصورة ام لا

[alshandodi]

اشكرك جزيل الشكر اخي kiki على دعمك وتواجدك معاي واشكر جميع الأخوه فكانت المشكله ليس في مكان الصوره المشكله في اعداد لم يكن متوقع 
والفنكشن نجح لان في حاله اردت حذف الصوره يمكنني ذلك

يجب أن يكون احدهما مفعل والأخر لا هههههه