表单的 Width 属性不是它设置的值，尽管看起来不错

Question

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

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

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

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

在表单卸载事件期间，调用子程序来记录下一次的设置，其中包含以下代码：

     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，即小字体中的 780px，大字体中的 975px。

请注意，除了 96（又名“小字体”）和 120（又名“大字体”）之外，win7 还提供了更多的 DPI 尺寸，这完全使 VB6 表单子系统失败。因此，您可以放心地假设 VB6 中的像素大小为 15 或 12 缇。