Forums Neueste Beiträge
 

Set New Nothing

28/02/2009 - 19:06 von Carlos Naplos | Report spam
Hallo

Eine Verstàndnisfrage:

Aus der Hilfe:
"Wenn Sie New mit Set verwenden, wird eine neue Instanz der Klasse erstellt."


Ich habe folgendes Makro:

<Makro>
Dim MyData As DataObject

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("MyRange")) Is Nothing Then

Set MyData = New DataObject
MyData.SetText Target.Text
MyData.PutInClipboard

End If

End Sub
<\Makro>


Wird hier bei jedem Lauf ein neues Objekt erzeugt?
Wie lange belegt es den Speicher?
Sollte ich es explizit mit "Set MyData = Nothing" freigeben?

Gruß
Carlos
 

Lesen sie die antworten

#1 Andreas Killer
28/02/2009 - 19:10 | Warnen spam
Carlos Naplos schrieb:

Dim MyData As DataObject
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("MyRange")) Is Nothing Then
Set MyData = New DataObject
MyData.SetText Target.Text
MyData.PutInClipboard
End If
End Sub

Wird hier bei jedem Lauf ein neues Objekt erzeugt?


Ja.

Wie lange belegt es den Speicher?


Solange Excel làuft.

Sollte ich es explizit mit "Set MyData = Nothing" freigeben?


Ja.

Andreas.

Ähnliche fragen