Agregar elementos de diseño por código Visual Studio 2005

[Avellaneda]

Iniciado por Arekuzu

Ahora a ver si me podrían ayudar con unas nuevas dudas en concreto:

1. Me pidieron unos botones con los que pueda navegar el DataGridView (Siguiente, Anterior, Primero, Último). Pero no encuentro ninguna propiedad del DGV que me permita moverme entre registros (algo como .MoveNext). Y también un botón que automáticamente agregue un registro en blanco para editar.

A lo más que llego es a la propiedad .CurrentRow, pero me marca que es 'Read Only' :(


2. A los controles que agregué de forma dinámica, cómo puedo controlarles eventos? Porque necesito que aparezca la información del registro (row) en el que está posicionado el usuario, en esas textboxes.


Solo me faltan esas dos cosas y lo termino.

Gracias de antemano, un saludo muy grande!!

PD: Gracias también a Fueguino me sirvió perfectamente lo de new Point(x,y) ;)

Hola Arekuzu,

1. Para navegar por el DataGridView .Net tiene un control llamado BindingNavigator, es sencillo de usar.

2. Para aplicar eventos a controles creados dinámicamente, prueba este ejemplo

Código:

Public Class Form1
    Private TxtPos As New Point(10, 50)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' creamos tres controles TextBox
        For x As Integer = 0 To 2
            Dim CuadroTexto As New TextBox
            CuadroTexto.Name = "TextBox " + x.ToString()
            CuadroTexto.Text = "Text" & x.ToString()
            CuadroTexto.Location = New Point(TxtPos.X + 10, TxtPos.Y)
            TxtPos.Y += CuadroTexto.Height + 15
            ' le agregamos el evento GotFocus
            AddHandler CuadroTexto.GotFocus, AddressOf xFocus
            ' aquí le puedes seguir agregando eventos mediante la instrucción AddHandler
            Controls.Add(CuadroTexto)
        Next x
        Me.Show()
    End Sub

    Private Sub xFocus(ByVal sender As Object, ByVal e As EventArgs)
        ' aquí puedes comparar el TextBox que tiene el foco
        Label1.Text = "El foco lo tiene " & sender.text
        ' instrucciones...
    End Sub

End Class

Saludos y suerte!