如果当前 WebEx 对象上使用了版本控制,则为 True。只读,Boolean 类型。
若要使用版本控制,必须要有用 Microsoft Visual SourceSafe 或 Microsoft Office 创建的版本控制项目。
本示例先创建版本控制项目,然后在第二个过程中检查 IsUnderRevisionControl 属性的状态。
Private Sub SourceControlProject()
Dim myWeb As WebEx
Set myWeb = ActiveWeb
If Not (myWeb.IsUnderRevisionControl) Then
myWeb.RevisionControlProject = _
"<FrontPage-based Locking>"
End If
End Sub
Private Sub GetRevisionState()
Dim myWeb As WebEx
Dim myRevCtrlProj As String
Dim myIsRevCtrl As Boolean
Set myWeb = ActiveWeb
With myWeb
myRevCtrlProj = .RevisionControlProject
myIsUnderRevCtrl = .IsUnderRevisionControl
End With
End Sub