[اليوم السابع]

(25-11-19, 05:52 PM)3booody كتب : بنفس حدث الليبل

كود :

DataGridView1.Rows.Add(ListBox1.SelectedItem.ToString)

الله ينوراخي لكن معلش الداتا جريد فيو فيها عامودين انا اريد البيانات تروح الي العمود الاول

[3booody]

لم افهم اخي لان كودي تروح للعمود الاول

تريد هذا؟

كود :

DataGridView1.Rows.Add("", ListBox1.SelectedItem.ToString)

او

كود :

DataGridView1.Rows.Add(ListBox1.SelectedItem.ToString, "")

[اليوم السابع]

(25-11-19, 06:48 PM)3booody كتب : لم افهم اخي لان كودي تروح للعمود الاول

تريد هذا؟

كود :

DataGridView1.Rows.Add("", ListBox1.SelectedItem.ToString)

او

كود :

DataGridView1.Rows.Add(ListBox1.SelectedItem.ToString, "")

الله ينور والله الموضوع ده فيه حاجات كتير جدا تخص الليست بوكس علشان لو الاخوه الاعضاء حد سأل هيجدها في هذا الموضوع 
سؤال اخير معلش 
لو عندي تايمر وظر بوتن عاوز احد كود في التايمر بحيث لما يشتغل يعمل سليكت علي اللي في الليست بوكس واحد تلو الاخر وعند الوصول الي اخر سطر في الليست بوكس يرجع يعمل سليكت من اول  سطر وهكذا لحين اقاف التايمر

[3booody]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
   Dim i As Integer = 0
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If ListBox1.Items.Count > 1 Then
           If i > ListBox1.Items.Count - 1 Then
               i = 0
           End If
           ListBox1.SelectedIndex = i
           i += 1
       End If
   End Sub

[اليوم السابع]

(26-11-19, 08:14 AM)3booody كتب :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
   Dim i As Integer = 0
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If ListBox1.Items.Count > 1 Then
           If i > ListBox1.Items.Count - 1 Then
               i = 0
           End If
           ListBox1.SelectedIndex = i
           i += 1
       End If
   End Sub

الله ينور يا محترم تسلم ايدك ومعلش منين ما تكون فاضي لو سمحت ابقي ارفقلي كود في الفورم لود يعمل سيلكت ع اول حاجه في الليست بوكس فضلا وليس امرا

[3booody]

كود :

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

[اليوم السابع]

(26-11-19, 04:05 PM)3booody كتب :

كود :

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

عبقري اقسم بالله عبقري وراجل محترم و ان شاء الله يكون اخر طلب في الليست بوكس محتاج كود لما يتعمل سليكت علي اخر سطر في الليست بوكس تظهر رساله تقول تم الانتهاء

[3booody]

كود :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
           MsgBox("تم الانتهاء")
       End If
   End Sub

اعتذر الان رأيت المشاركة

[اليوم السابع]

(07-12-19, 05:20 PM)3booody كتب :

كود :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
           MsgBox("تم الانتهاء")
       End If
   End Sub

اعتذر الان رأيت المشاركة

عبقري و راجل محترم و خدوم وصدرك وسع بارك لك في عملك وصحتك واسرتك و رزقك يارب العالمين