GUI->TElement 页面元素基础类

<%'-----------------------------------------------------------' Class TElement 基础类'-----------------------------------------------------------Class TElementPrivate FName,FTag,FSingle,FInnerHtml,FAddAttrPrivate FAttrs,FChilds,FParent,FPagePrivate FOrigin,FOwnerDim SINGLE_TAGSub class_initializeFSingle = FalseSet FOrigin = meSet FOwner = meSINGLE_TAG = "img|br|hr|input|link|meta"Set FAttrs = sys.getObj(SO_DICT)End SubSub class_TerminateIf isobject(FAttrs) Then Set FAttrs = NothingIf isobject(FChilds) Then Set FChilds = nothingEnd Sub'------------------------ property begin ----------------------------Property Let Name(ByVal value)If Trim(value) = "" Then Exit PropertyDim oldName : oldName = FNameFName = valueIf IsObject(FPage) And oldName <> "" Then '保持名字唯一FPage.ChangeName oldName,valueEnd IfEnd PropertyProperty get Name()Name = FNameEnd PropertyProperty Let Tag(ByVal value)FTag = LCase(Trim(value))Call checkTagEnd PropertyProperty get Tag()Tag = FTagEnd PropertyProperty Let IsSingle(ByVal value)FSingle = valueEnd PropertyProperty Let InnerHtml(ByVal value)FInnerHtml = valueEnd PropertyProperty get InnerHtml()Dim html : html = ""If FInnerHtml <> "" Thenhtml = FInnerHtmlElsehtml = ChildHtmlEnd IfInnerHtml = htmlEnd PropertyProperty Let AddAttr(ByVal value) 'write onlyFAddAttr = valueEnd PropertyProperty let Attribute(ByVal key,ByVal value)If FAttrs.exists(key) thenFAttrs(key) = sys.toStr(value)ElseFAttrs.add key,sys.toStr(value)End ifEnd PropertyProperty get Attribute(ByVal key)If FAttrs.exists(key) thenAttribute = FAttrs(key)End IfEnd PropertyPrivate Property Get Attr()Dim i,keys,items,sAttr : sAttr = ""keys = FAttrs.keysitems = FAttrs.itemsFor i = 0 To FAttrs.count - 1If items(i) <> "" or keys(i) = "value" thensAttr = sAttr & keys(i) & "=""" & items(i) & """ "End IfNextIf FAddAttr <> "" Then sAttr = sAttr & FAddAttrIf sAttr <> "" Then sAttr = " " & rTrim(sAttr)Attr = sAttrEnd PropertyPrivate Property get ChildHtml()Dim chs,i,html : html = ""If IsObject(FChilds) Thenchs = FChilds.itemsFor i = 0 To FChilds.count - 1html = html & Chr(9) & chs(i).Origin.Html & vbCrLfNextEnd IfIf html <> "" Then html = vbCrLf & htmlChildHtml = htmlEnd PropertyProperty Get Html() 'read onlyIf FTag = "" Then ''..html = InnerHtmlExit PropertyEnd IfIf FSingle ThenHtml = "<" & FTag & Attr & " />"ElseHtml = "<" & FTag & Attr & ">" & InnerHtml & "</" & FTag & ">"End IfEnd PropertyProperty set Page(value) 'write onlyvalue.AddElement meSet Fpage = valueEnd PropertyProperty get Parent()Set Parent = FParentEnd PropertyProperty Set Parent(ByRef value) ' 改变当前ParentIf IsObject(value) ThenIf IsObject(FParent) Then FParent.removeChild mevalue.AddChild me ' 里头改变me.ParentEnd ifEnd PropertyProperty Get Childs() ' return dictionaryIf Not IsObject(FChilds) Then Set FChilds = sys.getObj(SO_DICT)Set Childs = FChildsEnd PropertyProperty Get Origin() ' read onlySet Origin = FOriginEnd PropertyProperty Get Owner()Set Owner = FOwnerEnd PropertyProperty set Owner(value)Set FOwner = valueEnd PropertyProperty Get Child(key) ' return elementIf Not IsObject(FChilds) Then Exit propertyIf FChilds.exists(key) Then Set Child = FChilds.item(key)End PropertyProperty Get FirstChild() ' return elementDim keysIf IsObject(FChilds) ThenIf Fchilds.count > 0 Thenkeys = FChilds.keysset FirstChild = FChilds.item(keys(0))End IfEnd ifEnd property'================================ property end ==================================Private Sub checkTagDim i,tagstags = Split(SINGLE_TAG,"|")For i = lbound(tags) To ubound(tags)If tags(i) = FTag ThenFSingle = TrueExit ForEnd ifnextEnd SubSub setParent(ByRef value)Set FParent = valueEnd SubSub AddChild(ByRef child)If Not IsObject(child) Then Exit subDim name ' Origin 指向原件或自己If child.Origin.name = "" Thenname = child.Origin.Tag & "_" & CStr(Childs.count)Elsename = child.Origin.nameEnd IfIf Childs.exists(name)Thensys.print "Element name repeat：" & namesys.haltElseChilds.add name,child.OriginEnd Ifchild.Origin.setParent me '更新ParentEnd subSub removeChild(ByRef child)Dim namename = child.Origin.nameIf Childs.exists(name)ThenChilds.remove nameEnd ifEnd SubSub echosys.print HtmlEnd subEnd Class%>