SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Marauder en Jueves 13 de Octubre de 2005, 18:32

Título: Controles Dinamicos
Publicado por: Marauder en Jueves 13 de Octubre de 2005, 18:32
Hola a todos,estoy creando unos controles dinamicos a traves de un boton,con este código:
Public cb2 As New ComboBox()
Y dentro del evento Click del boton:
i = i + 1
Me.Controls.Add(cb2)
cb2.Name = "CBBusqueda" & i
cb2.Location = New Point(48, (i * 50))
cb2.Size = New Size(224, 21)
cb2.DropDownStyle = ComboBoxStyle.DropDownList
cb2.MaxDropDownItems = 7

Pero lo que ocurre es que cuando le doy otra vez al boton para añadir otro combo, lo que me hace  es borrar el que ya tenia y crear el otro en la posicion deseada,¿sabe alguien cual es el problema y/o como solucionarlo?.

Muchas gracias de antemano.
Título: Re: Controles Dinamicos
Publicado por: The Black Boy en Jueves 13 de Octubre de 2005, 19:11
prueba esto
Código: Text
  1.  
  2.  
  3.         Dim i As Integer
  4.         Private comboBox1 As System.Windows.Forms.ComboBox
  5.  
  6. Private Sub crear_combobox()
  7.         i = i + 1
  8.         Me.comboBox1 = New System.Windows.Forms.ComboBox
  9.         Me.comboBox1.Name = "busqueda" & i
  10.         Me.comboBox1.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or    System.Windows.Forms.AnchorStyles.Left) _
  11.          Or System.Windows.Forms.AnchorStyles.Right)
  12.         Me.comboBox1.DropDownWidth = 280
  13.         Me.comboBox1.Items.AddRange(New Object() {"Item 1", "Item 2", "Item 3", "Item 4", "Item 5"})
  14.         Me.comboBox1.Location = New System.Drawing.Point((8), (100 * i))
  15.         Me.comboBox1.Size = New System.Drawing.Size(280, 21)
  16.         Me.comboBox1.TabIndex = 7
  17.  
  18.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.comboBox1})
  19.         Me.Text = "ComboBox Sample"
  20.     End Sub
  21.  
  22.  
  23. ____________________________________________________________________
  24.  
  25. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  26.         crear_combobox()
  27.     End Sub
  28.  
  29.  

Ejecuta en Modo Maximizado...

Espero te sirva ...

Saludos :hola:
Título: Re: Controles Dinamicos
Publicado por: Marauder en Viernes 14 de Octubre de 2005, 18:10
Muchas gracias por tu ayuda pero cuando intento ejecutar ese codigo, el visual empieza la operacion de generar y se queda colgado.
Título: Re: Controles Dinamicos
Publicado por: The Black Boy en Viernes 14 de Octubre de 2005, 18:48
amigo, yo lo probé antes de enviartelo y me funcionó asi que no se que es lo que te pueda estar sucediendo.. mira bien y vuelve a probarlo..

cualquier cosa me dices

Saludos