الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد كود تشغيل امر مره واحده فقط وكود اخر ...

بدأه AMEDO في 13 فبراير 2014 · 8 رد · 683 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اريد كود تشغيل امر مره واحده فقط وكود حفظ كل ما في  ListView

انا لا استخدم قواعد البيانات - استخدم فقط My Settings

 

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

وشكراً :(

#2

up

−1
#3

up :(

#4

:( :(

#5

up :mellow:

#6

اين الأجابة  ,,, هل سؤالى خطأ :mellow:

#7

حفظ 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

تم تعديل هذه المشاركة بواسطة vbnetvbnet في 16 فبراير 2014 في 17:02

.

أقوال مميزة من منتدى الفريق العربي للبرمجة (قيد التحديث)

 

الأستاذ: محمد طلال بدوي كتب:

إن صحبة الناجحين تصيب بعدوى النجاح، ويا لها من عدوى جميلة، تشعرك بجو من الحماسة والمنافسة، وتبقيك مشتعلا في بحث مستمر عن المراكز الأولى.

الدكتورة: زهرة (أم عهود) كتب:

والله لا نريد من هذه الدنيا شيء إلا ان نكون اخوة متحابين في الله يجمعنا طلب العلم ومساعدة الآخرين لوجه الله تعالى.

.
#8

thank you vbnetvbnet

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#9
vbnetvbnet كتب:

 

حفظ 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

شكرا , تم الأجابة على السؤال من قبل :)

مواضيع مشابهة