تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 0 54 أمس, 12:22 PM
آخر رد: رمضان محمد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,998 25-05-17, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 58 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 116 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 50 19-05-17, 04:09 PM
آخر رد: e-coder
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 36 19-05-17, 12:46 PM
آخر رد: medoddd
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 120 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 190 14-05-17, 06:17 PM
آخر رد: العواد الصغير

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


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