منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كيف عمل Save لى اخير شيئ تم التعليم عليه ؟

اخى الكريم
لقد لاحظت ان لك اكثر من مشاركه ولم يرد عليك احد
إعلم اخى الكريم ان اعضاء المنتدى لا يتأخرون على اى احد فى المساعده
ولكن دعنى اخمن لك سبب عدم الرد عليك
هناك اعضاء وانا منهم لايردون على الاسئله المختصره التى لا توضح بالبضبط المراد من السؤال (وهذا فى كل اسئلتك)
بمعنى (انت تريد حفظ اخر شيء تم التعديل عليه فى listbox) اجابة سؤالك:
ListBox1.SelectedItem
ولكن اين ستحفظه؟ فى قاعدة بيانات؟ ام تحفظه لتجرى عليه عمليه اخرى او.....او...
ايضاّ سؤالك غير مدعم بمثال او كود ليتم التعديل عليه (وهذا يسهل على من يريد مساعدتك... واسرع فى الوصول الى الحل)
ارجو انت تتقبل ما قلته بصدر رحب , وان تشرح ماتريد بإستفاضه حتى تجد الاجابه على ماتريد فى اسرع وقت.
تقبل تحياتى
اخيك ابراهيم

اين الادارة يا مديرين المنتدى :d
اريد ان اشكر ابورائد ولا اجد زر الشكر او الاعجاب وهذا فى اكثر من مشاركه

learning.net كتب :اخى الكريم
لقد لاحظت ان لك اكثر من مشاركه ولم يرد عليك احد
إعلم اخى الكريم ان اعضاء المنتدى لا يتأخرون على اى احد فى المساعده
ولكن دعنى اخمن لك سبب عدم الرد عليك
هناك اعضاء وانا منهم لايردون على الاسئله المختصره التى لا توضح بالبضبط المراد من السؤال (وهذا فى كل اسئلتك)
بمعنى (انت تريد حفظ اخر شيء تم التعديل عليه فى listbox) اجابة سؤالك:
ListBox1.SelectedItem
ولكن اين ستحفظه؟ فى قاعدة بيانات؟ ام تحفظه لتجرى عليه عمليه اخرى او.....او...
ايضاّ سؤالك غير مدعم بمثال او كود ليتم التعديل عليه (وهذا يسهل على من يريد مساعدتك... واسرع فى الوصول الى الحل)
ارجو انت تتقبل ما قلته بصدر رحب , وان تشرح ماتريد بإستفاضه حتى تجد الاجابه على ماتريد فى اسرع وقت.
تقبل تحياتى
اخيك ابراهيم

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

مرحبا أخي العزيز محمد

[COLOR="#2F4F4F"]نرجو التوضيح والكل مستعد للمساعدة

أخوك أبورائد

السلام عليكم ورحمة الله وبركاته[/COLOR]

اقصد اذا كونت معلم عى مثلآ 1 فى List اريض عند غلق الفروم وى فته يفضل معلى على رقم 1

يمكن عمله بى هذه الطريقه تضيف label من خصائص Label تذهب ألى ApplicationSettins ثم Text بعد كده New وى اكتب اى اسم وى اضغط موافق بعد كده دع هذا الكود فى ListBox
وى هذا فى From Load

RainBow كتب :يمكن عمله بى هذه الطريقه تضيف label من خصائص Label تذهب ألى ApplicationSettins ثم Text بعد كده New وى اكتب اى اسم وى اضغط موافق بعد كده دع هذا الكود فى ListBox

كود :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Label1.Text = ListBox1.SelectedIndex
    End Sub

وى هذا فى From Load

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.SelectedIndex = Label1.Text
    End Sub

جزاك الله خير

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته


ولو كان عندك 2 من ListBox حيكون كالتالي (غيرت "Me.ListBox1.SelectedIndex" في الرد السابق إلى "SelectedIndex" لأنه أفضل)

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.SelectedIndex = GetSetting(Application.ProductName, Me.ListBox1.Name, "SelectedIndex", Me.ListBox1.SelectedIndex)
        ListBox2.SelectedIndex = GetSetting(Application.ProductName, Me.ListBox2.Name, "SelectedIndex", Me.ListBox2.SelectedIndex)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, Me.ListBox1.Name, "SelectedIndex", Me.ListBox1.SelectedIndex)
        SaveSetting(Application.ProductName, Me.ListBox2.Name, "SelectedIndex", Me.ListBox2.SelectedIndex)
    End Sub 


السلام عليكم ورحمة الله وبركاته

جزاك الله خير