一个很漂亮的VB透明窗体,而且里面写的代码非常的精致。
Private m_cN As cNeoCaption
Private Sub Skin(f As Form, cN As cNeoCaption)
cN.ActiveCaptionColor = &HFFFFFF
cN.InActiveCaptionColor = &HC0C0C0
cN.ActiveMenuColor = &H0&
cN.ActiveMenuColorOver = &H0
cN.InActiveMenuColor = &H0&
cN.MenuBackgroundColor = RGB(207, 203, 207)
cN.CaptionFont.Name = "宋体"
cN.CaptionFont.Size = 9
cN.MenuFont.Name = "宋体"
cN.MenuFont.Size = 9
cN.Attach f, f.PicCaption.Picture, f.PicBorder.Picture, 19, 20, 90, 140, 240, 400
f.BackColor = RGB(207, 203, 207)
End Sub
Private Sub Form_Load()
Set m_cN = New cNeoCaption
Skin Me, m_cN
End Sub