ActiveX - Problemas al crear control ActiveX

 
Vista:

Problemas al crear control ActiveX

Publicado por Miquel (1 intervención) el 31/01/2003 09:02:44
Estoy creado un control Activex a partir de dos controles textbox i un label, como entorno gráfico.

A la hora de querer asignarle la propiedad BorderStyle el control hace caso omiso de la orden siguiente.

La ccBorderStyleConstants la he definido yo como:

Enum ccBorderStyleConstants
ccNone = 0
ccFixedSingle = 1
End Enum

Public Property Get BorderStyle() As ccBorderStyleConstants
BorderStyle = UserControl.BorderStyle
End Property

Public Property Let BorderStyle(ByVal NouBorder As ccBorderStyleConstants)
UserControl.BorderStyle = NouBorder
PropertyChanged "BorderStyle"
End Property

Hay alguna cosa que este haciendo mal?

Después otra pregunta:

En el mismo control quiero que si el usuario del control cambia el tipo de letra se modifique, pero el control me da el siguiente error:

Número de argumentos erróneo o asignación de propiedad no válida (Error 450)

El código que yo he hecho para la propiedad font es:

Public Property Get Font() As Font
Set Font = UserControl.Font
End Property

Public Property Let Font(ByVal NovaFont As Font)
UserControl.Font = NovaFont
Text1.Font = NovaFont
Text2.Font = NovaFont
Label1.Font = NovaFont
PropertyChanged "Font"
End Property

Hay alguna cosa que este haciendo mal?

Muchas gracias por vuestra ayuda.
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