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