Вопросик по контролу

[Alex01]

Написал пользовательский контрол, но хочу его усовершенствовать. Я передаю некоторые свойства в виде строки с разделителями:

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

Inherits System.Windows.Forms.UserControl

Dim smT As String = "id,,,0,,;kodcl,Класс.код,50,1,1,like;pname,Наименование,200,1,1,like;" ' Структура таблички
    Public Property myTable() As String
        Get
            myTable = smT
        End Get
        Set(ByVal value As String)
            smT = value
            Invalidate()
        End Set
    End Property

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

    Public ReadOnly Property AnalitPriznak() As String
        Get
            AnalitPriznak = aPr ' Где aPr – строка вида value1;value2;
        End Get
    End Property

Потом преобразовываю эту строку в массив.
Вопрос такого плана: как передать (и вообще возможно ли это) контролу массив и вернуть от контрола массив со значениями?

[Williams]

Я бы на твоем месте приделал класс хранящий значения и подходящую коллекцию

[MIT]

Да, возможно. Тут довольно сложный подход, реализующийся через внутренний редактор свойств (на подобие редактора коллекций элементов ListView, табов TabControl`а и т.д.). Информации по теме не очень много, но найти вполне реально - ищи по UITypeEditor

[Alex01]

По поводу класса хранящего значения и коллекции нет ли примерчиков?

[Williams]

Dictionary, List, в зависимости от того, что конкретно требуется.

Класс

Приватные поля

Свойства

Конструктор(ы)

Например:

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

Class Customer

private nameValue as string
private addressValue as string
private phoneNumberValue as string

public property Name

Get
Return nameValue
End Get
Set (value as string)
nameValue=Value
End Set
end property

и т.п.

Конструкторов также может быть несколько:

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

Public Sub New (name as string, address as string)
nameValue = name
addressValue = address
End Sub

Public Sub New (name as string, address as string, phoneNumber as string)
nameValue = name
addressValue = address
phoneNumberValue = phoneNumber

End Sub

Ну и End Class не забыть...

ЗЫ код набил на коленке

Будут вопросы, пиши

[Alex01]

Уважаемый Williams, пытаюсь использовать Ваш код, но вот кроме доп. свойств контрола ничего не получил. В идеале мне необходимо передать сформированный многомерный массив созданный на основе структуры.

[Williams]

Ну вот ты создал класс с твоими данными, дальше юзай к примеру лист: List(Of имя_класса)
Мы ж не знаем что конкретно тебе нужно

[Alex01]

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

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

        Dim kf(1) As String
        kf(0) = "emp_id"
        kf(1) = "fname"
        AnalitTable1.SQLkeyField = kf

Само свойство контрола описываю так:

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

    Dim sKey() As String = Nothing
    Public Property SQLkeyField() As Object
        Get
            SQLkeyField = sKey
        End Get
        Set(ByVal value As Object)
            'Try
            sKey = CType(value, String())
            Invalidate()
        End Set
    End Property

Но при использовании получаю ошибку "Не удалось привести тип объекта "System.String" к типу "System.String[]". "
Что я делаю неверно?

[Viper]

А что мешает обяъвить тип свойства как String()?

[RayShade]

Наверное потому что надо было сделать вот так:

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

Dim kf As String() = New String() {"emp_id", "fname"}
AnalitTable1.SQLkeyField = kf


[Viper]

Гм... Хоть так:

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

Dim kf(1) As String
kf(0) = "emp_id"
kf(1) = "fname"
AnalitTable1.SQLkeyField = kf

Хоть эдак

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

Dim kf As String() = New String() {"emp_id", "fname"}
AnalitTable1.SQLkeyField = kf

а ошибки "Не удалось привести тип объекта "System.String" к типу "System.String[]". " не получаю.

[Alex01]

С массивом разобрался, но вот следующая проблема:

Определяю в контроле свойство

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

  Structure StructureTable
        Dim Field As String
        Dim Caption As String
        Dim Wight As Integer
    End Structure

    Dim smT() As StructureTable = Nothing
    Public Property myTable() As object
        Get
            myTable = CType(smT, StructureTable())
        End Get
        Set(ByVal value As Object)
            smT = CType(value, StructureTable())
            Invalidate()
        End Set
    End Property

Далее из формы пытаюсь передать свойства

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

    Structure StructureTable
        Dim Field As String
        Dim Caption As String
        Dim Wight As Integer
    End Structure

    Private Sub Form1_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Me.Invalidated
        ....
        Dim mt(2) As StructureTable
        mt(0).Field = "emp_id"
        mt(0).Wight = 100
        mt(0).Visible = True
        mt(1).Field = "fname"
        mt(1).Caption = "ФиО"
        mt(1).Wight = 250
       ....

При компиляции вылетает ошибка: "Не удалось привести тип объекта "StructureTable[]" к типу "StructureTable[]"."
Посоветуйте, что я опять делаю неверно?

[MIT]

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

[Alex01]

Как это сделать? Определить в контроле как Public Structure StructureTable?

[MIT]

Как вариант - да.

[Alex01]

Спасиб, разобрался!

[1Steps]

Лучше вынеси структуру в отдельный класс.

[MIT]

Для контрола - далеко не факт что лучше

[Alex01]

Уважаемые знатоки, возникла необходимость обработать двойное нажатие по контролу.

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

    Private Sub MyControl1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyControl1.DoubleClick
        MsgBox(“!”)
    End Sub

В свойствах контрола событие DoubleClick присутствует, но видимо его еще нужно описать в самом контроле, но как?

[Viper]

Уважаемые знатоки, возникла необходимость обработать двойное нажатие по контролу.

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

    Private Sub MyControl1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyControl1.DoubleClick
        MsgBox(“!”)
    End Sub

В свойствах контрола событие DoubleClick присутствует, но видимо его еще нужно описать в самом контроле, но как?

Не понял? Если событие присутствует, то что тебе еще надо? Как то вопрос неудачно сформулирован.

[Alex01]

Дело в том, что двойной клик по моему контролу почему-то не работает. А событие в свойствах присутствует (аналогично перечню событий win формы)

[Alex01]

Методом «научного тыка» разобрался, что DoubleClick действительно работает. Но вот оказывается в чем загвоздка: я в контроле использую DataGrid для отображения данных, и двойное нажатие на DataGrid контрола должно обрабатываться в коде программы.
В контрол добавил следующий код:

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

    Public Sub DataGrid_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid.DoubleClick
        SendAnalit()
    End Sub

Теперь не знаю как это свойство отловить в коде программы? Или я на ложном пути?

[Alex01]

Разробрался. Мне нехватало

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

Public Event DataGridDoubleClick As EventHandler

Всем спасибо