Übersetzung Class MagneticWindow

[EWeiss]

Zitat von Union:

Genau das sorgt ja für die Rekursion. Die Property heisst SnapWidth. Der Getter heist GetSnapWidth. Wenn innerhalb des Getters wieder SnapWidth steht, wird die Property angesprochen. Diese ruft den Getter auf etc. Der ursprüngliche Tip mit der Klassenvervollständigung kam nicht von mir.

Ok verstehe.. obwohl igendwie nicht logisch! in Delphi

Code:

Public Property Get SnapWidth() As Long
    SnapWidth = m_lSnapWidth
End Property

Public Property Let SnapWidth(ByVal New_SnapWidth As Long)
    m_lSnapWidth = New_SnapWidth
End Property

Bei Let wird der neue Wert m_lSnapWidth zugewiesen wenn
dieser übergeben wird ..

Code:

Private Sub Class_Initialize()
    
    '-- Default snap width
    m_lSnapWidth = 10  // Hier wird er übergeben beim initialisieren der klasse
    
    '-- Initialize array (handled windows info)
    ReDim m_uWndInfo(0) As WND_INFO
    m_lWndCount = 0
End Sub

und in der Public Variablen m_lSnapWidth gespeichert.
Über 'Get SnapWidth' kann ich die Variable abfragen welchen aktuellen wert sie hat.

Klappt in VB !

gruß