Vb6 固定大小的粗体窗口边框

在Windows Vista中，虽然某些窗口无法调整大小，但边框是粗体的。有没有办法在VB6中设置粗体窗口边框（不可编辑）？

窗体的

BorderStyle

属性决定窗口是否可调整大小。您可以在以下选项中进行选择：

0 - None (no border)
1 - Fixed Single
2 - Sizable
3 - Fixed Dialog
4 - Fixed ToolWindow
5 - Sizable ToolWindow

就Vista中窗口的视觉外观而言，大小调整行为不应受到影响

编辑 如果要防止窗体在保持可调整大小的边框样式的同时调整大小，可以在

窗体调整大小

事件中覆盖

高度

和

宽度

：

Private Sub Form_Resize()
    Me.Width = m_lngOriginalWidth
    Me.Height = m_lngOriginalHeight
End Sub

您需要在某个点存储原始的

高度

和

宽度

。您可以在

表单\u Load

中执行此操作，或声明常数以存储原始值：

Dim m_lngOriginalWidth As Long
Dim m_lngOriginalHeight As Long

Private Sub Form_Load()
    m_lngOriginalWidth = Me.Width
    m_lngOriginalHeight = Me.Height
End Sub

---

窗体的

BorderStyle

属性指示窗口是否可调整大小。您可以在以下选项中进行选择：

0 - None (no border)
1 - Fixed Single
2 - Sizable
3 - Fixed Dialog
4 - Fixed ToolWindow
5 - Sizable ToolWindow

就Vista中窗口的视觉外观而言，大小调整行为不应受到影响

编辑 如果要防止窗体在保持可调整大小的边框样式的同时调整大小，可以在

窗体调整大小

事件中覆盖

高度

和

宽度

：

Private Sub Form_Resize()
    Me.Width = m_lngOriginalWidth
    Me.Height = m_lngOriginalHeight
End Sub

您需要在某个点存储原始的

高度

和

宽度

。您可以在

表单\u Load

中执行此操作，或声明常数以存储原始值：

Dim m_lngOriginalWidth As Long
Dim m_lngOriginalHeight As Long

Private Sub Form_Load()
    m_lngOriginalWidth = Me.Width
    m_lngOriginalHeight = Me.Height
End Sub

---

Sizeable（2）使边框加粗，但窗体大小可调整。1和3不可压缩，但边框很薄。我想要一种使边框加粗但不可编辑的方法。我用代码编辑了答案，使您可以保持可调整大小的外观，同时防止调整窗体的大小。Size（2）使边框加粗，但窗体可以调整大小。1和3不可压缩，但边框很薄。我想要一种使边框粗体但不可编辑的方法。我用代码编辑了答案，使您可以保持可调整大小的外观，同时防止窗体调整大小。