منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
برنامج تغيير خلفيه سطح المكتب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برنامج تغيير خلفيه سطح المكتب (/showthread.php?tid=421)

الصفحات: 1 2 3

برنامج تغيير خلفيه سطح المكتب - nin9e - 06-10-13

السلام عليكم
كنت اريد برمجه برنامج لتغيير خلفيه سطح المكتب مع خصيت ال slide show و تحديد مسارات من الcombo box و الي اخره.هل من مساعد ؟؟

RE: برنامج تغيير خلفيه سطح المكتب - 3booody - 06-10-13

لتغيير الخلفية
كود :
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    Private Const SE = 20
    Private Const UP = &H1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using dlg As New OpenFileDialog
            dlg.ShowDialog()
            SystemParametersInfo(SE, 0, dlg.FileName, UP)
        End Using
    End Sub


RE: برنامج تغيير خلفيه سطح المكتب - nin9e - 06-10-13

ممكن توضيح؟؟

RE: برنامج تغيير خلفيه سطح المكتب - 3booody - 06-10-13

اكيد ممكن

كود :
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
دالة من دوال api

كود :
Private Const SE = 20
    Private Const UP = &H1
ثابتان يتم استخدامهم مع الدالة

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using dlg As New OpenFileDialog
            dlg.ShowDialog()
            SystemParametersInfo(SE, 0, dlg.FileName, UP)
        End Using
    End Sub

هذا الكود في حدث النقر للبوتون راح يفتح عندك FileDialog تختار منه مسار الصوره موفق

RE: برنامج تغيير خلفيه سطح المكتب - nin9e - 06-10-13

تمام مشكر بس انا كنت عاوز نظام ال listview و ال combobox ويكون في timer لتغيير الشاشه اوتوماتيكي هل من مساعده؟؟

RE: برنامج تغيير خلفيه سطح المكتب - nin9e - 07-10-13

وينكم يا عملاقه؟؟؟

RE: برنامج تغيير خلفيه سطح المكتب - 3booody - 07-10-13

طيب اخي بس انتظر عليا غدآ بإذن الله لان حاليآ تعبان ونعسانSad وراح اعملك مثال بإذن الله

RE: برنامج تغيير خلفيه سطح المكتب - 3booody - 07-10-13

السلام عليكم
مثل ما وعدتك اخي تفضل
صورة البرنامج


طبعآ الصورة الموجودف في الـــCheckBox تختلف عن يلي تظعها لان حجمها صغير لذلك وضعتها حسب مسار جهازي موفق

تحميل المشروع

RE: برنامج تغيير خلفيه سطح المكتب - nin9e - 07-10-13

مشكور علي المجهود الرائع بس انا اريد listview و اضيف الصور ليه لمي عملت listview و open file dialog و تمام لمي اجي اضيف الصور مش بتبقي صور بيبقي المسار بتعها بس ممكن حل؟؟

RE: برنامج تغيير خلفيه سطح المكتب - nin9e - 09-10-13

هو ليه الموقع بعد التجديد الاعضاء معدوش بيردوا علي طول ده معني كده ان انتوا مش عاوزين تساعدوا ولا ايه المشكله؟؟