Visual Basic - Propeidad default de un control

Hola!! Estoy haciendo un boton (.ocx) en Visual Basic i no se como hacer para que tenga la propiedad Default... no se como implementarla i no he encontrado ningun ejemplo de como hacerlo....

Si alguien sabe como puedo hacerlo o donde puedo encontrar alguna ayuda o ejemplo...

Muchas gracias espero que podais ayudarme...

adios!!!!

Cuando realices el procedimiento:

Public Property Get MiPropiedad()
End Property

Revisa las propiedades del procedimiento: Herramientas -> Atributos del Procedimiento, luego en avanzadas indicas en el ID del procedimiento (Predeterminado).

Yo lo queria hacer que mi boton tanga una propiedad que se llama Default como el COmmand Button que viene con el Visual Basic, que al darle al Enter se aprete el boton que tenga la propiedad default = true...

Espero que me haya explicado bien i que podais ayudarme...

Gracias!!

Cuando lo crees pon la propiedad DefaultCancel=true

Pero, en la ventana de propiedades del boton, aun no me aparece la propiedad default del boton. o sea que algo habra que hacer no?

HEEELLP!!!

mmmmm quizas puedas hacer esto
creas asi un tipo enum
enum tipo_default
falso=0
verdadero=1
end enum
dim var as integer
Public Property Get default() As tipo_default

default = var

End Property
Public Property Let default(ByVal loquequieras As tipo_default)

var = loquequieras

PropertyChanged "default"

End Property
y listo con esto aparecera en las propiedades de tu OCX... ahora
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
on error resume next
Call PropBag.WriteProperty("default", var, tipo_default.falso)
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
on error resume next
var = PropBag.ReadProperty("default", Tipo_default.falso )
end sub

nota: tipo_defautl.falso es el valor que aparecera por dafault en la propiedad al cargar el control.....
espero haberte ayudado.... salu2!!!!

ok!! eso hace que me aparezca la propiedad Default, pero esa proiedad no hace nada, no hace que el boton que estoy haciendo pueda ser default, o sea, que al apretar enter, aunque el boton no tenga el enfoque se clicke... me refiero a lo mismo que tiene el command button que viene con Visual Basic. Si pones un Command button en un form con la propiedad default a true, al hacer 'Enter' es como hacer click en el boton.

no se si me explico muy bien, pero espero que me podais ayudar...

si consigo hacer eso, cuando tenga el boton acabado ya lo compartire con quien quiera....

bueno para esto deberas agregar un boton de comando y poner todo esto, espero ahora si te sirva, salu2 todos
Public Property Get Default() As Boolean
Default= command1.Default
End Property
Public Property Let Default(ByVal loquequieras As Boolean)
command1.enabled = loquequieras
PropertyChanged "Default"
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
on error resume next
Call PropBag.WriteProperty("Default", Command1.Default, False)
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
on error resume next
Command1.Default = PropBag.ReadProperty("Default", False)
end sub