VB.NET中怎么实现自动排序

VB.NET中怎么实现自动排序,针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:空间域名、虚拟主机、营销软件、网站建设、霞山网站维护、网站推广。

在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中怎么实现自动排序问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注创新互联行业资讯频道了解更多相关知识。


新闻名称:VB.NET中怎么实现自动排序
网页网址:http://scyanting.com/article/josjsi.html