自己动手实现VB.NET控件数组

开发 后端
这里介绍可以自己写一个类来实现VB.NET控件数组的功能。他们都有现成的代码,我拿来用了,很好用。这里我就只简单说一下我在用这个类的过程中出现的问题。

VB.NET经过长时间的发展,很多用户都很了解VB.NET了,这里我发表一下个人理解,和大家讨论讨论。由于项目的需求又变了,我必须要在我的窗口上根据读取的文件不同添加不同的checkbox,我本以为VB.NET和vb一样一定会有控件数组呢,结果网上的高手们都说没有VB.NET控件数组这个概念的。不过可以自己写一个类来实现VB.NET控件数组的功能。他们都有现成的代码,我拿来用了,很好用。这里我就只简单说一下我在用这个类的过程中出现的问题。应该比较值得提一下。

  1. Public Class CheckBoxArrClass CheckBoxArr  
  2. Inherits System.Collections.CollectionBase  
  3. Private ReadOnly ParentGrpBx As System.Windows.Forms.GroupBox  
  4. Public Sub New()Sub New(ByVal pGrpBx As System.Windows.Forms.GroupBox)  
  5. ParentGrpBx = pGrpBx 
  6. End Sub  
  7. Default Public ReadOnly Property Item()Property Item
    (ByVal index As Integer) As System.Windows.Forms.CheckBox  
  8. Get  
  9. Return Me.List.Item(index)  
  10. End Get  
  11. End Property  
  12. Public Sub AddItem()Sub AddItem()  
  13. Dim CheckBox1 As New System.Windows.Forms.CheckBox  
  14. Me.List.Add(CheckBox1)  
  15. ParentGrpBx.Controls.Add(CheckBox1)''向窗体中增加控件  
  16. CheckBox1.Tag = Me.Count''Count属性从CollectionBase 继承  
  17. CheckBox1.Top = Me.Count * 30  
  18. CheckBox1.Left = 200 
  19. CheckBox1.Text = "CheckBox" & Me.Count.ToString  
  20. End Sub  
  21.  
  22. Public Sub AddItem()Sub AddItem(ByVal CheckBox1 As System.Windows.Forms.CheckBox)  
  23. Me.List.Add(CheckBox1)  
  24. End Sub  
  25.  
  26. Public Sub RemoveItem()Sub RemoveItem()  
  27. If Me.Count > 0 Then  
  28. ParentGrpBx.Controls.Remove(Me(Me.Count - 1))  
  29. Me.List.RemoveAt(Me.Count - 1)  
  30. End If  
  31. End Sub  
  32. End Class  

这里要提的问题很简单:

1、添加的控件要有个容器,也就是你要向哪个地方添加控件的地方。这里,在我标为红色的部分设置了添加控件的“父亲”,你可以直接添加到你的窗体里,那么就可以将红色部分改写为:“ParentForm”和“form”即将那一句改为:Private ReadOnly ParentForm As System.Windows.Forms.Form。在程序里,我是将checkbox添加到一个groupbox里的。所以向哪个容器添加控件就是需要你改的了。

2、控件的布局。记住,控件的位置永远是相对于他的容器的坐标的。一下给出我添加控件的摆放代码:三个checkbox占一行。

  1. Public Sub GenerateDynCheckBox()Sub GenerateDynCheckBox(ByRef langList As ArrayList)  
  2. CheckBox1 = New CheckBoxArr(GroupBoxAttrInfo)  
  3. Dim i As Integer  
  4. For i = 0 To langList.Count - 1 'langList 存放各国语言English,French。。。。  
  5. 'add the checkbox array  
  6. CheckBox1.AddItem()  
  7. CheckBox1(i).Text = langList(i)  
  8. CheckBox1(i).Checked = True 
  9. CheckBox1(i).Height = 28 
  10. 'layout the checkboxes  
  11. If i = 0 Then  
  12. CheckBox1(i).Top = 20 
  13. CheckBox1(i).Left = 10 
  14. ElseIf i = 1 Then 'Or 2 Then  
  15. CheckBox1(i).Top = 20 
  16. CheckBox1(i).Left = CheckBox1(i - 1).Left + CheckBox1(i - 1).Width  
  17. ElseIf i = 2 Then  
  18. CheckBox1(i).Top = 20 
  19. CheckBox1(i).Left = CheckBox1(i - 1).Left + CheckBox1(i - 1).Width  
  20. ElseIf i <> 0 And i <> 1 And i <> 2 Then  
  21. CheckBox1(i).Top = CheckBox1(i - 3).Top + CheckBox1(i - 3).Height + 10  
  22. CheckBox1(i).Left = CheckBox1(i - 3).Left  
  23. End If  
  24. Next i  
  25. End Sub 

3、删除控件。用Checkbox的RemoveItem方法,不要使用RemoveAt方法。RemoveAt方法会导致删除失败,会提示NullReferenceException的错误,具体为什么我也没有再进一步研究,如果有高手知道,可以指教一下,小女在这里多谢了。

以上就是我在使用VB.NET控件数组的一些心得,拙见,见笑。

【编辑推荐】

  1. 详谈VB.NET编码规范经验
  2. 描述VB.NET工程转换成步骤
  3. 讲述C#与VB.NET间移植的技巧
  4. 分享个人总结VB.NET多线程
  5. 剖析VB.NET TextBox控件
责任编辑:佚名 来源: 比特网
相关推荐

2009-10-16 10:47:58

VB.NET创建控件数

2010-01-12 15:54:47

VB.NET动态控件数

2009-10-27 14:50:25

VB.NET控件数组

2010-01-18 13:12:43

VB.NET控件数组

2009-10-27 09:01:54

VB.NET内存指针

2009-10-22 13:09:19

VB.NET动态控件数

2010-01-07 17:00:38

VB.NET控件数组

2010-01-07 17:10:01

VB.NET控件数组问

2009-10-28 09:25:18

VB.NET List

2009-10-27 15:07:40

VB.NET支付宝接口

2010-01-19 10:03:35

VB.NET Labe

2009-10-23 13:14:38

2010-01-13 10:53:24

VB.NET控件

2009-10-20 10:16:24

VB.NET COMB

2009-10-14 10:19:57

VB.NET Doma

2009-10-14 16:04:43

VB.NET Noti

2010-01-18 19:36:52

VB.NET调整控件

2009-10-16 16:01:07

VB.NET实现叠代使

2009-10-14 11:27:20

VB.NET Grou

2009-10-16 14:31:48

VB.NET Noti
点赞
收藏

51CTO技术栈公众号