次の方法で共有


HTMLWindow3.CurrentPane Property

Definition

Gets or sets the current HTML Editor window type.

public:
 property EnvDTE90::vsHTMLPanes CurrentPane { EnvDTE90::vsHTMLPanes get(); void set(EnvDTE90::vsHTMLPanes value); };
public:
 property EnvDTE90::vsHTMLPanes CurrentPane { EnvDTE90::vsHTMLPanes get(); void set(EnvDTE90::vsHTMLPanes value); };
[System.Runtime.InteropServices.DispId(2)]
public EnvDTE90.vsHTMLPanes CurrentPane { [System.Runtime.InteropServices.DispId(2)] get; [System.Runtime.InteropServices.DispId(2)] set; }
[<System.Runtime.InteropServices.DispId(2)>]
[<get: System.Runtime.InteropServices.DispId(2)>]
[<set: System.Runtime.InteropServices.DispId(2)>]
member this.CurrentPane : EnvDTE90.vsHTMLPanes with get, set
Public Property CurrentPane As vsHTMLPanes

Property Value

A vsHTMLPanes enumeration value indicating the current HTML Editor window being viewed.

Attributes

Examples

Sub HTMLWindow3Example(ByVal dte As EnvDTE80.DTE2)  
    ' Open an HTML document before running this sample.  
    If TypeOf dte.ActiveDocument.ActiveWindow.Object Is HTMLWindow3 _  
        Then  
            ' Ask the user for a file to insert into the body of the  
            ' HTML document. This file should be an HTML fragment.  
            Dim strFile As String = InputBox("Enter the name of a _  
              file to insert at the end of the HTML document:")  
            ' Get the HTMLWindow3 object and determine which tab is   
            ' currently active.  
            Dim objHTMLWin As HTMLWindow3 = _  
            CType(dte.ActiveDocument.ActiveWindow.Object, HTMLWindow3)  
            Dim Tab As vsHTMLTabs = CType(objHTMLWin.CurrentTab, _  
              vsHTMLTabs)  
            Dim cpane As vsHTMLPanes = vsHTMLPanes.vsHTMLPaneSplit  

            ' Switch to the "split" view, source view.  
            objHTMLWin.CurrentPane = vsHTMLPanes.vsHTMLPaneSplit  
            objHTMLWin.CurrentView = vsHTMLViews.vsHTMLViewSource  

            ' Get an EditPoint at the start of the text.  
            Dim objTextWin As TextWindow = _  
              CType(objHTMLWin.CurrentTabObject, TextWindow)  
            Dim objEP As EditPoint = _  
            objTextWin.ActivePane.StartPoint.CreateEditPoint  

            ' Look for the end of the document body.  
            If objEP.FindPattern("</body>") Then  
                ' Insert the contents of the file.  
                objEP.InsertFromFile(strFile)  
            End If  

            ' Switch back to the original view of the HTML file.  
            'objHTMLWin.CurrentTab = Tab  
        Else  
            MsgBox("You must open an HTML document.")  
        End If  
    End Sub  
public void HTMLWindowExample(_DTE dte)  
{  
    // Open an HTML document before running this sample.  
    if (dte.ActiveDocument.ActiveWindow.Object is HTMLWindow3)  
    {  
        HTMLWindow3 objHTMLWin;  
        vsHTMLTabs Tab;  
        String strFileName;  
        // Ask the user for a file to insert into the body of the HTML   
        // document. This file should be an HTML fragment.  
        strFileName = Microsoft.VisualBasic.Interaction.InputBox   
        ("Enter the name of a file to insert at the end of the HTML   
        document:","","",100,100);  
        // Get the HTMLWindow3 object and determine which tab is   
        // currently active.  
        objHTMLWin = dte.ActiveDocument.ActiveWindow.Object as   
        HTMLWindow3;  
        Tab = objHTMLWin.CurrentTab;  

        // Switch to the "source" tab.  
        objHTMLWin.CurrentPane = vsHTMLPanes.vsHTMLPaneSplit;  
        objHTMLWin.CurrentTab = vsHTMLViews.vsHTMLViewSource;  

        // Get an EditPoint at the start of the text.  
        TextWindow objTextWin;  
        EditPoint ep;  
        EditPoint ep2 = null;  
        TextRanges textRanges = null;  
        objTextWin = objHTMLWin.CurrentTabObject as TextWindow;  
        ep = objTextWin.ActivePane.StartPoint.CreateEditPoint();  
        textRanges = objTextWin.Selection.TextRanges;  

        // Look for the end of the document body.  
        if (ep.FindPattern   
        ("</body>",(int)vsFindOptions.vsFindOptionsNone, ref ep2, ref   
        textRanges))  
            // Insert the contents of the file.  
            ep.InsertFromFile (strFileName);  
            // Switch back to the original view of the HTML file.  
            objHTMLWin.CurrentTab = Tab;  
    }  
    else  
        MessageBox.Show ("You must open an HTML document.");  
}  

Applies to