Question

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

Answer 1

把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