• Viernes 19 de Abril de 2024, 02:35

Autor Tema:  Como Duplicar Un Combo Entre Formularios  (Leído 1154 veces)

mosaic04

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Como Duplicar Un Combo Entre Formularios
« en: Martes 27 de Enero de 2004, 11:26 »
0
Me gustaria saber como poder duplicar un combo de un formulario en otro FORM con los valores de este (list, etc)... para no tener que volver a atarcar en cada formulario a la BBDD y calgar los mismo valores,
     Muchas gracias  :o de antemano.

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Como Duplicar Un Combo Entre Formularios
« Respuesta #1 en: Martes 27 de Enero de 2004, 14:45 »
0
Hola mosaic04.

Haz referencia al combo del primer formulario como a otro miembro cualquiera del formulario:

Imagina un formulario (en el ejemplo Form1) que contiene el combo en cuestion (en el ej. Combo1). Cargarás los datos de Form1.Combo1 en un combo (Combo1) en otro formulario (Form2).
Código: Text
  1.  
  2. .
  3. .
  4. .
  5. Combo1.Clear
  6. Dim lng1 as Long
  7. for lng1 = 0 To Form1.Combo1.ListCount - 1
  8.      Combo1.AddItem Form1.Combo1.List(lng1)
  9. next lng1
  10. Combo1.ListIndex = Form1.Combo1.ListIndex
  11. .
  12. .
  13. .
  14.  
  15.  

Suerte.

mosaic04

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Re: Como Duplicar Un Combo Entre Formularios
« Respuesta #2 en: Martes 27 de Enero de 2004, 16:42 »
0
Gracias, mi duda es, no hay una forma más rapida para duplicar dos combos con todas las propiedades y valores

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Como Duplicar Un Combo Entre Formularios
« Respuesta #3 en: Martes 27 de Enero de 2004, 17:15 »
0
Otra forma que se me ocurre es utilizar sólo un formulario: algo así como juntar los dos formularios en uno con los controles de los dos, tal vez agrupados en frames, y según lo necesites, al cambiar alguna propiedad redimensionar, hacer visible o invisible, etc...

Tal vez en tú caso no merece la pena ponerse a hacer algo así, ya que diseñar un formulario de esta forma es un asunto algo engorroso aunque sencillo (aparte del coste en memoria que podría suponer tener un formulario excesivamente cargado de controles, y más si sólo se van a utilizar muy ocasionalmente).

También podrías pasar al segundo formulario el recordset que contiene los datos del primer combo...

Por lo pronto, ni conozco, ni se me ocurren otras formas de hacer lo que pretendes, a ver si alguién aporta más...

Suerte.

kkklira

  • Nuevo Miembro
  • *
  • Mensajes: 16
    • Ver Perfil
Re: Como Duplicar Un Combo Entre Formularios
« Respuesta #4 en: Viernes 30 de Enero de 2004, 07:42 »
0
:hola: Hola :
   No entiendo bien que es lo que quieres hacer. Me parece que quieres un nuevo form con un combo1 igual al que ya tienes, tal vez esto te sirva.

Dim Otro As Form
Private Sub Command1_Click()
Set Otro = New Form1
Otro.Command1.Visible = False
Otro.Combo1.Top = 0
Otro.Combo1.Left = 0
Otro.Width = Otro.Combo1.Width + 200
Otro.Height = Otro.Combo1.Height + 1000
Otro.Show
End Sub

Private Sub Form_Load()
Dim i
Dim l As String
For i = 0 To 10
Combo1.List(i) = i
Next i
End Sub
 
'Suerte  :whistling: