改变窗体3D效果.

Question

窗体的Caption=""
     ControlBox=False这是一个有3D效果的无标题栏窗体.怎么改成不是3D效果???
如果设置BorderStyle=0是无边框窗体,在网上找的移动窗体代码.移动显示的是一个细虚线框,,我想要显示出粗虚线框的效果.怎么搞,,太麻烦就算了,只是个想法,看有人知道没有..谢谢..

Answer 1

Option ExplicitPrivate Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongW" ( _
     ByVal hwnd As Long, _
     ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongW" ( _
     ByVal hwnd As Long, _
     ByVal nIndex As Long, _
     ByVal dwNewLong As Long) As LongPrivate Const GWL_STYLE As Long = -16
Private Const WS_THICKFRAME As Long = &H40000Private Sub Form_Load()
    Dim lStyle As Long
   
    lStyle = GetWindowLong(Me.HasDC, GWL_STYLE)
    lStyle = lStyle Or WS_THICKFRAME
    SetWindowLong Me.hwnd, GWL_STYLE, lStyle
End Sub

Answer 2

哪来的 3D 效果。
虽然将样式更改为有边框，但是由于是 VB 控制的窗体，其内部属性还是 BorderStyle=0，显示出来的还是无边框窗体。
你做过最简工程试试。