COMO CRIAR UMA OCX HERDANDO A PROPRIEDADE APPEARAN

USUARIO.EXCLUIDOS 27/11/2006 10:21:08
#186367
Tenho um OCX com dois objetos TextBox e um CommandButton preciso colocar nas propriedades da OCX a propriedade Appearance (Flat / 3D) mas não estou conseguindo alguém tem alguma idéia de como fazer isso?
Obrigado

WEBMASTER 27/11/2006 10:56:17
#186389 

Public Enum EAppearance
    EPAFlat
    EPA3D
End Enum

Public Property Get Appearance() As EAppearance
  Appearance = UserControl.Appearance
End Property
Public Property Let Appearance(ByVal NewValue As EAppearance)
  UserControl.Appearance = NewValue
  PropertyChanged "Appearance"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 With PropBag
   Appearance = .ReadProperty("Appearance", 1)
 End With
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
  Call .WriteProperty("Appearance", UserControl.Appearance, 1)
End With
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar