如果自从上次保存 PageWindowEx 对象后该对象又经过更改,则为 True。可读写,Boolean 类型。
expression.IsDirty
expression 必选。返回“应用于”列表中的对象之一的表达式。
本示例检查活动网页是否已经更改;如果已经更改了,则程序会对活动网页执行 Save 方法。
Private Sub DirtyDocument()
Dim myPage As PageWindowEx
Dim myDoc As DispFPHTMLDocument
Dim mySaveCheck As Boolean
Set myDoc = WebWindows(0).PageWindows(0).Document
Call myDoc.body.insertAdjacentHTML("BeforeEnd", _
"<b> modified </b>")
If ActivePageWindow.IsDirty = True Then
ActivePageWindow.Save
End If
End Sub