Vb中控件的自动排列

原创 2001年02月15日 11:13:00

      Vb作为一种流行的可视化编程语言,其强大的界面设计功能为程序设计者省了不少时间。不过在面对大量相同控件的整齐排列时,虽可在设计时排列好,但难免在调试中不小心移动,或后来又增减一些。于是有人用语句在程序中调节,其艰辛是可想而知的(笔者深有体会),即使位置排好了,由于控件添加的先后问题,其索引属性(.TabIndex)往往一片混乱.能不能让控件的位置、索引属性的排序实现自动化呢?经过一番思索,笔者终于找到了很好的解决办法,并成功应用于自己开发的注册表修改器中。
例子:新建工程,放入一个Frame控件Frame1,再在Frame1 中放入4个复选框checkbox1、checkbox2、checkbox3、checkbox4
在form_load()子过程中加入一句:ArrangeChildren frame1 运行结果为4个复选框等间距整齐地排列在其容器frame1 中。在设计窗口中,你可以任意调整它们的上下位置,运行后将按它们设计时的上下顺序整齐排列,并且它们的索引顺序按由下到大排列。(索引顺序的作用大家知道吧——让你的程序支持键盘操作)。更妙的是,你可在容器中任意增加、减少控件数量(类型要一样),运行后它们都能整齐排列,从而一劳永逸。
以下是具体的子过程代码
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
                num = 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
以上程序在Vb5.0、Vb6.0中调试通过。读者可以用到自己的程序中,今后再也不用为调整位置和索引顺序而作一些简单重复劳动了。

Swift-三目条件运算符

// // main.swift // Swift-三目条件运算符 // // Created by dingkang on 16/2/2. // Copyright © 2016年...
  • Re1entlessF1ow
  • Re1entlessF1ow
  • 2016年02月14日 15:22
  • 6379

[两套控件]Vsflexgrid8.0和Vsview8.0 最新注册版

 372129399 【转】[两套控件]Vsflexgrid8.0和Vsview8.0 最新注册版 Vsflexgrid8.0(制作网格,树型目录...
  • gotosola
  • gotosola
  • 2014年03月06日 16:26
  • 4872

swift 学习笔记(10)-三目运算符

三目运算符 三目运算符由问号和冒号组成,先是一个表达式,判断语句,如果成立,就执行冒号前面的,如果不成立就执行冒号后面的,一对二的选择判断语句比如:一个小伙得了一百分let score = 100如...
  • u010474185
  • u010474185
  • 2016年11月14日 16:56
  • 2167

微信小程序常见错误及基本排除方法

也接触了不少人解决问题的过程里,有一些比较难以排查的可能性列举在这,方便大家看一下: 也欢迎大家把自己常用的排除方法列举在这,一起互相学习探讨! 1:ES6;使用es6可能导致...
  • u012421719
  • u012421719
  • 2016年12月20日 19:39
  • 11372

vsFlexGrid和vsPrinter8.0控件破解

  • 2010年01月30日 21:48
  • 754KB
  • 下载

c++11 你需要知道这些就够了

c++11新特性 举着火把寻找电灯 今天我就权当抛砖引玉,如有不解大家一起探讨。有部分内容是引用自互联网上的内容,如有问题请联系我。 T&& 右值引用 std::mo...
  • tangliguantou
  • tangliguantou
  • 2016年01月20日 17:16
  • 18921

读取注册表REG_DWORD类型的键值

读取注册表REG_DWORD类型的键值:DWORD dwRet = 0;  HKEY hKey;  if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SYSTEM//Select...
  • matrix2009
  • matrix2009
  • 2010年04月11日 17:53
  • 1355

正确读取REG_DWORD键值

#pragma comment(lib,"advapi32") #include #include #include int main() { LPCTSTR Regkey =...
  • oceanark
  • oceanark
  • 2016年07月13日 22:35
  • 417

数组中插入元素(C++)

用静态数组太麻烦,动态的相对来说跟方便 int main() { vector num(6,9);//产生6个9 for (int i = 0; i < num.size(); i++...
  • qq_32175379
  • qq_32175379
  • 2017年05月02日 16:00
  • 2186

命令行 命令 整理

直接切换到目录 格式 : cd /d [PathName] 例子: C:\>cd /d "d:\myWorkDir\" d:\MyWorkDir> 生成进程列表信息1 TASKLIST > c:...
  • LostSpeed
  • LostSpeed
  • 2013年06月04日 20:10
  • 9182
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Vb中控件的自动排列
举报原因:
原因补充:

(最多只允许输入30个字)