次の方法で共有


StatusBar インターフェイス

Visual Studio 統合開発環境 (IDE: Integrated Development Environment) のステータス バーを表します。

名前空間:  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 StatusBar の x、y、幅、高さの各座標のインジケーターを設定します。
パブリック メソッド ShowTextUpdates StatusBar にテキスト更新を表示するかどうかを決定します。

このページのトップへ

解説

IDE には StatusBar オブジェクトが 1 つだけ存在します。

この例では、現在 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 名前空間