| |||
Re: Creación de objetos en VB .NET yo tengo un proyecto parecido ke t puede servir, kreo X cantidad de textbox segun la cantidad de letras de una palabra, lo kual seria el numero ke digite el usuario --- [email protected] [email protected] |
| |||
Re: Creación de objetos en VB .NET 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 |
| ||||
Re: Creación de objetos en VB .NET Weno gracias crassr3cords, deberas q fue de mucha ayuda lo q enviaste. Ahora estoy terminando el proyecto con el codigo que me enviaste, cuando lo tenga terminado te lo envio para que lo chequees. GRACIAS. ![]() |