editar datagrid vb.net
Publicado por Marlen (7 intervenciones) el 04/08/2005 16:45:39
Hola,
soy nuevo en vb.net, tengo una aplicación en evb, que necesito implementar en vb.net, mi problema en este momento es que necesito poder editar sobre una datagrid (no se si es posible ) o si no simular editar sobre una de sus columnas. el evb ya tengo el codigo pero en vb.net no he encontrado las funciones correspondientes.
Private Sub GridIndicadores_EnterCell()
If GridIndicadores.Col = 2 And GridIndicadores.row <= GridIndicadores.Rows Then
'Situo el textbox sobre la celda
Text1.Left = GridIndicadores.Left + GridIndicadores.ColPos(GridIndicadores.Col) + 30 ' GridIndicadores.CellLeft
Text1.Top = GridIndicadores.Top + GridIndicadores.RowPos(GridIndicadores.row) + 30 ' Grid.CellTop
Text1.Width = GridIndicadores.ColWidth(GridIndicadores.Col)
Text1.Height = GridIndicadores.RowHeight(GridIndicadores.row)
Text1.Text = GridIndicadores.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
'Traigo el textbox al frente
Text1.ZOrder 0
Text1.Visible = True
Text1.SetFocus
End If
End Sub
Este es el codigo, espero me puedan ayudar.
gracias
soy nuevo en vb.net, tengo una aplicación en evb, que necesito implementar en vb.net, mi problema en este momento es que necesito poder editar sobre una datagrid (no se si es posible ) o si no simular editar sobre una de sus columnas. el evb ya tengo el codigo pero en vb.net no he encontrado las funciones correspondientes.
Private Sub GridIndicadores_EnterCell()
If GridIndicadores.Col = 2 And GridIndicadores.row <= GridIndicadores.Rows Then
'Situo el textbox sobre la celda
Text1.Left = GridIndicadores.Left + GridIndicadores.ColPos(GridIndicadores.Col) + 30 ' GridIndicadores.CellLeft
Text1.Top = GridIndicadores.Top + GridIndicadores.RowPos(GridIndicadores.row) + 30 ' Grid.CellTop
Text1.Width = GridIndicadores.ColWidth(GridIndicadores.Col)
Text1.Height = GridIndicadores.RowHeight(GridIndicadores.row)
Text1.Text = GridIndicadores.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
'Traigo el textbox al frente
Text1.ZOrder 0
Text1.Visible = True
Text1.SetFocus
End If
End Sub
Este es el codigo, espero me puedan ayudar.
gracias
Valora esta pregunta


0