crear controles

[guillebomtrasmiti]

hola compañeros, no se si alguién podrá ayudarme, tengo un datagridview y en el salen unas fechas y necesito agruparlas en labels...estos se deben crear según cuantas fechas estén en el grid y se deben agrupar, si por ejemplo en el grid hay 4 veces el día 1/1/2000 debería aparecer solo un label con ese día...he creado esto pero me salen tantos labels como días hay, además en vertical de arriba a abajo y lo necesito de izquierda a derecha y al sumar una cantidad pase a la siguiente página....

For i = 0 To dgestima.Rows.Count - 1
Dim label12 As Label = New Label()
label12.Top = 196 + 28 * (i - 1)
label12.Left = 50
label12.PointToScreen((Point.Empty))
label12.Text = CStr(dgestima.Rows(i).Cells(4).Value)

Me.Controls.Add(label12)

Next

[guillebomtrasmiti]

he conseguido ya que me salgan horizantales me falta que me agrupe las fechas iguales....?¿?

For i As Integer = 0 To dgestima.Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
If contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + anchoBoton
x = 10
End If
Dim nuevobotonProd As New Label
'Aqui le pongo primero la X y luego el codigo del producto
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
'nuevobotonProd.Text = dgestima.Rows.Count - 1
nuevobotonProd.Text = CStr(dgestima.Rows(i).Cells(4).Value)
Me.Controls.Add(nuevobotonProd)
'Agregro evento
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x + altoBoton
Next

[Aquaventus]

no me queda claro lo de las fechas

[guillebomtrasmiti]

vale...empiezo por le principio, el usuario selecciona en un datatimepicker una fecha y el grid las filtra...bien,ahora se crean tantos labels como fechas hay, pero en ocasiones hay fechas que se repiten y quiero que las agrupe en un label...esto es a lo mejor hay 7 filas con la misma fecha, yo quiero que la agrupe y no ponga siete veces la misma

[Aquaventus]

antes de crear los labels deberias comparar las fechas que tienes... por ejemplo cada vez que creas un label lo deberias agregar a un array la fecha, si quieres volver a crear otro label, comparas la fecha que deseas crear en el nuevo label con las que hay en el array, si existe lo obvias y si no lo creas, asi... comparando y agregando. Saludos!.

[Aquaventus]

Por ejemplo creo un formulario y en el arrastro un boton y datetimepicker(de formato short) y un listbox :

Creo 2 variables

Código vb:

Dim existe As Boolean = False
Dim lista As New ListBox
 

En el metodo load del formulario agrego datos a la variable lista :

Código vb:

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lista.Items.Add("01/07/2011")
        lista.Items.Add("02/07/2011")
        lista.Items.Add("03/07/2011")
        lista.Items.Add("04/07/2011")
    End Sub
 

En el evento Click del boton este codigo :

Código vb:

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To lista.Items.Count - 1
            If (lista.Items(i).Equals(DateTimePicker1.Text)) Then
                existe = True
            End If
        Next
        If existe = False Then
            ListBox1.Items.Add(DateTimePicker1.Text)
            lista.Items.Add(DateTimePicker1.Text)
        End If
        existe = False
    End Sub
 

Espero lo veas y lo entiendas estimado para que tengas idea de como resolver tu problema y sobre lo que te comentaba antes. Saludos!.

[guillebomtrasmiti]

buena idea lo pruebo

[Aquaventus]

es un ejemplo para que tengas idea de como desarrollarlo! me contas!.Saludos!.