clsIHCButtonクラスについて

 [ヘッダコメント挿入]ボタンです。

メソッドの定義
Public Sub Add(ByVal objControl As clsIHCControl _
                                , ByVal CB As CommandBar, _
                                ByVal Before As Long)

引数CBで指定されるコマンドバーに[ヘッダコメント挿入]ボタンを貼付けます。
Public Sub Delete()
[ヘッダコメント挿入]ボタンをAddメソッドの引数CBで指定したコマンドバーから削除します。
Private Sub m_CBE_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
[ヘッダコメント挿入]ボタンが押下された時に呼び出されます。


メソッドの詳細

Add
Public Sub Add(ByVal objControl As clsIHCControl _
                                , ByVal CB As CommandBar, _
                                ByVal Before As Long)


メソッドの説明:
引数CBで指定されるコマンドバーにコメント追加ボタンを貼付けます。
in引数:
objControl:initializeメソッド実行後のclsIHCControlクラスのインスタンスを指定します。
CB: [ヘッダコメント挿入]ボタンを貼付けるコマンドバーを指定します。
Before: [ヘッダコメント挿入]ボタンを貼付ける場所を指定します。

発生する実行時エラー:
1000:すでにAddされてた場合

※1:それ以外の場合はVBA標準の実行時エラーが発生します。(例えば、引数CBがNothingだった場合)
※2:実行時エラーが発生した場合、ボタンの貼付けはしません。
Delete
Public Sub Delete()

メソッドの説明:
 Addメソッド後に呼び出した場合、 [ヘッダコメント挿入]ボタンをAddメソッド の引数CBで指定したコマンドバーから削除し、再度、Addメソッドを呼び出す事が出来るようにな ります。
 既に削除済みの場合、Addメソッドを呼び出す前だった場合は、何も起こりません。