none
デザイナーでコントロールを連動して配置したい RRS feed

  • 質問

  • 以下のようなクラスがあって、すべてVSのツールボックスに並べてあるときに、ツールボックスからフォーム上にHogeManagerをD&Dしたときに、MyFooTextBoxとMyBarTextBoxも自動で配置され、それぞれがHogeManagerの各プロパティに設定されるようにはできないものでしょうか?



    Public Class HogeManager
        Inherits System.ComponentModel.Component

        Private WithEvents _myFooTextBox As MyFooTextBox
        Private WithEvents _myBarTextBox As MyBarTextBox

        <System.ComponentModel.Browsable(True), System.ComponentModel.Category("Custom")> _
        Public Property MyFooTextBox() As MyFooTextBox
            Get
                Return Me._myFooTextBox
            End Get
            Set(ByVal value As MyFooTextBox)
                Me._myFooTextBox = value
            End Set
        End Property

        <System.ComponentModel.Browsable(True), System.ComponentModel.Category("Custom")> _
        Public Property MyBarTextBox() As MyBarTextBox
            Get
                Return Me._myBarTextBox
            End Get
            Set(ByVal value As MyBarTextBox)
                Me._myBarTextBox = value
            End Set
        End Property

    End Class

    Public Class MyFooTextBox
        Inherits System.Windows.Forms.TextBox
    End Class

    Public Class MyBarTextBox
        Inherits System.Windows.Forms.TextBox
    End Class

     

    のときにフォーム上にHogeManagerをD&Dしたら、



    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
        Inherits System.Windows.Forms.Form
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.HogeManager1 = New HogeManager
            Me.MyFooTextBox1 = New MyFooTextBox
            Me.MyBarTextBox1 = New MyBarTextBox
            '
            'HogeManager1
            '
            Me.HogeManager1.MyFooTextBox = MyFooTextBox1
            Me.HogeManager1.MyBarTextBox = MyBarTextBox1
        End Sub
        Friend WithEvents HogeManager1 As HogeManager
        Friend WithEvents MyFooTextBox1 As MyFooTextBox
        Friend WithEvents MyBarTextBox1 As MyBarTextBox
    End Class

     

    というような感じになってほしい。
    2008年10月28日 2:05

回答

すべての返信