窗口控件间隙太宽 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

对于label的控件，不改变width和height等属性即可。

具体做一个实例发丧了测试。

代码改成

If e.Form.Width > 0 AndAlso e.Form.Height > 0 Then
    For Each c As Winform.Control In e.Form.Controls
        If Typeof c Is winform.label Then
            c.Left = c.Left * (e.Form.Width / vars("width"))
            c.Top = c.Top * (e.Form.Height / vars("height"))
            If e.Form.controls.contains(c.name & "1") Then
                Dim cc = e.Form.controls(c.name & "1")
                cc.Left = c.Left + c.width + 2
                'cc.Top = c.Top
                cc.Width = cc.Width * (e.Form.Width / vars("width"))
                cc.Height = cc.Height * (e.Form.Height / vars("height"))
            End If
        ElseIf e.Form.controls.contains(c.name.replace("1", "")) = False Then
            c.Left = c.Left * (e.Form.Width / vars("width"))
            c.Top = c.Top * (e.Form.Height / vars("height"))
            c.Width = c.Width * (e.Form.Width / vars("width"))
            c.Height = c.Height * (e.Form.Height / vars("height"))
        End If
    Next
    'msgbox(e.Form.Height / vars("height"))
    vars("width") = e.Form.width
    vars("height") = e.Form.height
End If

If e.Form.Width > 0 AndAlso e.Form.Height > 0 Then
    For Each c As Winform.Control In e.Form.Controls
        If Typeof c Is winform.label Then
            c.Left = c.Left * (e.Form.Width / vars("width"))
            c.Top = c.Top * (e.Form.Height / vars("height"))
            If e.Form.controls.contains(c.name & "1") Then
                Dim cc = e.Form.controls(c.name & "1")
                cc.Left = c.Left + c.width + 2
                'cc.Top = c.Top
                cc.Width = cc.Width * (e.Form.Width / vars("width"))
                cc.Height = cc.Height * (e.Form.Height / vars("height"))
            End If
        ElseIf c.name.contains("1") = False OrElse e.Form.controls.contains(c.name.replace("1", "")) = False Then
            c.Left = c.Left * (e.Form.Width / vars("width"))
            c.Top = c.Top * (e.Form.Height / vars("height"))
            c.Width = c.Width * (e.Form.Width / vars("width"))
            c.Height = c.Height * (e.Form.Height / vars("height"))
        End If
    Next
    'msgbox(e.Form.Height / vars("height"))
    vars("width") = e.Form.width
    vars("height") = e.Form.height
End If

你发的例子我测试没问题。请上传具体出错的实例。

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	窗口控件间隙太宽 Post By：2019/2/13 10:07:00 [只看该作者] 用户已被锁定

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/2/15 10:55:00 [只看该作者] 用户已被锁定

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/2/15 13:17:00 [只看该作者] 用户已被锁定

nuoyan88	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/2/15 16:00:00 [只看该作者] 用户已被锁定

主题：窗口控件间隙太宽