StatusBar-Schnittstelle

Artikel
08/10/2011

Stellt die Statusleiste in der integrierten Entwicklungsumgebung (IDE) von Visual Studio dar.

Namespace: EnvDTE
Assembly: EnvDTE (in EnvDTE.dll)

Syntax

'Declaration
<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

Der StatusBar-Typ macht die folgenden Member verfügbar.

Eigenschaften

	Name	Beschreibung
	DTE	Ruft das Erweiterbarkeitsobjekt der obersten Ebene ab.
	Parent	Ruft das unmittelbar übergeordnete Objekt eines StatusBar-Objekts ab.
	Text	Legt den markierten Text fest oder ruft ihn ab.

Zum Seitenanfang

Methoden

	Name	Beschreibung
	Animate	Zeigt ein animiertes Bild in StatusBar an.
	Clear	Löscht den gesamten Text aus StatusBar.
	Highlight	Aktiviert bzw. deaktiviert die Texthervorhebung in StatusBar.
	Progress	Erstellt, ändert und löscht das Monitor-Steuerelement in StatusBar.
	SetLineColumnCharacter	Legt die Indikatoren für Textspalten und Zeichen in StatusBar fest.
	SetXYWidthHeight	Legt die Indikatoren für die x-, y-, Breiten- und Höhenkoordinaten in StatusBar fest.
	ShowTextUpdates	Bestimmt, ob Textaktualisierungen in StatusBar angezeigt werden.

Zum Seitenanfang

Hinweise

Es gibt nur ein StatusBar-Objekt in der IDE.

In diesem Beispiel werden alle aktuell in TaskList enthaltenen Aufgaben aufgelistet. Stellen Sie daher sicher, dass vor dem Ausführen des Codes einige Aufgaben in der Aufgabenliste enthalten sind.

Beispiele

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

Siehe auch

Referenz

EnvDTE-Namespace

Freigeben über