تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج تغيير خلفيه سطح المكتب
#11
'اعتذر اخي عن الغياب كان بسبب ظرف
'ضع اداة 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
الرد }}}
تم الشكر بواسطة: @@أبورائد@@ , sooriaty03
#12
بس هي ليه بتظهر بالمسار بتعها؟؟ انا عاوز الصوره بس

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

يعمل معي بدون أي مشكلة
الرد }}}
تم الشكر بواسطة: @@أبورائد@@
#14
طيب معلش و مشكله المسار بتاع الصوره اللي بيظهر؟؟
الرد }}}
تم الشكر بواسطة:
#15
غير هذا الكود
كود :
ListView1.Items.Add(open.FileName).ImageIndex = n
الى
كود :
ListView1.Items.Add("").ImageIndex = n
الرد }}}
تم الشكر بواسطة: nin9e , @@أبورائد@@
#16
بص اخي انا عامل مشروع من خصيت المشروع انك ممكن تعدل علي خلفيه سطح المكتب و الصوره المرفقه دي تشرح اكتر كلامي من combobox لل timer بحيث اختر المده المناسبه لتغيير الصوره و العرض بتهعا و ال combobox للمسارات الصور الخاصه بالبرنامج و ازاي لمي اضيف تنزل في ال list view مع الجروب بتعها و ازاي لمي اقف علي الصوره يجبلي كل بياناتها بشكل منظم انا في حاجات عملتها بس الباقي في حجات عاوز مساعده فيها
الرد }}}
تم الشكر بواسطة:
#17
السلام عليكم
وينك يا اخ aboooody انا منتظر ردك كما وعدتني؟؟؟
الرد }}}
تم الشكر بواسطة:
#18
السلام عليكم هل لي من مساعده من احد و الصوره المرفقه من قبل توضح طلبي شكرا
الرد }}}
تم الشكر بواسطة:
#19
Big Grin 
السلام عليكم ورحمة الله وبركاته

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




الملفات المرفقة صورة/صور
   

.rar   WindowsApplication2.rar (الحجم : 73.42 ك ب / التحميلات : 98)
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير المسار الي مسار البرنامج في تقرير ميكروسوفت atefkhalf2004 2 107 02-04-24, 05:05 PM
آخر رد: atefkhalf2004
  تغيير على كود الحفظ محمد خيري 6 233 28-03-24, 04:20 PM
آخر رد: محمد خيري
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 656 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  تغيير اسم حقل او تغيير نوع البيان atefkhalf2004 5 304 31-01-24, 04:09 PM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 289 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 381 13-01-24, 04:22 AM
آخر رد: dr.programming
  برنامج لحفظ اكوادي samsunggears 2 401 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 366 08-11-23, 08:16 AM
آخر رد: justforit
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 967 11-10-23, 10:35 PM
آخر رد: aljzazy
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,883 27-09-23, 10:05 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم