Visual Basic - Control OCX

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Control OCX

Publicado por Christian Rodriguez O. (54 intervenciones) el 01/02/2006 01:15:56
Amigos una consulta

Hice algunos controles OCX, con diversos objetivos

Uno para crear ventanas emergentes, al estilo de las de notificacion del MSN, con transparencia, posibilidad de elegir desplazamiento o fade al aparecer y al desaparecer, poner logo, titulo, etc.

Otro, que es multiple, se trata de cajas de testo TextBoxs, para poder escribir solo en mayusculas, solo en minusculas, solo nuemos, solo caracteres de e-mail, y uno de texto normal.

La cosa es que a estos controles, le cree diversas propiedades, a fin de configurar su uso...

El problema es que no se como hacer para que en modo diseño, al cambiar una de las propiedades que YO cree, se mantenga en modo ejecucion.... Me explico... en modo diseño pongo la propiedad "Aparecer" del coptrol de la ventana emergente a "2_Desplazamiento", pero al ejecutar el programa, no lo toma y ejecuta el que asigne por defecto, esto es; "1_Fade".
Para poder cambiar las propiedades, lo debo hacer a traves de codigo, por lo que para cambiar una propiedad uso

Private sub Form_Load

____ miVentana.Aparecer = 2_Desplazamiento ' o puede ser
____ miVentana.Aparecer = 2 ' Pues es una enum

End Sub

Agradecere a quien sepa como poder asignar las propiedades en modo diseño y a traves de la ventana de propiedades del control.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Control OCX

Publicado por lito (70 intervenciones) el 01/02/2006 14:26:50
si te pongo solamente "PropertyBag" te arreglas?

copio&pego de algo mio, espero te sirva:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Dim abc As Boolean
On Error Resume Next
mMsgConfirmaSalir = PropBag.ReadProperty("MsgConfirmaSalir", "¿ Cerrar ?")
mMsgConfirmaEliminar = PropBag.ReadProperty("MsgConfirmaEliminar", "")
mMsgConfirmaCancelar = PropBag.ReadProperty("MsgConfirmaCancelar", "")
cmdEliminar.caption = PropBag.ReadProperty("CaptionEliminar", "Eliminar")
cmdImprimir.caption = PropBag.ReadProperty("CaptionImprimir", "Imprimir")
abc = PropBag.ReadProperty("AceptarBorraControles", True)
mABC abc
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "MsgConfirmaSalir", mMsgConfirmaSalir, "¿ Cerrar ?"
PropBag.WriteProperty "MsgConfirmaEliminar", mMsgConfirmaEliminar
PropBag.WriteProperty "MsgConfirmaCancelar", mMsgConfirmaCancelar
PropBag.WriteProperty "CaptionEliminar", cmdeliminar.caption, "Eliminar"
PropBag.WriteProperty "CaptionImprimir", cmdImprimir.caption, "Imprimir"
PropBag.WriteProperty "AceptarBorraControles", mABC(), True
End Sub

y ahora que reviso falta aca el PropertyChanged,
igual supongo te es suficiente para bucear en la ayuda de VB

salud
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Control OCX

Publicado por christian (54 intervenciones) el 03/02/2006 00:17:08
Gracias

Voy a revisar y te cuento
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad