SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: galkadriel en Jueves 19 de Junio de 2003, 12:10

Título: Re: borrar desde el teclado
Publicado por: galkadriel en Jueves 19 de Junio de 2003, 12:10

:sorcerer:Hola a todos y gracias a quien me pueda ayudar quiero suprimir una linea seleccionada de un flexgrid pulsando la tecla supr del teclado ¿como lo puedo hacer? :think:

Título: borrar desde el teclado
Publicado por: ROBER.29 en Jueves 19 de Junio de 2003, 13:59

Si no me equivoco creo que era de esta forma:

Private Sub Nombreflexgrid_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
            Borrar_Fila
    End If
End Sub

'Borra las filas seleccionadas
Function Borrar_Fila()
     Dim i As Long
     Dim j As Long
     Dim k As Long
     Dim n As Long
     Dim fila As Long

     If MsgBox("¿Está usted seguro de eliminar la linea actual?", vbQuestion + vbYesNo + vbDefaultButton2, "CM Uploader") = vbNo Then Exit Sub
   
    If Nombreflexgrid.RowSel = Nombreflexgrid.Rows - 1 And Nombreflexgrid.Rows = 2 Then
        Nombreflexgrid.Rows = Nombreflexgrid.Rows + 1
    End If
   
    fila = Nombreflexgrid.Row
    i = Nombreflexgrid.Row
    j = Nombreflexgrid.RowSel
    If i < j Then
        k = i
        i = j
        j = k
    End If
   
     
    For n = i To j Step -1
        Nombreflexgrid.RemoveItem n
    Next
End Function

Saludos,
Roberto Garcia