Export (0) Print
Expand All
Expand Minimize

CurrentTab Property

Visual Studio .NET 2003

Returns or sets whether the Source or the Designer tab in the HTML edit window is active.

[Visual Basic .NET]
Public Property CurrentTab() As vsHTMLTabs
[Visual Basic 6]
Property Get CurrentTab() As vsHTMLTabs
Property Let CurrentTab( _
   ByVal NewValue As vsHTMLTabs _
HRESULT __stdcall get_CurrentTab(
   /* [out, retval] */ vsHTMLTabs* retVal
HRESULT __stdcall put_CurrentTab(
   /* [in] */ vsHTMLTabs NewValue
public vsHTMLTabs CurrentTab {get; set;}
[JScript .NET]
public function get CurrentTab() : vsHTMLTabs
public function set CurrentTab(
   NewValue : vsHTMLTabs


Required. A vsHTMLTabs constant indicating the active tab:


Sub CurrentTabExample()
   ' Open an HTML document before running this sample.
   If TypeOf ActiveDocument.ActiveWindow.Object Is HTMLWindow 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 HTMLWindow object and find out which tab is currently 
      ' active.
      Dim objHTMLWin As HTMLWindow = ActiveDocument.ActiveWindow.Object
      Dim Tab As vsHTMLTabs = objHTMLWin.CurrentTab

      ' Switch to the "source" tab.
      objHTMLWin.CurrentTab = vsHTMLTabs.vsHTMLTabsSource

      ' Get an EditPoint at the start of the text.
      Dim objTextWin As TextWindow = objHTMLWin.CurrentTabObject
      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.
      End If

      ' Switch back to the original view of the HTML file.
       objHTMLWin.CurrentTab = Tab
      MsgBox("You must open an HTML document.")
   End If
End Sub

See Also

Applies To: HTMLWindow Object

© 2014 Microsoft