この記事は翻訳者によって翻訳されたものです。 記事の文章にポインターを重ねると、原文のテキストが表示されます。 |
訳文
原文
|
StatusBar インターフェイス
Visual Studio 統合開発環境 (IDE: Integrated Development Environment) のステータス バーを表します。
アセンブリ: EnvDTE (EnvDTE.dll 内)
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
