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

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

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

ممكن تصحيح كود - sofiane-phy - 06-12-19

السلام عليكم ممكن تصحولي هذا الكود من فظلكم

كود :

Private Sub Dgv1_KeyDown(sender As Object, e As KeyEventArgs) Handles Dgv1.KeyDown

        Dgv1.CurrentCell.Selected = True

        txt1.Text = Dgv1.CurrentRow.Cells(4).Value

        txt2.Text = Dgv1.CurrentRow.Cells(5).Value

        txt3.Text = Dgv1.CurrentRow.Cells(6).Value

        txt4.Text = ((Dgv1.CurrentRow.Cells(4).Value + Dgv1.CurrentRow.Cells(5).Value) + (Dgv1.CurrentRow.Cells(6).Value * 3)) / 5

    End Sub

عند النقر على السطر تظهر القيم في التكست بوكس مطابقة للسطر اما في حالة النزول الى الاسفل بالزر Dawon تظهر القيم التي قبلها لاحظ الصورة

RE: ممكن تصحيح كود - alshandodi - 06-12-19

(06-12-19, 08:10 PM)sofiane-phy كتب : السلام عليكم ممكن تصحولي هذا الكود من فظلكم

كود :

Private Sub Dgv1_KeyDown(sender As Object, e As KeyEventArgs) Handles Dgv1.KeyDown Dgv1.CurrentCell.Selected = True txt1.Text = Dgv1.CurrentRow.Cells(4).Value txt2.Text = Dgv1.CurrentRow.Cells(5).Value txt3.Text = Dgv1.CurrentRow.Cells(6).Value txt4.Text = ((Dgv1.CurrentRow.Cells(4).Value + Dgv1.CurrentRow.Cells(5).Value) + (Dgv1.CurrentRow.Cells(6).Value * 3)) / 5 End Sub

عند النقر على السطر تظهر القيم في التكست بوكس مطابقة للسطر اما في حالة النزول الى الاسفل بالزر Dawon تظهر القيم التي قبلها لاحظ الصورة

يمكنك استخدام هذا الكود في Event
SelectionChanged

كود :

Private Sub Dgv1_SelectionChanged(sender As Object, e As EventArgs) Handles Dgv1.SelectionChanged

        Try

            Dim currentrw As Integer

            currentrw = Dgv1.CurrentRow.Index

            txt1.Text = Dgv1.Item(4, currentrw).Value.ToString()

            txt2.Text = Dgv1.Item(5, currentrw).Value.ToString()

            txt3.Text = Dgv1.Item(6, currentrw).Value.ToString()

            txt4.text = (Val(txt1.text) + Val(txt2.text)) + (Val(txt3.text) * 3) / 5

        Catch ex As Exception

        End Try

    End Sub

RE: ممكن تصحيح كود - sofiane-phy - 06-12-19

ممتاز بارك الله فيك