Private vMPs As Collection
 
' gibt die Anzahl der Messpunkte zurück
Public Property Get MPCount() As Integer
  vMPs.Count
End Property
 
'fügt einen neuen Messpunkt hinzu
Public Function AddMP(ByVal X As Integer, Y As Integer) As clsMP
  Dim objNewMember As clsMP
  With objNewMember
    .X = X
    .Y = Y
  End With
  vMPs.Add objNewMember
  Set AddMP = objNewMember
  Set objNewMember = Nothing
End Function
 
' gibt die Messpunkte zurück
Public Property Get MPs() As Collection
  Set MPs = vMPs
End Property
 
Private Sub Class_Initialize()
  ' initialisiert die Messpunkte-Collection
  Set vMPs = New Collection
End Sub

clsBlattInstanz.MPs(1).X = NeuerWert

Private vMPs() As clsMP
 
Public Property Get MPCount() As Integer
  MPCount = UBound(vMPs)
End Property
 
Public Property Set MPCount(ByVal intNewValue As Integer)
  ReDim Preserve vMPs(intNewValue)
End Property
 
Public Property Get MPs() As clsMP()
  MPs = vMPs
End Property
 
Private Sub Class_Initialize()
  ReDim vMPs(0)
End Sub

clsBlattInstanz.MPs(1).X = NeuerWert

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.