VB.NET控件自动排序相关代码示例指南

在如今这个信息技术更新速度奇快的时代中，程序员是幸福的。因为他们可以通过这些不断更新的技术带来的更重帮助，轻松的完成各项工作需求。VB.NET编程语言就是其中一个作用比较大的编程语言。#t#

在VB.NET中，面对大量相同控件的整齐排列时，虽可在设计时排列好，但难免在调试中不小心移动，或后来又增减一些。于是有人用语句在程序中调节，其艰辛是可想而知的(笔者深有体会),即使位置排好了，由于控件添加的先后问题，其索引属性(.TabIndex)往往一片混乱.能不能让控件的位置、索引属性的排序实现自动化呢？经过一番思索，笔者终于找到了很好的VB.NET控件自动排序解决办法，并成功应用于自己开发的注册表修改器中。

例子：新建工程，放入一个Frame控件Frame1，再在Frame1 中放入4个复选框checkbox1、checkbox2、checkbox3、checkbox4
在form_load()子过程中加入一句:ArrangeChildren frame1 运行结果为4个复选框等间距整齐地排列在其容器frame1 中。在设计窗口中，你可以任意调整它们的上下位置，运行后将按它们设计时的上下顺序整齐排列，并且它们的索引顺序按由下到大排列。(索引顺序的作用大家知道吧——让你的程序支持键盘操作)。更妙的是，你可在容器中任意增加、减少控件数量（类型要一样），运行后它们都能整齐排列，从而一劳永逸。

以下是具体的VB.NET控件自动排序子过程代码

 
 
 
  
  
  Public Sub ArrangeChildren(Father As Control) 'Father为容器控件

功能：

（1）对容器控件内的子控件的TabIndex值进行排序

排序依据是：由上到下(.Top值由小到大),TabIndex小到大

（2）对容器控件内的子控件等间距整齐排列

 
 
 
  
  
  Dim Child As Control '窗体中的任一控件    
  
  Dim Children() As Control '属于容器中的控件数组    
  
  Dim Tags() As Integer '元素的值记录了控件的TabIndex值    
  
  Dim TempChild As Control '临时控件    
  
  Dim i As Integer, j As Integer    
  
  Dim x As Integer, Y As Integer    
  
  Dim wChild As Integer, hChild As Integer    
  
  Dim num As Integer    
  
  Dim strTemp As String    
  
  Const ADJUST as integer=150 ’微调(可适当增减)    
  
  num = 0   
  
  For Each Child In Father.Parent.Controls ‘搜索容器所在窗体中的每一个控件    
  
  If TypeOf Child Is CheckBox Then ‘这个判断是为了提高效率,可不要    
  
  If Child.Container Is Father Then    
  
  ReDim Preserve Children(num)    
  
  ReDim Preserve Tags(num)    
  
  Set Children(num) = Child    
  
  Children(num).Tag = num   
  
  Tags(num) = Children(num).TabIndex    
  
  numnum = num + 1    
  
  End If    
  
  End If    
  
  Next    
  
     
  
  If num < 1 Then Exit Sub ‘当容器中一个子控件也没有时，退出    
  
  num = UBound(Children)     
  
  SortProc Tags ‘将数组Tags()按由小到大顺序排序    
  
  ArrayTagProc Children ‘越在屏幕上面的控件，其<.top>值越小，故让其<.tag>值也小    
  
  For i = 0 To num    
  
  Children(i).TabIndex = Tags(Children(i).Tag)    
  
  Next i ‘越在屏幕上面的控件，其索引值小（实现索引值的排序）    
  
  ArrayTabIndexProc Children '    
  
  x = 200 ‘控件在其容器中的起始位置    
  
  wChild = 4000 ‘控件宽度    
  
  hChild = 255 ‘控件高度    
  
  Y = (Father.Height - ADJUST - (num + 1) * hChild) / (num + 2)    
  
  For j = 0 To num    
  
  Children(j).Move x, (j + 1) * Y + j * hChild + ADJUST, wChild, hChild    
  
  Next j    
  
  End Sub    
  
     
  
  Public Sub SortProc(ArrInt() As Integer) '对整数数组进行排序    
  
  Dim i As Integer, j As Integer    
  
  Dim temp As Integer    
  
  Dim num As Integer '数组大小    
  
  num = UBound(ArrInt)    
  
  For i = 0 To num    
  
  For j = i + 1 To UBound(ArrInt)    
  
  If ArrInt(i) > ArrInt(j) Then    
  
  temp = ArrInt(i)    
  
  ArrInt(i) = ArrInt(j)    
  
  ArrInt(j) = temp    
  
  End If    
  
  Next j    
  
  Next i    
  
  End Sub    
  
     
  
  Public Sub ArrayTabIndexProc(ArrControl() As Control) '对控件数组进行排序    
  
  '控件数组 ArrControl(0),ArrControl(1),ArrControl(2),.....ArrControl(n)    
  
  '的TabIndex值按由低到高顺序排列    
  
  Dim i As Integer, j As Integer    
  
  Dim temp As Control    
  
  Dim num As Integer    
  
     
  
  num = UBound(ArrControl)    
  
  For i = 0 To num    
  
  For j = i + 1 To UBound(ArrControl)    
  
  If ArrControl(i).TabIndex > ArrControl(j).TabIndex Then    
  
  Set temp = ArrControl(i)    
  
  Set ArrControl(i) = ArrControl(j)    
  
  Set ArrControl(j) = temp    
  
  End If    
  
  Next j    
  
  Next i    
  
  End Sub    
  
     
  
  Public Sub ArrayTagProc(arr() As Control) '对控件的<.tag>属性进行排序    
  
  '越在屏幕上面的控件，其<.top>值越小，故让其<.tag>值也小（最综的目的是让其索引值小）    
  
  Dim i As Integer, j As Integer    
  
  Dim temp As Variant    
  
  Dim num As Integer    
  
  Dim arrTop() As Integer '存储控件<.Top属性>数组    
  
     
  
  num = UBound(arr)    
  
  ReDim arrTop(num)    
  
  For i = 0 To num    
  
  arrTop(i) = arr(i).Top    
  
  Next    
  
  SortProc arrTop '按照由小到大顺序    
  
  For i = 0 To num    
  
  For j = 0 To num    
  
  If arr(i).Top = arrTop(j) Then arr(i).Tag = j   
  
  Next j    
  
  Next i    
  
  End Sub

以上VB.NET控件自动排序程序在VB5.0、VB6.0中调试通过。读者可以用到自己的程序中，今后再也不用为调整位置和索引顺序而作一些简单重复劳动了。

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容