vb美化标题栏,我想用VB美化一下我做的软件,我想做成像这样的标题栏该怎么实现

把Form1的BorderStyle属性设置为“0 - None”，贴着上面放个Image控件

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SYSCOMMAND = &H112

Private Const SC_MOVE = &HF010&

Private Const 旅键WM_NCLBUTTONDOWN = &HA1

Private Const HTCAPTION = 2

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ReleaseCapture5

SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MOVE + 消弊HTCAPTION, 0

End Sub

Private Sub Form_Load()

Image1.Stretch = True

Image1.Picture = LoadPicture("标题栏图片的路拆桥巧径")

End Sub

萌新第一次发表文章，请多关照

之前用 deepin 15.11 的时候，看见这个很粗很厚的标题栏，真的有一种困轮很出戏的感觉，这么漂亮的系统，碰上这么丑的标题栏真的是瞬间一种违和感铺面而来，我在网上找了很多中解决方法，大多无非是改标题栏的高度治标不治本的内容，大汪岩信都也没有提到关于chrome、firefox的标题栏如何更改。

第一种方法 ，更换deepin的桌面 deepin-kwin 为 deepin-wm ，但是 我不是很推荐这个方法 ，因为 deepin-wm 是dde旧的窗口管理器，上游是 gnome mutter 。但是mutter要比kwin重，所以现在的 deepin-kwin 是上游是 kwin ， kwin 相对轻量快速一点，而且还是完善阶段的桌面。

第二种方法 ，这个方法要分几个步骤来讲，当然是继续使用 deepin-kwin 桌面啦，只是在一些日常使用方面做一些调整。

Chrome浏览器 可以用下图方式来实现去掉标题栏。

Firefox浏览器 则是在定制功能里面实现去掉标题栏。

而其他软件则可以使用改标题栏的高度来实现美化的效果。

1、使用 Ctrl+Alt+T 组合键打开深度系统的终端

2、切换到主题目录下，输入命令

3、 ls 指令可以看到deepin自带的两个默认主题，deepin和deepin-dark

以deepin的亮色主题为例，切换目录下：

编辑配置文件：

在配置文件中找到如下几行（标题拦高度主要取决于这三个值，它们的值分别对应标题栏高度、按钮宽、高，默认是 40 的值）：

4、只要修改它们的值使自己满意即可

我设置的值如下，你可以参考：

注：这样设置也就是长方形的按钮，这样可以避免按钮太小导致很难点击到。

5、使用快捷键Ctrl+S保存，然后退出

6、重新打开一个窗口，或者注销、再登录，就能看到效果

备注：如果无法编辑或保存，提示只读的话，使用sudo权限或者root权限就可以编辑枣掘或保存了。

---