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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

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

'اعتذر اخي عن الغياب كان بسبب ظرف
'ضع اداة ListView وغير الخاصية CheckBoxes الى True
'اضف اداة ImageList
'غير الخاصية LargeImageList الموجوده فيListView الىImageList1
واخيرآ ضع زر بوتون وضع هذا الكود
كود :
Dim n As Short = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        Using open As New OpenFileDialog
            open.Title = "Select Image"
            open.FileName = ""
            open.Filter = "Image(.jpg)|*.jpg"
            If open.ShowDialog = DialogResult.OK Then
                ImageList1.Images.Add(0, Image.FromFile(open.FileName))
                ListView1.Items.Add(open.FileName).ImageIndex = n
                n += 1
            End If
        End Using
    End Sub


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

بس هي ليه بتظهر بالمسار بتعها؟؟ انا عاوز الصوره بس
وايضاً حاجه اخري انا عملت button عشان اعمل un checked all للحجات اللي موجوده في ال listview و ده الكود
Dim myLV as ListViewItem

'iterate thru the checked items
For Each myLV in ListView1.Items

If myLV.Checked Then
ListView1.CheckedItems.Item(0).Checked = False
End If

Next
بس لمي بعمله بيقوم شايل ال checkbox من ال listview بيخلي قيمه ال checkbox - false ايه المشكله في الكود ده؟؟

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

كود :
For Each itm As ListViewItem In ListView1.Items
            itm.Checked = False
        Next

يعمل معي بدون أي مشكلة

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

طيب معلش و مشكله المسار بتاع الصوره اللي بيظهر؟؟

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

غير هذا الكود
كود :
ListView1.Items.Add(open.FileName).ImageIndex = n
الى
كود :
ListView1.Items.Add("").ImageIndex = n


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

بص اخي انا عامل مشروع من خصيت المشروع انك ممكن تعدل علي خلفيه سطح المكتب و الصوره المرفقه دي تشرح اكتر كلامي من combobox لل timer بحيث اختر المده المناسبه لتغيير الصوره و العرض بتهعا و ال combobox للمسارات الصور الخاصه بالبرنامج و ازاي لمي اضيف تنزل في ال list view مع الجروب بتعها و ازاي لمي اقف علي الصوره يجبلي كل بياناتها بشكل منظم انا في حاجات عملتها بس الباقي في حجات عاوز مساعده فيها

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

السلام عليكم
وينك يا اخ aboooody انا منتظر ردك كما وعدتني؟؟؟

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

السلام عليكم هل لي من مساعده من احد و الصوره المرفقه من قبل توضح طلبي شكرا

RE: برنامج تغيير خلفيه سطح المكتب - kslawy - 13-01-14

السلام عليكم ورحمة الله وبركاته

تم التعديل علي مشروع 3booody :




RE: برنامج تغيير خلفيه سطح المكتب - nin9e - 15-01-14

السلام عليكم
اخي مشكور كتير بس في حاجات موجهاني و عايز مساعده مثلا لما بتضعط علي browes يفتح عشان تختار صوره وتضيفه بس لو اعد اضافه اي صوره اخري بعد اختيار اول مره الصور مش بتضاف بتتشال ويجي مكانها الصور الجديده وايضا انا لمي حولت اخلي اختيار المده لتغيير الخلفيه كنت عاوزها في combo box و المستخدم يختار من ال drop down list وايضا كيفيه عمل الصوره اذا كانت اريده fill stretch fit واخيرا جلب صور من مسار بس عن طريق combobox بمجر اختيار المسار الموجود في الكومبوبوكس يظهر كل الصور اللتي في المجلد هلي لي من مساعد وشكرا