تقييم الموضوع :
  • 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 27 منذ 5 ساعة مضت
آخر رد: أبو نوره
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 796 أمس, 03:40 PM
آخر رد: رمضان محمد
  خطا عند فتح البرنامج عبدالرحمن المكاوي 24 272 أمس, 12:51 AM
آخر رد: عبدالرحمن المكاوي
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 80 11-09-17, 06:57 PM
آخر رد: The Light Fire
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 56 09-09-17, 10:44 PM
آخر رد: aliomar333
  [سؤال] كيف اجعل البرنامج لا يفتح مدونتى الا مرة واحدة فى اليوم ابو روضة 4 201 07-09-17, 10:19 AM
آخر رد: ابو روضة
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 117 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 80 27-08-17, 12:01 PM
آخر رد: khodor1985
  استفسار حول اظهار البرنامج زيد زينوبي 11 392 26-08-17, 04:49 PM
آخر رد: زيد زينوبي
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 3 323 26-08-17, 03:55 PM
آخر رد: حسن ايت حدو

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


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