EditPoint.ReadOnly メソッド

[アーティクル]
08/22/2008

更新 : 2007 年 11 月

指定した範囲に読み取り専用のテキストが含まれているかどうかを示す値を返します。

名前空間 : EnvDTE
アセンブリ : EnvDTE (EnvDTE.dll 内)

構文

'宣言
Function ReadOnly ( _
    PointOrCount As Object _
) As Boolean
'使用
Dim instance As EditPoint
Dim PointOrCount As Object
Dim returnValue As Boolean

returnValue = instance.ReadOnly(PointOrCount)

bool ReadOnly(
    Object PointOrCount
)

bool ReadOnly(
    [InAttribute] Object^ PointOrCount
)

function ReadOnly(
    PointOrCount : Object
) : boolean

パラメータ

PointOrCount
型 : System.Object

必ず指定します。TextPoint オブジェクトまたは文字数。

戻り値

型 : System.Boolean

選択範囲に読み取り専用のテキストが含まれている場合は true。それ以外の場合は false。

解説

ドキュメント全体が読み取り専用としてマークされている場合、または文字が読み取り専用ブロックに含まれている場合は、文字が読み取り専用になります。

例

Sub ReadOnlyExample()
   Dim objTextDoc As TextDocument
   Dim objMovePt As EditPoint
   Dim objEditPt As EditPoint, iCtr As Integer

   ' Create a new text file.
   DTE.ItemOperations.NewFile("General\Text File")

   ' Get a handle to the new document and create an EditPoint.
   objTextDoc = DTE.ActiveDocument.Object("TextDocument")
   objEditPt = objTextDoc.StartPoint.CreateEditPoint
   objMovePt = objTextDoc.EndPoint.CreateEditPoint
        
   ' Insert ten lines of text.
   For iCtr = 1 To 10
      objEditPt.Insert("This is a test." & Chr(13))
   Next iCtr
   ' Move the active point to where the second edit point is
   ' and then insert some text.
   MsgBox("Is text read-only? " & objEditPt.ReadOnly(5))
End Sub