> >Ich würde Dir solch ein Konstrukt empfehlen:
> >
> >Frm.elements("Element1").Text
> >
> >Dies ist ohne Probleme zu machen...
>
> ah, Du bist noch wach, Glück gehabt ;)
>
> hast Du evtl. ein Beispiel, wie ich Dein o.g.
> Beispiel realisieren kann? Damit könnte ich
> gut leben.
Etwa so....
Class Form
private elems
Private Sub Class_Initialize
set elems = Server.createObject("Scripting.Dictionary")
End Sub
Private Sub Class_Terminate
set elems = Nothing
End Sub
public property get elements(name)
set elements = elems(name)
end property
public sub addElement(name)
set elems(name) = new Element
end property
End class
Class Element
private p_text
public property let text(newValue)
p_text = newValue
end property
public property get text()
text = p_text
end property
End class
Gruss,
Claudius
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Ein flexibles CMS für lau?
ATTACK! Download Intrexx CRM-Studio Now! http://www.intrexx.com
_______________________________________________
Advanced.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/advanced.asp
