Visual Basic - borrar con el teclado

Life is soft - evento anual de software empresarial
 
Vista:

borrar con el teclado

Publicado por sssandra (11 intervenciones) el 19/06/2003 12:38:59
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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:borrar con el teclado

Publicado por Eric Martinez (59 intervenciones) el 19/06/2003 16:25:53
Amiga, la tecla Sup es la numero 46 y seria haci

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
if keycode=46 then
la idea es ke al seleccionar la fila con el mouse captures en ke fila hiciste el click kreo ke seria algo de MSFlexGrid1.textmatrix(.row,.col)
y simplemente al presionar la tecla mandes a borrar dicha linea
end if
end sub

si necersitas mas ayuda tratare de hacerte un codigo de ejemplo pero primero ingeniatela yo ya te di el empezar y la idea

PD no uses el keypress porke no captura este tipo de letras

un abrazo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:borrar con el teclado

Publicado por Dark MAC (199 intervenciones) el 19/06/2003 22:05:36
pues vi que el anterior que te respondio no sabe mucho vb, pero pues bueno, aqui te va la respuesta exacta

Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.Col > 1 Then
MSFlexGrid1.Text = InputBox("dame el valor de la celda:")
End If
If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End If
End Sub

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
End If
End Sub

te va a eliminar el renglon donde este el focus actual en el grid
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar