主题：关于窗口自动适应电脑屏幕大小的问题

好的！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

例子测试没问题。你在afterLoad事件最前面加入代码看弹出什么

 

msgbox(e.form.width & " " & e.form.height)

红袍老师，顺便问一下，我如何实现，当某某用户组打开窗体时，除了复选框，其他都是不可用状态。你看这段代码怎么写？

For Each c As Winform.Control In e.Form.Controls
    If Typeof c Is winform.Checkbox Then
       
    Else
        If user.group="XXXX" Then
            c.Enabled = False
        Else
            c.Enabled = True
        End If
    End If
Next

弹出的是1232 659，这好像是窗体的宽*高的像素啊。

22楼例子，我测试没有问题。

我两台电脑测试都有问题，真是心塞啊。还有红袍老师，刚才那段代码，我看了一下，这样一来，我窗体里的Checkbox除了XX用户组可用的话，其他的控件都变成灰色了，而且都变了颜色。我想实现针对XX用户组，其中Tables控件，TextBox22、Button2控件均可用，这可怎么改动啊？

22楼例子测试确实没有问题。

For Each c As Winform.Control In e.Form.Controls
    If Typeof c Is winform.Checkbox Then
       
    Else
        If user.group="XXXX" Then
            If c.name = "TextBox22" OrElse c.name = "Button2" Then
                c.Enabled = True
            Else
                c.Enabled = False
            End If
        Else
            c.Enabled = True
        End If
    End If
Next