StatusBar (Interfaz)

Representa la Barra de estado en el entorno de desarrollo integrado (IDE) de Visual Studio.

Espacio de nombres:  EnvDTE
Ensamblado:  EnvDTE (en EnvDTE.dll)

Sintaxis

'Declaración
<GuidAttribute("C34301A1-3EF1-41D8-932A-FEA4A8A8CE0C")> _
Public Interface StatusBar

[GuidAttribute("C34301A1-3EF1-41D8-932A-FEA4A8A8CE0C")]
public interface StatusBar

[GuidAttribute(L"C34301A1-3EF1-41D8-932A-FEA4A8A8CE0C")]
public interface class StatusBar

[<GuidAttribute("C34301A1-3EF1-41D8-932A-FEA4A8A8CE0C")>]
type StatusBar =  interface end

public interface StatusBar

El tipo StatusBar expone los siguientes miembros.

Propiedades

	Nombre	Descripción
	DTE	Obtiene el objeto de extensibilidad de nivel superior.
	Parent	Obtiene el objeto primario inmediato de un objeto StatusBar.
	Text	Establece u obtiene el texto seleccionado.

Arriba

Métodos

	Nombre	Descripción
	Animate	Muestra una imagen animada en la StatusBar.
	Clear	Borra todo el texto de StatusBar.
	Highlight	Alterna el resaltado de texto en la StatusBar.
	Progress	Crea, modifica y borra el control de indicador de progreso de la StatusBar.
	SetLineColumnCharacter	Establece los indicadores de columna de texto y de caracteres en la StatusBar.
	SetXYWidthHeight	Establece los indicadores de coordenadas x, y, ancho y alto en la StatusBar.
	ShowTextUpdates	Determina si la StatusBar muestra actualizaciones de texto.

Arriba

Comentarios

Sólo hay un objeto StatusBar en el IDE.

Puesto que en este ejemplo se enumeran todas las tareas existentes en cada momento en TaskList, debe comprobarse que contiene algunas tareas antes de ejecutar el código.

Ejemplos

Sub StatusBarExample()
   ' Create object references and initialize variables.
   Dim SBar As StatusBar
   Dim TList As TaskList
   Dim TItems As TaskItems
   Dim TI As TaskItem
   Dim count As Long
   Dim i As Long

   SBar = DTE.StatusBar
   ' Get references to Task List.
   TList = DTE.Windows().Item(Constants.vsWindowKindTaskList).Object
   TItems = TList.TaskItems
   i = 1
   count = TItems.Count
   
   ' Loop through Task List items, updating progress bar for each item.
   For Each TI In TItems
      SBar.Progress(True, TI.Description, i, count)
      SBar.SetLineColumnCharacter(i, count, 0)
      i = i + 1
      MsgBox("Task: " & i - 1 & vbCr & "Description: " & TI.Description & vbCr & "Next task item...")
   Next
   ' All done, so get rid of the bar.
   SBar.Progress(False)
End Sub

Vea también

Referencia

EnvDTE (Espacio de nombres)