revmditabsctl.ctl

一例不错的Tab控件源程序,请VB编程爱好者下载学习,相互交流!

VERSION 5.00
Begin VB.UserControl RevMDITabsCtl 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   1530
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1680
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   InvisibleAtRuntime=   -1  'True
   Picture         =   "RevMDITabsCtl.ctx":0000
   ScaleHeight     =   102
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   112
   ToolboxBitmap   =   "RevMDITabsCtl.ctx":0CCA
   Begin VB.PictureBox picDefault 
      Height          =   315
      Left            =   840
      Picture         =   "RevMDITabsCtl.ctx":0FDC
      ScaleHeight     =   255
      ScaleWidth      =   255
      TabIndex        =   0
      Top             =   720
      Width           =   315
   End
End
Attribute VB_Name = "RevMDITabsCtl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

'*    Date        : 11/05/2004
'*
'*    Component   : RevMDITabsCtl
'*    Version     : 1.05
'*
'*    Description : Revelatek MDI Tabs control provides you with the ability to
'*                  have Visual Studio.NET, Office 2003 and Office 2000 style tabs.
'*
'*                  To use this control you don't have to write a single line of code
'*                  you just need to put it on MDI form and that's all!
'*
'*    Dependencies: None.
'*
'*    Credits     : Part of the code is borrowed from vbAccelerator MDITabs Control.
'*
'*    Copyright   : Copyright