تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود لحفظ كل مافي ListView واكود تشغيل امر في البرنامج مره واحده
#1
Bug 
اريد كود تشغيل امر مره واحده فقط وكود حفظ كل ما في ListView



ارجو الأفاده ,

وشكراً Sad
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Dim theListBox As ListBox = CType(sender, ListBox)
كود :
Dim itemString As String = CType(theListBox.Items(e.Index), String)
كود :
Dim x As Integer
For x = 1 To 50
ListBox1.Items.Add("Item " & x.ToString())
Next x

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: vbnet
#3
(16-02-14, 12:40 AM)Genius Live كتب :
كود :
Dim theListBox As ListBox = CType(sender, ListBox)
كود :
Dim itemString As String = CType(theListBox.Items(e.Index), String)
كود :
Dim x As Integer
For x = 1 To 50
ListBox1.Items.Add("Item " & x.ToString())
Next x

RolleyesRolleyesRolleyes

اولا شكراً على ردك .
ثانيا انا اطل حفظ ما في ListView وليس ListBox
الرد }}}}
تم الشكر بواسطة:
#4
(16-02-14, 08:28 AM)vbnet كتب : أين تريد حفظها؟

في My Settings
الرد }}}}
تم الشكر بواسطة:
#5
حفظ ListView1.Items في My.Settings

منقول

أولاً: من القائمة Pjoject إختر خصائص المشروع ...WindowsApplication1 Properties
ثانياً: من التبويب Settings أضف عنصر جديد وسمه itms من نوع System.Collections.ArrayList بمجال User
ملاحظة: إن لم تجد System.Collections.ArrayList اختر ...Browse ثم وسع System.Collections واختر منها ArrayList
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If My.Settings.itms IsNot Nothing Then
        For Each itm As String In My.Settings.itms
            Me.ListView1.Items.Add(New ListViewItem(Split(itm, CChar(vbTab))))
        Next
    End If
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    Dim itms As New List(Of String)
    For Each itm As ListViewItem In ListView1.Items
        itms.Add(String.Join(CChar(vbTab), (From sitm As ListViewItem.ListViewSubItem In itm.SubItems Select sitm.Text).ToArray))
    Next
    My.Settings.itms = New ArrayList(itms)
    My.Settings.Save()
End Sub
الرد }}}}
تم الشكر بواسطة: amedo
#6
(16-02-14, 05:26 PM)vbnet كتب : حفظ ListView1.Items في My.Settings

منقول

أولاً: من القائمة Pjoject إختر خصائص المشروع ...WindowsApplication1 Properties
ثانياً: من التبويب Settings أضف عنصر جديد وسمه itms من نوع System.Collections.ArrayList بمجال User
ملاحظة: إن لم تجد System.Collections.ArrayList اختر ...Browse ثم وسع System.Collections واختر منها ArrayList
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If My.Settings.itms IsNot Nothing Then
        For Each itm As String In My.Settings.itms
            Me.ListView1.Items.Add(New ListViewItem(Split(itm, CChar(vbTab))))
        Next
    End If
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    Dim itms As New List(Of String)
    For Each itm As ListViewItem In ListView1.Items
        itms.Add(String.Join(CChar(vbTab), (From sitm As ListViewItem.ListViewSubItem In itm.SubItems Select sitm.Text).ToArray))
    Next
    My.Settings.itms = New ArrayList(itms)
    My.Settings.Save()
End Sub
أشكرك اخى الكود يعمل بشكل صحيح Smile
الرد }}}}
تم الشكر بواسطة: vbnet


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاضافات والتعديلات لا تظهر اثناء تشغيل البرنامج تناسيم 1 63 12-12-17, 08:53 PM
آخر رد: zinom
  [VB.NET] نا اريد مساعدة سريعة حنان المغربى 0 50 12-12-17, 04:14 PM
آخر رد: حنان المغربى
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 9 1,197 11-12-17, 01:55 PM
آخر رد: رمضان محمد
  اريد جلب هذا الرابط ابو روضة 0 34 11-12-17, 02:10 AM
آخر رد: ابو روضة
  [سؤال] كيف أعرض بيانات الداتابيس بناءًا على listview selected item Marwa1997 3 113 10-12-17, 09:18 PM
آخر رد: حريف برمجة
  إلغاء تركيز مؤشر الفأرة عند بداية تشغيل الفورم عبد العزيز البسكري 14 194 07-12-17, 09:27 PM
آخر رد: عبد العزيز البسكري
  اريد جملة شرطية متوسطة ƊЄƔƖԼ ƇƠƊЄƦ 1 44 07-12-17, 09:07 PM
آخر رد: Rabeea Qbaha
  فجئة البرنامج يطلب تغير الفريم ويرك altho8 1 41 04-12-17, 12:41 PM
آخر رد: طالب برمجة
  اريد مساعدة في هد الكود واكون ممنون ahmedbezia 2 52 03-12-17, 06:16 PM
آخر رد: ahmedbezia
  اريد طريقه لوضع شرط عند الحفظ ahmedmansour 11 268 03-12-17, 06:03 PM
آخر رد: ahmedmansour

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


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