Jag blir tokig :)

Har en komponentbaserad webbapplikation med en Parent class och en child class. Parent har instans av child deklarerad private överst.

Har en property med namn RegKey i dessa 2 som jag vill sätta nytt värde på, detta fungerar i ett VbFormulär men inte från min aspsida?? Antagligen dör min instans någonstans men ser inte var.

--- CLASS PARENT ----------------------------------------
Public Property Let RegKey(ByVal vNewValue As String)
m_clsChild.RegKey = vNewValue
End Property

----CHILD CLASSEN --------------------------------------
Public Property Let RegKey(ByVal vNewValue As String)
m_strRegKey = vNewValue
End Property

Private Sub Class_Initialize()
m_strRegKey = "00-00"
End Sub
-------------------------------------------------------------

Någon som har en idé? Skapar ny instans överst på parent classen dödar det på terminate ...

Hi,

I can not see where your parent is craeting the instance of the child class

I usually would have something like this...

******************************* Parent cls ***************************

Option Explicit
'Demo code
Private m_child As clsChild ' child class

Public Property Let ChildRegKey(ByVal vData As String)
m_child.regKey = vData
End Property

Public Property Get ChildRegKey() As String
regKey = m_child.RegKey
End Property

Private Sub Class_Initialize()
Set m_child = New clsChild
RegKey = "00-00"
End Sub

Private Sub Class_Terminate()
Set m_child = Nothing
End Sub


************************************ Child cls *********************
Option Explicit
'Demo Code
Private m_RegKey As String
Public Property Let regKey(ByVal vData As String)
m_RegKey = vData
End Property
Public Property Get regKey() As String
regKey = m_RegKey
End Property



The above should work like , you createobject(clsparent) , the child is created in the initialize method and a value set to the child.

Alternativley your might want to look at using WithEvents ?


I might be able to help more with more info about the cls usage, if it is a vb6 dll / activeX or VB.Nat / aspx



regards Paul

Tack Paul

Visade sig att instansen dog när jag kallade på en sub direkt från On_startPage med asp ScriptingContext, när jag anropade den via aspsidan så fungerade det kanon