Reply to Eine Enum - Eigenschaft zu einem ActiveX hinzufügen on Fri, 17 Oct 2003 11:50:37 GMT

Ronny W — Fri, 17 Oct 2003 11:50:37 GMT

Habe leider nur den VB Sourcecode. Dieser funktioniert! Nur kriege ich das ganze nicht in VC++ zum laufen.

Option Explicit

Public Enum MyStyle
    Kein = 0
     'Eckige Klammern wegen Leerzeichen
    [Office 2000] = 1
    [Office XP] = 2
End Enum

'Standard Eigenschaftswerte:
Const m_def_Style = 0

'Eigenschaft-Variablen:
Dim m_Style As MyStyle

Public Property Get Style() As MyStyle
    Style = m_Style
End Property

Public Property Let Style(ByVal New_Style As MyStyle)
    m_Style = New_Style
    PropertyChanged "Style"
End Property

'Eigenschaften für Benutzersteuerelement initialisieren
Private Sub UserControl_InitProperties()
    m_Style = m_def_Style
End Sub

'Eigenschaftenwerte vom Speicher laden
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    m_Style = PropBag.ReadProperty("Style", m_def_Style)
End Sub

'Eigenschaftenwerte in den Speicher schreiben
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("Style", m_Style, m_def_Style)
End Sub