تعديل الكود - نسخة قابلة للطباعة

تعديل الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=36791)

تعديل الكود - عمور2016 - 28-10-20

اريد تعديل على الكود وهو عند الضغط على الدات قريد فيو اي عمل تشيك علامة صح يجمع كم سلكت كم صح وعند الغاء علامة الصح وحدة او اثنتين يقوم بتنقيص العدد المؤشر عليه

PHP كود :

     For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value = True Then
             Label8.Text = i  
end if 

RE: تعديل الكود - اسامه الهرماوي - 28-10-20

السلام عليكم...
تفضل:

كود :

Dim a As Integer = 0

        For i As Integer = 1 To DataGridView1.Rows.Count - 1

            If DataGridView1.Rows(i).Cells(0).Value = vbTrue Then

                a += 1

            End If

        Next

        Label1.Text = a + 1

RE: تعديل الكود - عمور2016 - 29-10-20

شكرا جزيلا اخي اسامه

هل لوتكرمت تغير الكود عند الغاء المؤشر ينقص في عدد المؤاشرين وايضا اين اضع الحدث في الكليك او التشينج تحياتي

RE: تعديل الكود - اسامه الهرماوي - 29-10-20

ممكن تحط الكود في Timer وتشغله في load الفورم, أي تغير هيظهر فوراً.

RE: تعديل الكود - asemshahen5 - 30-10-20

PHP كود :

       Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count() 

PHP كود :

   Private Sub dgvItems_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvItems.CellValueChanged
        Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count()
    End Sub 

RE: تعديل الكود - lafi - 30-10-20

(30-10-20, 12:12 AM)asemshahen5 كتب :
PHP كود :

Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count()

PHP كود :

Private Sub dgvItems_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvItems.CellValueChanged Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(0).Value) = True).Select(Function(row) CDbl(Val(row.Cells(0).Value))).Count() End Sub

ممكن تختصر كود Count
مع استخدام دالة التحويل CBool

كود :

Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Count(Function(row) CBool(row.Cells(0).Value))

أو بدون استخدام دالة التحويل

كود :

Txt_InvCount.Text = dgvItems.Rows.Cast(Of DataGridViewRow).Count(Function(row) row.Cells(0).Value)