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