• Lunes 23 de Diciembre de 2024, 12:37

Autor Tema:  Controles Dinamicos  (Leído 1564 veces)

Marauder

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Controles Dinamicos
« en: Jueves 13 de Octubre de 2005, 18:32 »
0
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.

The Black Boy

  • Miembro de PLATA
  • *****
  • Mensajes: 1043
  • Nacionalidad: co
    • Ver Perfil
    • http://www.mslatam.com/latam/technet/mva2/Microsite.aspx?alias=JairoDiaz
Re: Controles Dinamicos
« Respuesta #1 en: Jueves 13 de Octubre de 2005, 19:11 »
0
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:
El inteligente no es aquel que lo sabe todo
sino aquel que   sabe utilizar lo poco que sabe.


Espacio Personal

si necesitas algo de programacion click aqui, si no esta aqui no existe

Programacion]

Marauder

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Re: Controles Dinamicos
« Respuesta #2 en: Viernes 14 de Octubre de 2005, 18:10 »
0
Muchas gracias por tu ayuda pero cuando intento ejecutar ese codigo, el visual empieza la operacion de generar y se queda colgado.

The Black Boy

  • Miembro de PLATA
  • *****
  • Mensajes: 1043
  • Nacionalidad: co
    • Ver Perfil
    • http://www.mslatam.com/latam/technet/mva2/Microsite.aspx?alias=JairoDiaz
Re: Controles Dinamicos
« Respuesta #3 en: Viernes 14 de Octubre de 2005, 18:48 »
0
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
El inteligente no es aquel que lo sabe todo
sino aquel que   sabe utilizar lo poco que sabe.


Espacio Personal

si necesitas algo de programacion click aqui, si no esta aqui no existe

Programacion]