如何动态增加groubox并且控制其大小 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何动态增加groubox并且控制其大小

共有2229人关注过本帖树形打印复制链接主题：如何动态增加groubox并且控制其大小

rjh4078

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3375 积分：24904 威望：0 精华：0 注册：2012/3/26 21:47:00

如何动态增加groubox并且控制其大小 发帖心情

Post By：2017/5/17 16:04:00 [只看该作者]

如附件

现在能实现动态增加控件

想实现将同表B中相同类型的控件显示在同一个groupbox中

groupbox的宽度和pan1相同或小于一个固定值

groupbox的高度根据里面的checkbox的多少动态变化

现在无法实现groupbox的动态位置调整

[此贴子已经被作者于2017/5/17 16:03:53编辑过]

rjh4078

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3375 积分：24904 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2017/5/17 16:04:00 [只看该作者]

为什么看不到附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/17 16:22:00 [只看该作者]

Dim tab1 As WinForm.TabControl=e.Form.Controls("TabControl1")
Dim gb As WinForm.GroupBox
e.Form.Controls("pan1").basecontrol.controls.clear
Dim ay As Integer = 10
For Each na As String In DataTables("表B").GetValues("类型","启用=1")
    gb=e.Form.CreateControl(na, ControlTypeEnum.GroupBox)
    gb.text=na
    e.Form.Controls("pan1").AddControl(gb)
    Dim i As Integer = 0
    Dim x As Integer = 10
    Dim y As Integer = 10
    For Each dr As DataRow In DataTables("表B").Select("启用=1 and 类型 = '" & na & "'")
        Dim btn = e.Form.CreateControl(dr("名称"), ControlTypeEnum.CheckBox)
        btn.Text = dr("名称")
        btn.Left = x + i*120
        btn.Top = y
        i = i+1
        If i Mod 2 = 0 Then
            i = 0
            x = 10
            y += 45
        End If
        gb.AddControl(btn)
    Next
    gb.width = e.Form.controls("pan1").width
    gb.height = y + 45
    gb.left = 0
    gb.Top = ay
    msgbox(ay)
    ay = ay + y + 45
Next

rjh4078

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3375 积分：24904 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2017/5/17 17:24:00 [只看该作者]

O(∩_∩)O谢谢我研究下

下一主题 >> << 上一主题

主题：如何动态增加groubox并且控制其大小