我想求教DataGridView1里面可见行能有多少行，先求得可见行数


DataGridView1控件名称为dv1

Private Sub 数据_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.dv1.Height = Me.Height
        Me.dv1.Width = Me.Width
    End Sub

DataGridV Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.Show()
我想求教dv1里面可见行能有多少行，先求得可见行数
 Dv1.ColumnCount = 50
        Dv1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dv1.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        For i = 1 To 49

            If i <= 6 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.Chocolate
            End If
            If i > 6 And i <= 11 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.DarkKhaki
            End If
            If i > 11 And i <= 16 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.DarkCyan
            End If
            If i > 16 And i <= 22 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.DarkGreen
                Dv1.Columns(i).DefaultCellStyle.ForeColor = Color.Cyan
            End If
            If i > 22 And i <= 27 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.DarkOrange
                Dv1.Columns(i).DefaultCellStyle.ForeColor = Color.Yellow
            End If
            If i > 27 And i <= 33 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.LightYellow
            End If 
 
            If i > 33 And i <= 49 Then
                Dv1.Columns(i).DefaultCellStyle.BackColor = Color.Cyan

            End If
        Next

        Dv1.ReadOnly = True
        Dv1.Rows.Add(UBound(sjsz, 2) - 1)
        '  dv1.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)

        For i = 0 To 49

            If i = 0 Then
                Dv1.Columns(i).HeaderText = "序号"
                Dv1.Columns(i).Width = Me.Width * 0.05
            End If
            If i > 0 And i < 34 Then
                Dv1.Columns(i).HeaderText = i.ToString("00")
                Dv1.Columns(i).Width = Me.Width * 0.94 / 50
            End If
            If i >= 34 Then
                Dv1.Columns(i).HeaderText = (i - 33).ToString("00")
                Dv1.Columns(i).Width = Me.Width * 0.94 / 50
            End If
        Next
       ‘ ProgressBar1.Minimum = 0
       ’ ProgressBar1.Maximum = UBound(sjsz, 2) - 1
        For i = 0 To UBound(sjsz, 2) - 1
          ‘  ProgressBar1.Value = i
            ' dv1.Rows(i).HeaderCell.Value = (UBound(sjsz, 2) - 1 - i).ToString

            Dv1.Rows.Item(i).Cells(0).Value = sjsz(0, UBound(sjsz, 2) - 1 - i)
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 1, 2))).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 1, 2)).ToString("00")
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 3, 2))).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 3, 2)).ToString("00")
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 5, 2))).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 5, 2)).ToString("00") 
 
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 7, 2))).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 7, 2)).ToString("00")
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 9, 2))).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 9, 2)).ToString("00")
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 11, 2))).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 11, 2)).ToString("00")
            Dv1.Rows.Item(i).Cells(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 13, 2)) + 33).Value = Val(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 13, 2)).ToString("00")
            newlist.Add(CInt(Mid(sjsz(2, UBound(sjsz, 2) - 1 - i), 13, 2)) + 33)


        Next
        Dv1.Visible = True
End Sub

[解决办法]
根据datagridview1.Height和RowHeigth计算一下吧
[解决办法]

dim n as integer '可见行索引
for i as integer=0 to Dv1.Rows.Count-1
   if(not Dv1.Rows(i).Visible)
     n=i-1
     exit for
   end if
next
MessageBox.Show("可见" & (n+1) & "行");

[解决办法]
Private Sub Form1_change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
Me.Text = DataGridView1.Size.Height / 23
End Sub

就这么回事！
[解决办法]
23是网格的行高度，也就是datagridview1.rowtemplate.height