表单的宽度属性不是它设置的，虽然看起来不错

Question

表单的边框样式是“固定的”，因此用户无法手动更改表单的尺寸。

有一个菜单项允许用户为表单选择 2 个宽度设置中的 1 个，选择宽度 (width = 11715) 会显示额外的控件。

在加载事件期间，调用 sub 来设置各种值，其中包括以下代码：

     If rs.Fields("ShowAll").Value = True then
        Me.Width = 11715

在表单卸载事件期间，会调用一个 sub 来记录下一次的设置，其中包括以下代码：

     If Me.Width = 11715 Then
        rs.Fields("ShowAll").Value = True
     Else
        rs.Fields("ShowAll").Value = False
     End If

一位用户报告了一种情况，即使他总是以“宽”形式关闭它，但它总是以“窄”形式打开。

我以前从未见过这种情况，也没有人报告过，这并不是说其他​​地方没有发生。

他的机器是windows 7，屏幕分辨率是1280 X 1024。

编辑： 此外，当我检查他的数据库时，“ShowAll”的值为 False。

Answer 1

我建议使用表单级布尔变量而不是特定数字。如果你想让它更容易理解，你也可以将它包装在一个属性中。加载应用程序时使用数据库值初始化变量，并在单击按钮以选择表单大小时切换值。

Private m_blnExpanded As Boolean

Private Property Let Expanded(ByVal vExpanded As Boolean)

       m_blnExpanded = vExpanded

End Property
Private Property Get Expanded() As Boolean

       Expanded = m_blnExpanded

End Property

Answer 2

如果您要对宽度进行硬编码，那么您必须选择小字体的 15 倍数和大字体的 12 倍数的缇。两者的最小倍数是 60，因此最接近硬编码值的是 11700，即小字体为 780 像素，大字体为 975 像素。

请注意，除了 96（又名“小字体”）和 120（又名“大字体”）之外，win7 还提供了更多的 DPI 尺寸，这完全无法满足 VB6 表单子系统的要求。所以你可以安全地假设在 VB6 中像素大小是 15 或 12 缇。