ucxtab.ctl

漂亮的vb控件 好几种肤色 仿照xp系统的样子 值得一看

VERSION 5.00
Begin VB.UserControl ucXTab 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   ClientHeight    =   1575
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2910
   ControlContainer=   -1  'True
   ScaleHeight     =   105
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   194
   ToolboxBitmap   =   "ucXTab.ctx":0000
End
Attribute VB_Name = "ucXTab"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'+  File Description:
'       ucXTab - SelfSubclassed Tab Replacement Container
'
'   Product Name:
'       ucXTab.ctl
'
'   Compatability:
'       Windows: 98, ME, NT4, 2000, XP
'
'   Software Developed by:
'       Paul R. Territo, Ph.D
'
'   Adapted from the following online article(s):
'       (Neeraj Agrawal - Original XTab Control)
'           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=56462&lngWId=1
'       (Paul Caton - SelfSubclassing Template)
'           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54117&lngWId=1
'       (Evan Todder - ContainedControls Tab Routine)
'           Note: The link below is inactive, as these submissions were removed by the author
'           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=57642&lngWId=1
'       (Randy Birch - OS Version Detection)
'           http://vbnet.mvps.org/Index.html?code/helpers/iswinversion.htm
'       (James Laferriere - EqualRect API Routine)
'           http://www.officecomputertraining.com/vbtutorial/tutpages/page45.asp
'       (Dieter Otter - GetCurrentThemeName)
'           http://www.vbarchiv.net/archiv/tipp_805.html
'       (Fred.cpp - APILine, APIFillRectByCoords, APIRectangle)
'           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=61476&lngWId=1
'
'   Legal Copyright & Trademarks (Current Implementation):
'       Copyright