منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوتي الأعزاء لقد قمت باختيار صورة اريد جعلها خلفية لــ 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

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

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

كود :

  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

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

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

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

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

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

[attachment=25149]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alshandodi

kiki

alshandodi

kiki

alshandodi

kiki

alshandodi