请教，数组作为在组件内的属性，该如何做，谢谢！！！

Question

我想用newlist1作为组件的属性，还请帮助修改代码，谢谢！！！

Structure NEWtableCell
        Dim x1 As Single
        Dim x2 As Single
        Dim Name As String
        Dim Name1() As bleCell
    End Structure
    Public Structure bleCell
        Dim NEWtableCellBj As UserEnum
        Dim x1 As Single
        Dim x2 As Single
        Dim Name As String
        Dim cellcor As Color
    End Structure
   
    Private _Row As Integer = 1
    Private _Col As Short = 1 
  
    Public Property Col() As Short
        Get
            Return _Col
        End Get
        Set(ByVal Value As Short)
            _Col = Value
            ReDim Preserve newlist1(Row)
         
            Invalidate()
        End Set
    End Property
    Public Property Row As Integer
        Get
            Return _Row
        End Get
        Set(ByVal value As Integer)
            _Row = value
            For i = 0 To Col - 1
                ReDim Preserve newlist1(i).Name1(Row)
            Next
            Invalidate()
        End Set
    End Property
    Public newlist1() As NEWtableCell 
   
    Public Property newlist() As NEWtableCell
        Get
            Return _newlist(1)
        End Get
        Set(ByVal value As NEWtableCell)
            _newlist(1) = value
            '  For i = 0 To Col - 1
            'ReDim Preserve newlist1(i).Name1(Row)
            '  Next
            Invalidate()
        End Set
    End Property
  
 Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Me.DoubleBuffered = True
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        '  MsgBox(newlist1.Length)
    End Sub
   
End Class

Answer 1

你究竟要完成什么功能呢？哪儿出错了？请给出具体信息，谢谢！

---

帮助一起改进论坛质量？提交你的意见于此。
我的博客园
慈善点击，点击此处
和谐拯救危机，全集下载，净化人心

Answer 2

谢谢！！！不好意思，由于在家不能正常登陆论坛，不能正常回复，还请见谅。

我想求教的是：在组件的一个属性里，给newlist里的Name1添加维数（原有内容不变）或减少维数，并保存在组件里，谢谢！！！

Public Property newlist() As NEWtableCell
        Get
            Return _newlist(1)
        End Get
        Set(ByVal value As NEWtableCell)
            _newlist(1) = value
            '  For i = 0 To Col - 1
            'ReDim Preserve newlist1(i).Name1(Row)
            '  Next
            Invalidate()
        End Set
    End Property

Answer 3

请教版主：可否能找到如 仿集合编辑器这样的源码，谢谢！！！

我也写了一个如下面的窗体A，供组件调用，想在A内改变newlist1里的内容，并保存在组件里。

还请版主给予帮助，谢谢！！！

Answer 4

可以，你参考：

Imports System.ComponentModel
Public Class UserControl1
    Private _users As List(Of User) = Nothing
 
    ''' <summary>
    ''' 自定义类
    ''' </summary>
    <TypeConverter("ExpandableObjectConverter")>
    Public Class User
        <NotifyParentProperty(True)>
        Public Property ID As Integer = 0
        <NotifyParentProperty(True)>
        Public Property Name As String = String.Empty
    End Class
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    <TypeConverter("CollectionConverter")>
    Public ReadOnly Property Users As List(Of User)
        Get
            If (_users Is Nothing) Then
                _users = New List(Of User)
            End If
            Return _users
        End Get
    End Property
    Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
End Class

---

帮助一起改进论坛质量？提交你的意见于此。
我的博客园
慈善点击，点击此处
和谐拯救危机，全集下载，净化人心

Answer 5

谢谢！！！祝蛇年万事如意，谢谢！！！