تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال حول اداة الليست بوكس !
#3
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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.AllowUserToAddRows21)
 
           scount += Me.DataGridView1.Rows(i).Cells(1).Value
        Next
        Label1
.Text scount
    End Sub 
هذا اللي فهمته من السؤال

شكلي استعجلت معذرة ...جاري اعادة النظر!




PHP كود :
 Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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.AllowUserToAddRows21)
 
           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.ObjectAs System.EventArgsHandles MyBase.Load
        Dim i 
As Integer
        For i 
0 To 5
            Me
.DataGridView1.Rows.Add("Row: " iInt(Rnd() * 999))
 
       Next
    End Sub 
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
سؤال حول اداة الليست بوكس ! - بواسطة منه - 20-05-20, 12:01 AM
RE: كود - بواسطة منه - 21-05-20, 03:17 PM
RE: كود - بواسطة سعود - 21-05-20, 03:42 PM


التنقل السريع :


يقوم بقرائة الموضوع: