[Windowsアプリケーション][VisualBasic] カスタムコントロールは難しい

kazuto — Tue, 13 Jan 2009 16:28:00 GMT

カスタムコントロールの実装は難しい・・。

今回、某掲示板の質問で「TextBoxを継承したカスタムコントロールのスマートタグにある"MultiLine"を非表示にしたい。」と言うものがあり、解いてみようと試みたが完全に行き詰まりました。

まず、System.Windows.Forms.Design.ControlDesignerクラスの派生クラスを実装し、それをカスタムコントロールのDesignerAttributeに指定してみたがこれだと既存のControlDesignerを上書いてしまい継承元のControlDesignerの機能を捨てる事になってしまう。
具体的には既存のControlDesignerの機能を使用しつつも、「既存スマートタグ内のDesignerActionListを無効、または非表示にする」事が出来ないかやってみたが、この手の情報が余りにも無さすぎです・・。

とりあえずこんな感じの実装をしてみました。

Imports System
Imports System.ComponentModel
Imports System.ComponentModel.Design

Public Class CustomTextBoxActionList
    Inherits DesignerActionList

    Public Sub New(ByVal component As IComponent)
        MyBase.New(component)
    End Sub

    Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
        Dim items As New DesignerActionItemCollection()
        'とりあえずヘッダーアイテムのみ追加
        items.Add(New DesignerActionHeaderItem("Sample Header"))
        Return items
    End Function
End Class

このようにカスタムコントロールのスマートタグに追加するSystem.ComponentModel.Design.DesignActionListクラスの派生クラスを作り、確認用にヘッダーアイテムのみ返却。

次にカスタムコントロールクラスをこんな感じで。

Imports System
Imports System.ComponentModel
Imports System.ComponentModel.Design

Public Class CustomTextBox
    Inherits TextBox

    Private action As DesignerActionList

    Public Sub New()
        MyBase.New()
    End Sub

    Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
        MyBase.OnHandleCreated(e)

        If Me.Site Is Nothing Then Return

        Dim designerActionService As DesignerActionService = TryCast(Me.GetService(GetType(DesignerActionService)), DesignerActionService)
        Dim designerHost As IDesignerHost = TryCast(Me.GetService(GetType(IDesignerHost)), IDesignerHost)

        If (designerActionService IsNot Nothing) AndAlso (designerHost IsNot Nothing) Then
            Dim lists As DesignerActionListCollection = designerActionService.GetComponentActions(Me)
            'ここが微妙・・・
            For Each list As DesignerActionList In lists
                If list.GetType().Name = "TextBoxActionList" Then
                    designerActionService.Remove(Me, list)
                End If
            Next

            If Me.action Is Nothing Then
                Me.action = New CustomTextBoxActionList(Me)
            End If

            If Not lists.Contains(action) Then
                designerActionService.Add(Me, Me.action)
            End If
        End If
    End Sub
End Class

詳細としては

OnHandleCreatedメソッド内でDesignerActionServiceを取得する。
取得したDesignerActionServiceのGetComponentActionsメソッドを使用して既存のスマートタグアイテムを取得する。
既存のスマートタグアイテム("MultiLine")を、DesignerActionServiceのRemoveメソッドを使用して削除する。(今回名前判断をしてますが、他に判定方法が解らなかった・・)
カスタムスマートタグアイテムをDesignerActionServiceのAddメソッドを使用して追加する。

このような実装ですが、今までカスタムスマートタグを追加するならDesignerActionServiceクラスを使用して追加すれば良いと思っていたので、削除も同様にDesignerActionServiceクラスを使用して削除すれば良いと思っていたら削除されないわけです。

カスタムスマートタグアイテムはきちんと追加されるのに既存スマートタグを削除する事が出来ません！！！（キッパリ
そもそも、ここらへんで良く使用するDesigner～ホニャララやIDesigner～ホニャララなどと言った物の分かりやすい情報が上手く見つけれない。

皆さんはどのようにここらへんの勉強をされてますか？
本当に難しいですね・・・orz