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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation ملفات تشغيل قاعدة البيانات Access أبو خالد الشكري 2 70 منذ 4 ساعة مضت
آخر رد: أبو خالد الشكري
  اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى حماده ممدوح البحيرى 9 288 16-05-22, 12:56 PM
آخر رد: سعود
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 657 09-04-22, 02:15 AM
آخر رد: asmarsou
  اريد صنع برنامج قراّن كريم sascoxat 10 869 04-04-22, 03:00 AM
آخر رد: sascoxat
  ربط البرنامج بتوكين هيئة الزكاة و الدخل السعودية nabil.1710 3 926 29-03-22, 02:58 PM
آخر رد: bassemM
  طريقة تثبيت البرنامج عن بعد mohmmadadli1 1 377 29-03-22, 12:36 AM
آخر رد: Taha Okla
  [VB.NET] مشكلة في تشغيل مشروع vb net 2017 على حاسوب اخر baronblack 4 546 23-03-22, 08:36 PM
آخر رد: Taha Okla
  [VB.NET] اريد مساعدة في كود التحقق من البيانات في قاعدة اكسس Safwan_Daw 2 689 22-03-22, 12:39 AM
آخر رد: Safwan_Daw
  كيفيه عمل كود لحفظ المحذوفات داخل الارشيف Saly nor 8 501 11-03-22, 11:12 PM
آخر رد: Saly nor
  السلام عليكم عندي ثلاث Button اريد عند اخفاء ال Button2 يتم ترحيل Button1 معButton3 ahmedhhh2 4 502 05-03-22, 01:18 PM
آخر رد: ahmedhhh2

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


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