[محمد]

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 


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

جزاك الله خير