固定大小的粗体 window 边框

Question

来自Windows Vista，虽然有些windows不能调整大小，但边框是粗体。有没有办法在 VB6 中制作粗体 window 边框（不可调整大小）？

Answer 1

您的表单的 BorderStyle 属性指示 window 是否可以调整大小。您可以在以下选项中进行选择：

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

就 Vista 中 window 的视觉外观而言，调整大小行为应该不会受到影响。

编辑

如果要在保持可调整大小的边框样式的同时防止表单调整大小，可以覆盖 Form_Resize 事件中的 Height 和 Width：

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

您有时需要存储原始 Height 和 Width。您可以在 Form_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

固定大小的粗体 window 边框

Bold window borders with fixed size

vb6

编辑