CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Crear Label Por Codigo En Un Ciclo For.. La Beses

(1/2) > >>

sakuragi:
hola que tal

como puedo crear label de un determinado ciclo dependiendo la bueltas?

eh estado hasiendolo asi pero sin nningun resultado



--- Código: Text ---  dim label as new label  for i=0 to 10      label&i= new labelnext  

que tan perdido estoy?

creo que ha esto se le llama label dinamicos.

el problema que tengo es como poner el nombre para que me lo valla poniendo diferente en cada buelta

espero haver sido claro

gracias

saludos

Kev:

--- Código: Text ---         For i = 0 To 10            Dim lblControl As Label            lblControl.Name = "label" & i.ToString            Me.Controls.Add(lblControl)        Next  
Nota.- Estoy agregando el control al formulario, en un webform tendrias que agregarlo en un contenedor, en winforms tambien lo puedes hacer

No te olvides que los controles son de typo referencia

Salu2

 :comp:

sakuragi:
hola que tal

gracias por la ayuda

bueno con el codigo siguiene pude hacer lo que buscaba pero nomas puedo crearlos
para abajo.


--- Código: Text ---  For i = 0 To UBound(x)       Dim L As New Labell       L.Name = "Label" & i       L.Top = con       L.Left = 13       L.Text = L.Name       Me.Controls.Add(L)       con += 35    Next  
modifique l.top y l.left creyendo que seria al raves me moveria ala derecha pero no salio nada, nomas me desplega el primer label


--- Código: Text --- L.Top = 13L.Left = con  

como podria ir moviendolo a la derecha?

saludos :comp:

senzao18:
Hola, pues yo croe que lo que hiciste está bien, probablemente sea que lo que aumentas del left sea despreciable para el form..

senzao18:
Hola hice prueba con lo ultimo que mandaste y comprobe que tu problema es el poco espacio que dejas entre un control y otro, debido a que el tamoño del control por default se sobrepone sobre los otros controles.......

Otra cosa..

No es necesario que agreges un Label para agregar los controles en tiempo de ejecucion... Para eso esta la clase Label "System.Windows.Forms.Label "


--- Código: Text ---          Dim i, x As Integer        x = 10        Dim intLeft As Integer = 10                For i = 0 To x            Dim oNewLabel As New Label            oNewLabel.Name = "Label" & i            oNewLabel.Location = New Point(intLeft, 20)            oNewLabel.Size = New Size(50, 23) 'Por default trae 100,23            oNewLabel.Text = oNewLabel.Name            Controls.Add(oNewLabel)            intLeft += 50        Next    

Navegación

[0] Índice de Mensajes

[#] Página Siguiente