大家知道怎么设置一个控件的边框样式吗?

Question

如题,例如是PICTRUEBOX,能把他的变成虚线吗?多多指教!!

Answer 1

borderstyle=0
用shape模拟边框.
位置大小与picturebox相同
borderstyle=3

Answer 2

大家知道应该怎么实现如下效果:
当我们改变一个WINDOWS窗口的大小时,其边框会出现虚线的效果,我尝试用API,就是找不到怎么实现,如果用DrawFocusRect画一个虚线矩形,效果不好,各位知道怎么实现吗?

Answer 3

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_FRAMECHANGED = &H20        '  The frame changed: send WM_NCCALCSIZE
Const SWP_DRAWFRAME = SWP_FRAMECHANGEDPrivate Sub Form_Load()
    SetWindowLong Picture1.hwnd, GWL_STYLE, _
    GetWindowLong(Picture1.hwnd, GWL_STYLE) Or WS_THICKFRAME
    SetWindowPos Picture1.hwnd, hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
End Sub

Answer 4

to ColdMooon(月光寒:
基本可以实现了,谢谢,但是那个边框怎么怪怪的?

Answer 5

我是ColdMooon(月光寒)(★★★★★)的马甲，
把分给我！ColdMooon已经死了。

Answer 6

ColdMooon已经死了？哀悼中？？？