Creación de objetos en VB .NET

[crassr3cords]

Bueno pues aka esta para el post el codigo... = fue para un jue4go de ahorcado

' de aka hasta el for se kalkulaba para ke la cantidad X de controles kedara centrado


Dim px As Double
Dim tamañoControles As Integer = ((vecPalabras(numeroPalabra).Length) * 40) / 2
Dim posicion As Integer = tamañoForm - tamañoControles
px = posicion

' pues vecpalabras era un vector ke me kontenia todas las palabras, asi ke pues el for iba desde 0 hasta el numero de caracteres de la palabra actual -1

' dentro del for asignabamos valores a algunas propiedades y pues se preguntaba si el caracter ke representaba el cuadro de texto era un espacio en blanco, si si pues el cuadro se ponia de color negro, sino kedaba de color blanco

' al final se agregaba el control a la coleccion de controles del formulario

For i As Integer = 0 To (vecPalabras(numeroPalabra).Length - 1)
Dim x As New Label
x.Location = New Point(px, 20)
x.Size = New Size(40, 50)
x.BorderStyle = BorderStyle.Fixed3D
x.Name = "label" & i
x.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
x.TextAlign = ContentAlignment.BottomCenter
x.BringToFront()
If vecPalabras(numeroPalabra).Substring(i, 1) <> " " Then
x.Text = "_"
x.BackColor = Color.White
Else
x.Text = " "
x.BackColor = Color.Black
End If
Controls.Add(x)
px += 40
Next






Un ejemplo mas facil jajaja pues seria algo asi

for i as integer =0 to 3
dim x as new textbox ' el control ke vamos a agregar
x.size=new size(20,20) ' el tamaño de ese control
x.location=new point((i*10),10) ' la posicion, en este caso X tendra ke ir
aumentando sino kedaria uno encima del
otro y no seria muy util la rutina XD.
x.name = "txtN" & i ' el nombre ke kedaria txt0, txt1, txt2, txt3
me.controls.add(x) ' y se agrega a la coleccion de controles del formulario
y ya apareceria visible en el formulario o donde lo
hallamos agregado (un panel por ejemplo) .
next


listo XD --- = envio el proyecto aunke la verdad voy a ponerle komentarios pues al hacerlo estaba un poco apurado y no lo hice jaja