class behanling

Prøv dette, erstat klassen med din klasse
Private Sub Class_Terminate()
  Set Klassen = Nothing
End Sub

Kan du ikke lige prøve at uddybe dit spørgsmål lidt? Jeg er ikke helt med på hvad du egentlig vil.

VH CK

Jeg har en collection af clsuser som bruger en anden class og når den lukker ned så vil jeg havde at clsuser bliver slette i collectione.

Lav din collection med public scope og brug clsuser's terminate event til at fjerne sig selv fra den nu tilgængelige collection. Du kan bruge en class scope variabel til at indeksere din collection med, så klassen kan finde (og fjerne) sin egen instance.

Fedt nok kan du uddybe det lidt nemer med nogle koder.

Ja, men send mig lige din class collection, så jeg arbejder med samme navne, som du bruger i din kode.

clsuser classen
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private mvarUserName As String
Private mvarUserIP As String
Private mvarUserHost As String
Private mvarCommando As Byte
Private mvarUserPassWord As String
Private WithEvents Server As CSocket
Private mvarIsLogOn As Boolean

Public Property Let IsLogOn(ByVal vData As Boolean)
  mvarIsLogOn = vData
End Property

Public Property Get IsLogOn() As Boolean
  IsLogOn = mvarIsLogOn
End Property

Public Property Let Socket(ByVal requestID As Long)
  Call Server_OnConnectionRequest(requestID)
End Property

Public Property Let UserPassWord(ByVal vData As String)
  mvarUserPassWord = vData
End Property

Public Property Get UserPassWord() As String
  UserPassWord = mvarUserPassWord
End Property

Public Property Let Commando(ByVal vData As Byte)
  mvarCommando = vData
End Property

Public Property Get Commando() As Byte
  Commando = mvarCommando
End Property

Public Property Let UserHost(ByVal vData As String)
  mvarUserHost = vData
End Property

Public Property Get UserHost() As String
  UserHost = mvarUserHost
End Property

Public Property Let UserIP(ByVal vData As String)
  mvarUserIP = vData
End Property

Public Property Get UserIP() As String
  UserIP = mvarUserIP
End Property

Public Property Let UserName(ByVal vData As String)
  mvarUserName = vData
End Property

Public Property Get UserName() As String
  UserName = mvarUserName
End Property

Private Sub Class_Initialize()
  Set Server = New CSocket
  Server.LocalPort = Port
  IsLogOn = False
End Sub

Private Sub Class_Terminate()
  Set Server = Nothing
End Sub

Private Sub Server_OnClose()
  Server.CloseSocket
End Sub

Private Sub Server_OnConnectionRequest(ByVal requestID As Long)
  Server.Accept requestID
End Sub

Private Sub Server_OnDataArrival(ByVal bytesTotal As Long)
 
  Dim bData() As Byte
 
  Server.GetData bData(), vbArray + vbByte
  Call Command(bData)

End Sub
Private Function Command(bData() As Byte) As Boolean
 
  Dim strData As String
  Dim BrugerNavn As String
  Dim PassWord As String
 
  Select Case bData(0)
    Case 0 ' Login
      strData = String(UBound(bData) + 1, 0)
      Call CopyMemory(ByVal strData, bData(0), (UBound(bData) + 1) - 0)
      BrugerNavn = Split(strData, Chr(0))(1)
      PassWord = Split(strData, Chr(0))(2)
      UserName = BrugerNavn
      UserPassWord = PassWord
      IsLogOn = True
      'Check Brugernavn og Password
    Case 1
      If IsLogOn Then
        'din kode her
      Else
        'Server.CloseSocket
      End If
    Case Else
      strData = String(UBound(bData) + 1, 0)
      Call CopyMemory(ByVal strData, bData(0), (UBound(bData) + 1) - 0)
  End Select

End Function


col
Option Explicit

Private mCol As Collection

Public Function Add(objNewMember As clsUserCommando)
  mCol.Add objNewMember
End Function

Public Property Get Item(vntIndexKey As Variant) As clsUserCommando
  Set Item = mCol(vntIndexKey)
End Property

Public Property Get Count() As Long
    Count = mCol.Count
End Property

Public Sub Remove(vntIndexKey As Variant)
    mCol.Remove vntIndexKey
End Sub

Public Property Get NewEnum() As IUnknown
    Set NewEnum = mCol.[_NewEnum]
End Property

Private Sub Class_Initialize()
    Set mCol = New Collection
End Sub

Private Sub Class_Terminate()
    Set mCol = Nothing
End Sub

Jeg har ikke prøvet det endnu, jeg vil overlade fornøjelsen til dig. Du skal gøre flg.:

1) i clsUser, lav en ny property "Parent" af typen long
2) når funktionen Add i col kaldes, udfør "objNewMember.Parent = Me"
3) lave definitionen af mCol til "Public mCol As Collection" isf. Private
4) i clsUser Terminate event, loop igennem den nu synlige mCol collection i clsUser instansens forælderobjekt (der kan med denne løsning være flere forekomster af "col" der hver har en collection af clsUser instanser). Brug denne kode:

For i=0 to Parent.mCol.Count-1
  If Parent.mCol(i) = Me then
    Parent.Remove(i)
    Exit For
  End If
Next

objNewMember.Parent = Me jeg får en fejl på denne linje.

Det skal være "Set objNewMember.Parent = Me"

Property Parent i clsUser skal være af typen Object og du skal også bruge Set når du tilskriver din lokale variabel værdien af Parent, fx

Public Property Let Parent(newParent As Object)
  Set mParent = newParent
End Property

Mange tak olet det virker fint nu. Lars