Cambiar la longitud de una fila de una datagridview en vb.net

[CarmenRocio]

Hola foros como estan por favor tengo un caso que pasa que por defecto mi datagrid su maxlenght es 20 pero cuando ya voy ingresando data quiero que cambien dependiendo de mi documento si es DNI quiero que solo me permita 8 dígitos si es ruc 11 dígitos si es pasaporte u otro documento 20 dígitos y la verdad no sé cómo hacerlo.

Código PHP:

Private Sub dgvDocumento_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvDocumento.EditingControlShowing
        Dim ColumnTipoCompr As String = dgvDocumento.CurrentRow.Cells("cod_tipo_documento").Value
        If ColumnTipoCompr = "01" Then
            AddHandler e.Control.KeyPress, AddressOf fValidar_KeyPress
            'dgvDocumento.CurrentRow.Cells("num_documento").Value.
        End If
        If ColumnTipoCompr = "06" Then
            AddHandler e.Control.KeyPress, AddressOf fValidar_KeyPress
            'dgvDocumento.CurrentRow.Cells("num_documento").Value.
        End If
        'VERIFICO QUE LA COLUMNA SEA DE TEXTO  
        If TypeOf e.Control Is TextBox Then
            'INDICO LA COLUMNA QUE DESEO CAMBIAR
            If dgvDocumento.CurrentCell.ColumnIndex = 2 Then
                'PONE EN MAYÚSCULAS LA CELDA DEL GRIDVIEW  
                DirectCast(e.Control, TextBox).CharacterCasing = CharacterCasing.Upper
            End If
        End If
    End Sub
 

[CarmenRocio]

Hola foros gracias a mi amigo Aquaventus pude solucionar mi problema allí les dejo el código este lo llamo desde el EditingControlShowing

Código vb:

Private Sub Validar_Keypress8(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        Try
            Dim columna As Integer = dgvDocumento.CurrentCell.ColumnIndex
            If columna = 2 Then
                If ColumnTipoCompr.Equals("01") Then
                    'Si la longitud es 8
                    If DirectCast(sender, TextBox).Text.Length = 8 Then
                        'Habilitamos el borrar
                        If Char.IsControl(e.KeyChar) Then
                            'Permitimos borrar
                            e.Handled = False
                        Else
                            'Evitamos que se ingresen más
                            e.Handled = True
                        End If
                    Else
                        If Char.IsDigit(e.KeyChar) Then
                            e.Handled = False
                        ElseIf Char.IsControl(e.KeyChar) Then
                            e.Handled = False
                        Else
                            e.Handled = True
                        End If
                    End If
 
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "TÍTULO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub
 

[Aquaventus]

Ah mira... me dio la idea de revisar el foro y tenias publicado tu problema . Y bueno veo que publicaste la solución que te brindé. Saludos CarmenRocio.!!.