collection属性设计窗口如何显示上次添加的成员?

andywar 2005-03-15 10:22:28
在datagrid控件中添加属性,名称是为Columns,类型是Collection。
设计时打开该属性添加成员,完成添加后,关闭项目后重新打开项目,再次打开属性设计窗口,发现上次添加的项目没有在成员列表中,原代码如下:
'定义一个集合myCollection
Public Class myCollection
Inherits System.Collections.CollectionBase

Default Public Property Item(ByVal index As Integer) As DataGridTextBoxColumn
Get
Return CType(List(index), DataGridTextBoxColumn)
End Get
Set(ByVal Value As DataGridTextBoxColumn)
List(index) = Value
End Set
End Property

Public Function Add(ByVal value As DataGridTextBoxColumn) As Integer
Return List.Add(value)
End Function 'Add

Public Function IndexOf(ByVal value As DataGridTextBoxColumn) As Integer
Return List.IndexOf(value)
End Function 'IndexOf


Public Sub Insert(ByVal index As Integer, ByVal value As DataGridTextBoxColumn)
List.Insert(index, value)
End Sub 'Insert


Public Sub Remove(ByVal value As DataGridTextBoxColumn)
List.Remove(value)
End Sub 'Remove


Public Function Contains(ByVal value As DataGridTextBoxColumn) As Boolean
' If value is not of type Int16, this will return false.
Return List.Contains(value)
End Function 'Contains
End Class

'定义一个myCollection类型的变量
Private theDataGridTextBoxColumn As New myCollection

'定义一个集合类型是myCollection的属性
Public Property Columns() As myCollection
Get
Return theDataGridTextBoxColumn
End Get
Set(ByVal Value As myCollection)
Dim i As Integer
theDataGridTextBoxColumn.Clear()
For i = 0 To Value.Count - 1
theDataGridTextBoxColumn.Insert(i, Value(i))
Next
'theDataGridTextBoxColumn = Value
End Set
End Property
请大虾帮我看看问题出在哪里?怎么改?
...全文
57 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
andywar 2005-03-15
  • 打赏
  • 举报
回复
是不是
Public Property Columns() As myCollection
Get
Return theDataGridTextBoxColumn
这里的问题?
hamadou 2005-03-15
  • 打赏
  • 举报
回复
看了一下,除了 Public Sub Remove(ByVal value As DataGridTextBoxColumn)
List.Remove(value)
End Sub 'Remove
这里,移除前要判断包含否外,其他的没有发现什么。
运行后,同样也是填充进去的数据丢失,原因没找到,关键是我不知道它是如何存储这些信息的。呵呵。帮你顶!
haoco 2005-03-15
  • 打赏
  • 举报
回复
up

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧