ممكن كود لتغيير خلفية سطح المكتب

VS2005 - Setting Windows Desktop Wallpaper

----------------------------------------------------------------------------------------------------

))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((

--------------------------

If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End if

#28 يونيو 2006 في 17:01

mOrE

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#38 يونيو 2006 في 17:07

شكرا

من مواضيعي :

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

----------------------------------------------------------------------------------------------------

))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((

--------------------------

If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End if

#48 يونيو 2006 في 18:19

السلام عليكم

هنالك حل لمشكلة تنوع إمتداد الصور كمثلاً النوع jpg أو ping

شاهد المثال لمعرفة إحدى الطرق المطروحة لحل هذه المشكلة..

بالتوفيق إن شاء الله , وشكر خاص لأخينا Solo.NET على الكود المعروض...

ربما تكون هنالك مشكلة مع صور من نوع jpeg ؟؟؟؟

WallpaperSetting.rar

في المثال يتضح المقال

#58 يونيو 2006 في 18:56

شكرا اخى الغملاسى على المثال،،وحياك الله

تغيير الامتداد وحده لا يكفى ولابد من ارسال الوسيطة الثانية لاجراء الحفظ لتحديد النسق او الصيغة التى سيتم التحويل اليها

PictureBox1.Image.Save(WallPaperPath & ".bmp", Imaging.ImageFormat.Bmp)

المزيد ايضا لتحسين الاداء يمكن اسبدال امتداد الملف بهذه الطريقة System.IO.Path.ChangeExtension

PictureBox1.Image.Save(System.IO.Path.ChangeExtension(WallPaperPath, "bmp"), Imaging.ImageFormat.Bmp)

وهذا يغنينا عن الاجراء الخاص بجلب اسم الملف بدون امتداد،بحيث يتم ارسال المسار كاملا ويعالج هنا

Friend Sub SetWallpaper(ByVal WallPaper As Image, ByVal WallPaperPath As String)

		Try
			MsgBox(WallPaperPath)
			'Save Image with BMP format.

			PictureBox1.Image.Save(System.IO.Path.ChangeExtension(WallPaperPath, "bmp"), Imaging.ImageFormat.Bmp)

			'API to Replace the Desktop wall paper...
			SystemParametersInfo(SPI_SETDESKWALLPAPER, _
			0, System.IO.Path.ChangeExtension(WallPaperPath, "bmp"), SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

			Label1.Text = "تم حفظ الصورة كسطح للمكتب بنجاح"

		Catch Ex As Exception
			MsgBox(Ex.Message)
		End Try
	End Sub

بالتوفيق

تم تعديل هذه المشاركة بواسطة SOLO.NET في 8 يونيو 2006 في 18:59

VB.NET and C# Comparison

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#69 يونيو 2006 في 00:39

لم تصادفني اي مشكلة جربت bmp ول jpg من دون أي مشكلة

أخذت الكود الي عطاني يا Solo.net

ثم حولت إلى أمتداد صورة عن طريق :

 

dim a as new picturebox 

a.image = a.image.fromfile ("c:\1111.bmp")

ثم استخدمتها ولم تصادفني أي مشكلة

تم تعديل هذه المشاركة بواسطة moudar345 في 9 يونيو 2006 في 00:42

من مواضيعي :

----------------------------------------------------------------------------------------------------

))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((

--------------------------

If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End if

#79 يونيو 2006 في 01:41

السلام عليكم

احسن الله إليك حقيقة إنه يغنينا عن الإجراء لحذف الإمتداد

ولكن لا يغنينا عنك إطلاقاً

وفقك الله أخي العزيز

السلام عليكم

في المثال يتضح المقال

#89 يونيو 2006 في 03:03

اقتباس
تغيير الامتداد وحده لا يكفى ولابد من ارسال الوسيطة الثانية لاجراء الحفظ لتحديد النسق او الصيغة التى سيتم التحويل اليها

طريقة معقدة جدا جدا جدا جدا

كانت مشكلة الأمتداد تواجهني في فيجوا ل بيزك 6

لكن عندما حاولت تجربت تغير الخلفية على 2005 طلع

خطأ فوضعت الموضوع فأعطاني الأخ SOLO.NET كود

لكن يحتاج إلى صورة لا إلى مسار صورة ففكرت في الطريقة السابقة ونجحت دون

أي مشكلة (h)

وهذه البرنامج في الأسفل هو عبارة عن جزء من برنامج أقوم بصنعه ممكن رأيكم طبعا من دون الكود؟

Desktop_Manager.zip

تم تعديل هذه المشاركة بواسطة moudar345 في 9 يونيو 2006 في 03:12

من مواضيعي :

----------------------------------------------------------------------------------------------------

))))))))))))))))))))))))))))))))))(((((((((((((((((((((((((((((((((

--------------------------

If You.LoveArabTeam = True
Msgbox ("Welcome")
Else
Msgbox ("YouAreLoser")
End if

#99 يونيو 2006 في 03:59

برنامج رائع وسلسل فيه لمسة جمالية وهو ممتاز للغاية

ملاحظاتي المتواضعة علية كالتالي.

1 يجب وضع خيار هل الصورة المراد بها كخلفية تكون ملئ الشاشة أو وسط الشاشة أو مكررة.

2 يفضل وضع Folder Browse بدل Open File Dialog لجلب مجموعة من الصور..

3 يفضل جعل الـ DataView في عرض تام وليس سحبها عن طريق المزلاق Slider

بالتوفيق أخي العزيز... السلام عليكم

في المثال يتضح المقال

#109 يونيو 2006 في 07:16

الغملاسي كتب:
برنامج رائع وسلسل فيه لمسة جمالية وهو ممتاز للغاية
ملاحظاتي المتواضعة علية كالتالي.
1 يجب وضع خيار هل الصورة المراد بها كخلفية تكون ملئ الشاشة أو وسط الشاشة أو مكررة.
2 يفضل وضع Folder Browse بدل Open File Dialog لجلب مجموعة من الصور..
3 يفضل جعل الـ DataView في عرض تام وليس سحبها عن طريق المزلاق Slider
بالتوفيق أخي العزيز... السلام عليكم

التعديل الأول ممكن

التعديل الثاني سأضع Folder browser و Filedialog لأنه ربما المستخدم يريد وضع صورتين فقط من المجلد

التعديل الثالث لم استخدم Dataview بل listview هل تقصد أن أقوم بكتبير الأداة :) :) :) :) :)

من مواضيعي :