منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : برنامج تغيير خلفيه سطح المكتب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
'اعتذر اخي عن الغياب كان بسبب ظرف
'ضع اداة 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
بس هي ليه بتظهر بالمسار بتعها؟؟ انا عاوز الصوره بس

وايضاً حاجه اخري انا عملت 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 ايه المشكله في الكود ده؟؟
كود :
For Each itm As ListViewItem In ListView1.Items
            itm.Checked = False
        Next

يعمل معي بدون أي مشكلة
طيب معلش و مشكله المسار بتاع الصوره اللي بيظهر؟؟
غير هذا الكود
كود :
ListView1.Items.Add(open.FileName).ImageIndex = n
الى
كود :
ListView1.Items.Add("").ImageIndex = n
بص اخي انا عامل مشروع من خصيت المشروع انك ممكن تعدل علي خلفيه سطح المكتب و الصوره المرفقه دي تشرح اكتر كلامي من combobox لل timer بحيث اختر المده المناسبه لتغيير الصوره و العرض بتهعا و ال combobox للمسارات الصور الخاصه بالبرنامج و ازاي لمي اضيف تنزل في ال list view مع الجروب بتعها و ازاي لمي اقف علي الصوره يجبلي كل بياناتها بشكل منظم انا في حاجات عملتها بس الباقي في حجات عاوز مساعده فيها
السلام عليكم
وينك يا اخ aboooody انا منتظر ردك كما وعدتني؟؟؟
السلام عليكم هل لي من مساعده من احد و الصوره المرفقه من قبل توضح طلبي شكرا
السلام عليكم ورحمة الله وبركاته

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


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