可以改变窗口边框的颜色吗？

Question

不可以，不过可以变通，比如加一个Container，Form上其他的东西都放在Container里，而Container比Form小一点，Form的颜色就近似为BOrder色了

Answer 1

Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Const COLOR_ACTIVEBORDER = 10Private Sub Form_Load()
SetSysColors 1, COLOR_ACTIVEBORDER, RGB(255, 0, 0)
End Sub

Answer 2

用SetSysColors的话
整个系统的活动窗口边框都会变色
重新启动之后就恢复本色了
如果要求重启之后不恢复本色
试着在SetSysColors的同时
设置一下修改注册表吧

Answer 3

把form设置为无边框，然后自己画边框上去。用其它方法也能办到，但效果不太好。