+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] سؤال حول اداة الليست بوكس ! (/showthread.php?tid=34845)
سؤال حول اداة الليست بوكس ! - منه - 20-05-20
السلام عليكم ورحمه الله وبركاته
دلوقتي انا عملت خاصيه mult select في الجريد فيو ترو عشان خاطر اعرف احدد اي صف انا عايزاه طيب انا عاوز كود يجمعلي كل البوزيشن بتاع اي صف انا حددته في كومبوبوكس أو ليست بوكس
RE: كود - منه - 21-05-20
مفيش يساعد ياجماعه
RE: كود - سعود - 21-05-20
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Me.DataGridView1.Rows.Count < 2 Then Exit Sub
Dim scount As Integer = 0
Dim i As Integer
For i = 0 To Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1)
scount += Me.DataGridView1.Rows(i).Cells(1).Value
Next
Label1.Text = scount
End Sub
هذا اللي فهمته من السؤال
شكلي استعجلت معذرة ...جاري اعادة النظر!
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Me.DataGridView1.Rows.Count < 2 Then Exit Sub
Dim scount As Integer = 0
Dim i As Integer
For i = 0 To Me.DataGridView1.Rows.Count - IIf(Me.DataGridView1.AllowUserToAddRows, 2, 1)
If Me.DataGridView1.Rows(i).Selected Then
scount += Me.DataGridView1.Rows(i).Cells(1).Value
End If
Next
Label1.Text = scount
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 5
Me.DataGridView1.Rows.Add("Row: " & i, Int(Rnd() * 999))
Next
End Sub