VB中怎样自定义标题栏

来源：百度知道 编辑：UC知道 时间：2024/06/28 01:37:56
我想改变窗体标题栏的属性
不是字体还有颜色什么的
想要一个自己做的不规则的标题栏
我看了网上说法又好多种
主要是说
创建无标题栏的窗体
载入自己的图片
然后实现鼠标拖放
还有就是
利用API函数
我想知道的就是
在第一种方法种怎样可以载入一张透明的图片
还有怎样实现第二种方法？

首先把窗体改成没有标题的...其次弄个图片框载入自己的图片...
然后用

Declare Function ReleaseCapture Lib "user32" () As Long
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 Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, &HA1 , 2, 0&
End Sub

然后运行就可以了...拖动你的图片框就能动