السلام عليكم و رحمة الله و بركاته
عندي مشكلة ألا و هي : عملت برنامج يفتح عدة Skins و المطلوب هو أريد أخزن آخر Skin ليتم فتحه مباشرةً عند الـForm Load فهملت البرنامج التالي ولكن لم ينجح
[Code/]
Private Sub Form_Load()
Skin1.SkinPicture = GetSetting("M", "x", "y")
Skin1.ApplyTo = skAllForms
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "M", "x", "y", Skin1.SkinPicture
End Sub
[code/]
فأرجوا الأجابة و جازاكم الله خير الجزاء.
أخوكم ميثم كمال
ممكن توضح انت بتستخدم اى اصدار من الاداة! :unsure:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
حسناً الاخ ميثم يستخدم اداة vbSkinner وهاهو الكود الصحيح
Private Sub Form_Load()
Skin1.Skin = GetSetting("M", "x", "y")
Skin1.ApplyTo = skAllForms
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "M", "x", "y", Skin1.Skin
End Sub:rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
السلام عليكم ورحمة الله و بركاته
أخي Ghost جازاك الله خيراً و بارك الله فيك و بأولادك ( بالمستقبل إن شاء الله ).
جربت البرنامج و نجح.
أخوك ميثم كمال
هذا الموضوع مغلق.