как создать конструктор для моего компонента

[viter.alex]

У меня есть мой компонент, который выглядит так:

Пишу конструктор:

Код: Выделить всё

Public Sub New(ByVal nbr As Integer)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

       StripNbr_Lbl.Text = nbr.ToString ' Add any initialization after the InitializeComponent() call.

    End Sub

Но при компиляции выдает ошибку


В чем ошибка?

Задача состоит в том, что бы при создании компонента в RunTime задавать номер слева.

[Nord777]

Попробуй добавить конструктор без параметров

[viter.alex]

Попробуй добавить конструктор без параметров

Все равно не работает! Пишет то же самое. Причем компонент на форму можно добавить обычным способом, но задать создание в программе не получается. А ведь ради этого он, собственно и делался.

[Viper]

Попробуй добавить конструктор без параметров

Все равно не работает! Пишет то же самое. Причем компонент на форму можно добавить обычным способом, но задать создание в программе не получается. А ведь ради этого он, собственно и делался.

Код в студию!

[viter.alex]

Код в студию!

Код: Выделить всё


Imports System.Drawing.Color
Public Class StripFields
    Inherits System.Windows.Forms.UserControl

    Private m_Nbr, m_Qnt As Integer
    Private m_Lenght, m_Width As Double
    Private m_BackColor As System.Drawing.Color

    Public Sub New(ByVal nbr As Integer)

    '    ' This call is required by the Windows Form Designer.
        InitializeComponent()

        StripNbr_Lbl.Text = nbr.ToString ' Add any initialization after the InitializeComponent() call.

    End Sub
    Public Property StripLenght() As Double
        Get
            Return m_Lenght
        End Get
        Set(ByVal value As Double)
            m_Lenght = value
            Lenght_UpDwn.Value = m_Lenght
        End Set
    End Property

    Public Property StripWidth() As Double
        Get
            Return m_Width
        End Get
        Set(ByVal value As Double)
            m_Width = value
            Width_UpDwn.Value = m_Width
        End Set
    End Property

    Public Property StripQnt() As Integer
        Get
            Return m_Qnt
        End Get
        Set(ByVal value As Integer)
            m_Qnt = value
            Qnt_UpDwn.Value = m_Qnt
        End Set
    End Property

    Public Property StripNbr() As Integer
        Get
            Return m_Nbr
        End Get
        Set(ByVal value As Integer)
            m_Nbr = value
            StripNbr_Lbl.Text = m_Nbr.ToString
        End Set
    End Property

    Public Property BorderColor() As System.Drawing.Color
        Get
            Return m_BackColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            m_BackColor = value
            MyClass.BackColor = m_BackColor
        End Set
    End Property

    Private Sub Erase_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Erase_Btn.Click
        Me.Controls.Clear()
    End Sub
End Class

[Ramzes]

viter.alex
ну и где здесь конструктор по умолчанию (без параметров)

[viter.alex]

Выкладываю весь проект, попробуй сам убрать параметры из конструктора. Не работает

[viter.alex]

Попробовал сделать так (утро вечера мудренее) и заработало.

Код: Выделить всё

Public Sub New() 'ByVal nbr As Integer

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Public Sub New(ByVal nbr As Integer)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        StripNbr_Lbl.Text = nbr.ToString ' Add any initialization after the InitializeComponent() call.

    End Sub

Затем в форму нужно импортировать WindowsControlLibrary1
Вот это работает

Код: Выделить всё

Imports WindowsControlLibrary1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As New StripFields(4)
        Me.Controls.Add(a)

    End Sub
End Class


А почему нельзя создать свой констуктор без конструктора по умолчанию?

[Nord777]

А почему нельзя создать свой констуктор без конструктора по умолчанию?

Потому что этого требует TestContainer

[viter.alex]

Потому что этого требует TestContainer

Что за зверь такой. Объясни с целью повышения моей образованности. Я не программист, так балуюсь по работе, лишние $100 к зарплате зарабатываю.

[Nord777]

Что за зверь такой.

Если в двух словах, то это автоматически генерируемая форма, для тестирования твоего контрола. Эта фича задействуется когда при создании проекта выбираешь шаблон "Windows Control Library"