一个很漂亮的VB透明窗体

【文件属性】：
文件名称：一个很漂亮的VB透明窗体
文件大小：228KB
文件格式：RAR
更新时间：2014-02-04 16:19:48
VB 一个很漂亮的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

【文件预览】：
漂亮的VB程序窗体
----xpbutton.oca(24KB)
----vbNeoCaption.vbw(373B)
----Forms()
--------frmTest.frx(92KB)
--------frmTest.frm(3KB)
----Moudles()
--------mDeclares.bas(10KB)
--------subclass.bas(11KB)
--------timer.bas(3KB)
----vbNeoCaption.vbp(1KB)
----xpFrame.oca(19KB)
----prjXTab.lib(3KB)
----prjXTab.oca(31KB)
----xpbutton.ocx(76KB)
----prjXTab.ocx(224KB)
----XPocx.oca(11KB)
----xpFrame.ocx(56KB)
----ClassMoudles()
--------cMemDC.cls(4KB)
--------timer.cls(3KB)
--------cMenuBar.cls(40KB)
--------INCAreaModifier.cls(1KB)
--------cToolbarMenu.cls(13KB)
--------subclass.cls(2KB)
--------cNeoCaption.cls(24KB)
--------cNCCalcSize.cls(36KB)
--------isubclass.cls(1KB)
----XPocx.ocx(220KB)
----prjXTab.exp(1010B)