EditPoint2.ChangeCase(Object, vsCaseOptions) 方法
定义
重要
一些信息与预发行产品相关,相应产品在发行之前可能会进行重大修改。 对于此处提供的信息,Microsoft 不作任何明示或暗示的担保。
更改选定文本的大小写。
public:
void ChangeCase(System::Object ^ PointOrCount, EnvDTE::vsCaseOptions How);
public:
void ChangeCase(Platform::Object ^ PointOrCount, EnvDTE::vsCaseOptions How);
void ChangeCase(winrt::Windows::Foundation::IInspectable const & PointOrCount, EnvDTE::vsCaseOptions How);
[System.Runtime.InteropServices.DispId(165)]
public void ChangeCase (object PointOrCount, EnvDTE.vsCaseOptions How);
[<System.Runtime.InteropServices.DispId(165)>]
abstract member ChangeCase : obj * EnvDTE.vsCaseOptions -> unit
Public Sub ChangeCase (PointOrCount As Object, How As vsCaseOptions)
参数
- How
- vsCaseOptions
必需。 一个 vsCaseOptions 常数,该常数指示文本的大小写。
实现
- 属性
示例
Sub ChangeCaseExample()
Dim objTextDoc As TextDocument
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
'Insert ten lines of text.
For iCtr = 1 To 10
objeditpt.Insert("This is a test." & Chr(13))
Next iCtr
' Capitalize the third word of the second line.
objEditPt.StartOfDocument()
objEditPt.LineDown(2)
objEditPt.WordRight(3)
objEditPt.ChangeCase(4, vsCaseOptions.vsCaseOptionsCapitalize)
End Sub