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 |
引数CBで指定されるコマンドバーにコメント追加ボタンを貼付けます。in引数:
objControl:initializeメソッド実行後のclsIHCControlクラスのインスタンスを指定します。発生する実行時エラー:
CB: [ヘッダコメント挿入]ボタンを貼付けるコマンドバーを指定します。
Before: [ヘッダコメント挿入]ボタンを貼付ける場所を指定します。
1000:すでにAddされてた場合
※1:それ以外の場合はVBA標準の実行時エラーが発生します。(例えば、引数CBがNothingだった場合)
※2:実行時エラーが発生した場合、ボタンの貼付けはしません。
Delete |
Addメソッド後に呼び出した場合、 [ヘッダコメント挿入]ボタンをAddメソッド の引数CBで指定したコマンドバーから削除し、再度、Addメソッドを呼び出す事が出来るようにな ります。
既に削除済みの場合、Addメソッドを呼び出す前だった場合は、何も起こりません。