温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

解析VB.NET控件自动排序代码相关信息

发布时间:2020-05-30 13:18:30 来源:网络 阅读:385 作者:yzuisoz 栏目:编程语言

在如今这个信息技术更新速度奇快的时代中,程序员是幸福的。因为他们可以通过这些不断更新的技术带来的更重帮助。轻松的完成各项工作需求。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控件自动排序程序在VB5.0、VB6.0中调试通过。读者可以用到自己的程序中,今后再也不用为调整位置和索引顺序而作一些简单重复劳动了。
 

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI