HtmlElement.CanHaveChildren Egenskap
Definition
Viktigt
En del information gäller för förhandsversionen av en produkt och kan komma att ändras avsevärt innan produkten blir allmänt tillgänglig. Microsoft lämnar inga garantier, uttryckliga eller underförstådda, avseende informationen som visas här.
Hämtar ett värde som anger om det här elementet kan ha underordnade element.
public:
property bool CanHaveChildren { bool get(); };
public bool CanHaveChildren { get; }
member this.CanHaveChildren : bool
Public ReadOnly Property CanHaveChildren As Boolean
Egenskapsvärde
trueom elementet kan ha underordnade element; annars . false
Exempel
I följande kodexempel hanteras händelsen på ClickHtmlDocument. Om ett element inte tidigare har valts med ett musklick tilldelar koden elementet till en privat klassvariabel med namnet MoveElement. Om ett element har valts försöker koden lägga till det i elementet som just klickades. Det här kodexemplet kräver att programmet är värd för en WebBrowser kontroll med namnet WebBrowser1, och att du redan har lagt till en händelsehanterare för händelsen Clickpå HtmlDocument .
HtmlDocument doc;
HtmlElement moveElement;
private void EnableElementMove()
{
if (webBrowser1 != null)
{
doc = webBrowser1.Document;
doc.Click += new HtmlElementEventHandler(doc_Click);
}
}
void doc_Click(object sender, HtmlElementEventArgs e)
{
if (moveElement == null)
{
moveElement = webBrowser1.Document.GetElementFromPoint(e.ClientMousePosition);
}
else
{
HtmlElement targetElement = webBrowser1.Document.GetElementFromPoint(e.ClientMousePosition);
if (targetElement.CanHaveChildren)
{
targetElement.AppendChild(moveElement);
moveElement = null;
}
}
}
Dim WithEvents Doc As HtmlDocument
Dim MoveElement As HtmlElement
Private Sub EnableElementMove()
If (WebBrowser1 IsNot Nothing) Then
Doc = WebBrowser1.Document
End If
End Sub
Private Sub Document_Click(ByVal sender As Object, ByVal args As HtmlElementEventArgs) Handles Doc.Click
If (MoveElement Is Nothing) Then
MoveElement = WebBrowser1.Document.GetElementFromPoint(args.ClientMousePosition)
Else
With WebBrowser1.Document
Dim TargetElement As HtmlElement = .GetElementFromPoint(args.ClientMousePosition)
If (TargetElement.CanHaveChildren) Then
TargetElement.AppendChild(MoveElement)
MoveElement = Nothing
End If
End With
End If
End Sub
Kommentarer
Vissa element, till exempel IMG och SCRIPT, kan inte ha några underordnade element. Använd den här egenskapen innan du anropar AppendChild eller InsertAdjacentElement på ett godtyckligt element.