StatusBar - интерфейс

Статья
08/11/2011

Представляет Строку состояния в интегрированной среде разработки Visual Studio.

Пространство имен: EnvDTE
Сборка: EnvDTE (в EnvDTE.dll)

Синтаксис

'Декларация
<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

Тип StatusBar предоставляет следующие члены.

Свойства

	Имя	Описание
	DTE	Возвращает объект расширения верхнего уровня.
	Parent	Возвращает непосредственный родительский объект для объекта StatusBar.
	Text	Задает или возвращает выделенный текст.

В начало страницы

Методы

	Имя	Описание
	Animate	Отображает анимационное изображение в объекте StatusBar.
	Clear	Удаляет весь текст из объекта StatusBar.
	Highlight	Включает и выключает выделение текста в объекте StatusBar.
	Progress	Создает, изменяет и удаляет индикатор хода выполнения в объекте StatusBar.
	SetLineColumnCharacter	Задает индикаторы позиции и знака в строке текста в объекте StatusBar.
	SetXYWidthHeight	Задает индикаторы координат x, у, ширины и высоты в объекте StatusBar.
	ShowTextUpdates	Определяет, будут ли в объекте StatusBar отображаться обновления текста.

В начало страницы

Заметки

В интегрированной среде разработки имеется только один объект StatusBar.

В этом примере составляется перечень всех задач, включенных на данный момент в список TaskList, поэтому перед запуском кода следует убедиться, что в списке содержатся какие-либо задачи.

Примеры

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

См. также

Ссылки

EnvDTE - пространство имен

Поделиться через