解析VB.NET控件自動排序代碼相關信息

在現在這個信息技術更新速度奇快的時代中，程序員是幸福的。由於他們能夠經過這些不斷更新的技術帶來的更重幫助。輕鬆的完成各項工做需求。VB.NET編程語言就是其中一個做用比較大的編程語言。
   
    在VB.NET中，面對大量相同控件的整齊排列時，雖可在設計時排列好，但不免在調試中不當心移動，或後來又增減一些。因而有人用語句在程序中調節，其艱辛是可想而知的（筆者深有體會），即便位置排好了，因爲控件添加的前後問題，其索引屬性（。TabIndex）每每一片混亂。能不能讓控件的位置、索引屬性的排序實現自動化呢？通過一番思索，筆者終於找到了很好的VB.NET控件自動排序解決辦法，併成功應用於本身開發的註冊表修改器中。
    
    例子：新建工程，放入一個Frame控件Frame1,再在Frame1 中放入4個複選框checkbox一、checkbox二、checkbox三、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中調試經過。讀者能夠用到本身的程序中，從此不再用爲調整位置和索引順序而做一些簡單重複勞動了。