frmPreviewMain.frm
上传用户:eleven0727
上传日期:2009-12-26
资源大小:124k
文件大小:16k
源码类别:

Tab控件

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "*A....prjXTab.vbp"
  3. Begin VB.Form frmPreviewMain 
  4.    BackColor       =   &H00D8E9EC&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "                           :: XTabs :: by Neeraj Agrawal @ PSC ::"
  7.    ClientHeight    =   8010
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   6930
  11.    BeginProperty Font 
  12.       Name            =   "Verdana"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "frmPreviewMain.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   8010
  25.    ScaleWidth      =   6930
  26.    StartUpPosition =   3  'Windows Default
  27.    Begin VB.CommandButton cmdNext 
  28.       Caption         =   "::More Themes::"
  29.       Height          =   285
  30.       Left            =   2520
  31.       TabIndex        =   9
  32.       Top             =   7620
  33.       Width           =   2025
  34.    End
  35.    Begin VB.CheckBox chkShowFocusRect 
  36.       BackColor       =   &H00D8E9EC&
  37.       Caption         =   "Show Focus Rect"
  38.       Height          =   225
  39.       Left            =   150
  40.       TabIndex        =   8
  41.       Top             =   7650
  42.       Width           =   1815
  43.    End
  44.    Begin prjXTab.XTab XTab3 
  45.       Height          =   1335
  46.       Left            =   180
  47.       TabIndex        =   0
  48.       Top             =   600
  49.       Width           =   3135
  50.       _ExtentX        =   5530
  51.       _ExtentY        =   2355
  52.       TabCaption(0)   =   "Tab &0"
  53.       TabAccessKey(0) =   48
  54.       TabCaption(1)   =   "Tab &1"
  55.       TabAccessKey(1) =   49
  56.       TabCaption(2)   =   "Tab &2"
  57.       TabAccessKey(2) =   50
  58.       InActiveTabHeight=   20
  59.       TabTheme        =   1
  60.       ShowFocusRect   =   0   'False
  61.       ActiveTabBackStartColor=   16514555
  62.       ActiveTabBackEndColor=   16514555
  63.       InActiveTabBackStartColor=   16777215
  64.       InActiveTabBackEndColor=   15397104
  65.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  66.          Name            =   "Verdana"
  67.          Size            =   8.25
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.          Name            =   "Verdana"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       OuterBorderColor=   10198161
  84.       DisabledTabBackColor=   -2147483633
  85.       DisabledTabForeColor=   10526880
  86.    End
  87.    Begin prjXTab.XTab XTab4 
  88.       Height          =   1335
  89.       Left            =   3600
  90.       TabIndex        =   1
  91.       Top             =   600
  92.       Width           =   3135
  93.       _ExtentX        =   5530
  94.       _ExtentY        =   2355
  95.       TabCaption(0)   =   "Tab 0"
  96.       TabPicture(0)   =   "frmPreviewMain.frx":000C
  97.       TabCaption(1)   =   "Tab 1"
  98.       TabPicture(1)   =   "frmPreviewMain.frx":011E
  99.       TabCaption(2)   =   "Tab 2"
  100.       TabPicture(2)   =   "frmPreviewMain.frx":0230
  101.       TabStyle        =   1
  102.       TabTheme        =   1
  103.       ShowFocusRect   =   0   'False
  104.       ActiveTabBackStartColor=   16514555
  105.       ActiveTabBackEndColor=   16514555
  106.       InActiveTabBackStartColor=   16777215
  107.       InActiveTabBackEndColor=   15397104
  108.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  109.          Name            =   "Verdana"
  110.          Size            =   8.25
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          Name            =   "Verdana"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       OuterBorderColor=   10198161
  127.       DisabledTabBackColor=   -2147483633
  128.       DisabledTabForeColor=   10526880
  129.    End
  130.    Begin prjXTab.XTab XTab5 
  131.       Height          =   1335
  132.       Left            =   240
  133.       TabIndex        =   2
  134.       Top             =   2460
  135.       Width           =   3135
  136.       _ExtentX        =   5530
  137.       _ExtentY        =   2355
  138.       TabCaption(0)   =   "  Tab 0"
  139.       TabCaption(1)   =   "  Tab 1"
  140.       TabCaption(2)   =   "   Tab 2"
  141.       InActiveTabHeight=   20
  142.       TabTheme        =   1
  143.       ShowFocusRect   =   0   'False
  144.       ActiveTabBackStartColor=   12640511
  145.       ActiveTabBackEndColor=   12640511
  146.       InActiveTabBackStartColor=   16777215
  147.       InActiveTabBackEndColor=   12640511
  148.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  149.          Name            =   "Verdana"
  150.          Size            =   8.25
  151.          Charset         =   0
  152.          Weight          =   700
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  158.          Name            =   "Verdana"
  159.          Size            =   8.25
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       OuterBorderColor=   0
  167.       DisabledTabBackColor=   -2147483633
  168.       DisabledTabForeColor=   10526880
  169.    End
  170.    Begin prjXTab.XTab XTab6 
  171.       Height          =   1335
  172.       Left            =   3630
  173.       TabIndex        =   3
  174.       Top             =   2460
  175.       Width           =   3135
  176.       _ExtentX        =   5530
  177.       _ExtentY        =   2355
  178.       TabCaption(0)   =   "Tab 0"
  179.       TabCaption(1)   =   "Tab 1"
  180.       TabCaption(2)   =   "Tab 2"
  181.       TabStyle        =   1
  182.       TabTheme        =   1
  183.       ShowFocusRect   =   0   'False
  184.       ActiveTabBackStartColor=   16316664
  185.       ActiveTabBackEndColor=   16316664
  186.       InActiveTabBackStartColor=   14737632
  187.       InActiveTabBackEndColor=   14737632
  188.       ActiveTabForeColor=   10972496
  189.       InActiveTabForeColor=   9474192
  190.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  191.          Name            =   "Verdana"
  192.          Size            =   8.25
  193.          Charset         =   0
  194.          Weight          =   700
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  200.          Name            =   "Verdana"
  201.          Size            =   8.25
  202.          Charset         =   0
  203.          Weight          =   400
  204.          Underline       =   0   'False
  205.          Italic          =   0   'False
  206.          Strikethrough   =   0   'False
  207.       EndProperty
  208.       OuterBorderColor=   0
  209.       DisabledTabBackColor=   -2147483633
  210.       DisabledTabForeColor=   10526880
  211.       HoverColorInverted=   16512
  212.    End
  213.    Begin prjXTab.XTab XTab7 
  214.       Height          =   1335
  215.       Left            =   210
  216.       TabIndex        =   6
  217.       Top             =   6120
  218.       Width           =   3135
  219.       _ExtentX        =   5530
  220.       _ExtentY        =   2355
  221.       TabCaption(0)   =   "Tab 0*"
  222.       TabPicture(0)   =   "frmPreviewMain.frx":0342
  223.       TabCaption(1)   =   "Tab 1"
  224.       TabPicture(1)   =   "frmPreviewMain.frx":065C
  225.       TabCaption(2)   =   "Tab 2"
  226.       TabStyle        =   1
  227.       TabTheme        =   2
  228.       ShowFocusRect   =   0   'False
  229.       InActiveTabBackStartColor=   -2147483626
  230.       InActiveTabBackEndColor=   -2147483626
  231.       InActiveTabForeColor=   -2147483631
  232.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  233.          Name            =   "Verdana"
  234.          Size            =   8.25
  235.          Charset         =   0
  236.          Weight          =   700
  237.          Underline       =   0   'False
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  242.          Name            =   "Verdana"
  243.          Size            =   8.25
  244.          Charset         =   0
  245.          Weight          =   400
  246.          Underline       =   0   'False
  247.          Italic          =   0   'False
  248.          Strikethrough   =   0   'False
  249.       EndProperty
  250.       OuterBorderColor=   -2147483628
  251.       TabStripBackColor=   -2147483626
  252.       DisabledTabBackColor=   -2147483633
  253.       DisabledTabForeColor=   -2147483627
  254.       HoverColorInverted=   16512
  255.    End
  256.    Begin prjXTab.XTab XTab8 
  257.       Height          =   1335
  258.       Left            =   3630
  259.       TabIndex        =   7
  260.       Top             =   6150
  261.       Width           =   3135
  262.       _ExtentX        =   5530
  263.       _ExtentY        =   2355
  264.       TabCaption(0)   =   "Tab 0"
  265.       TabCaption(1)   =   "Tab 1"
  266.       TabCaption(2)   =   "Tab 2"
  267.       TabStyle        =   1
  268.       TabTheme        =   2
  269.       ShowFocusRect   =   0   'False
  270.       ActiveTabBackStartColor=   16761024
  271.       ActiveTabBackEndColor=   16744576
  272.       InActiveTabBackStartColor=   16761024
  273.       InActiveTabBackEndColor=   16761024
  274.       ActiveTabForeColor=   16777215
  275.       InActiveTabForeColor=   -2147483631
  276.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  277.          Name            =   "Verdana"
  278.          Size            =   8.25
  279.          Charset         =   0
  280.          Weight          =   700
  281.          Underline       =   0   'False
  282.          Italic          =   0   'False
  283.          Strikethrough   =   0   'False
  284.       EndProperty
  285.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  286.          Name            =   "Verdana"
  287.          Size            =   8.25
  288.          Charset         =   0
  289.          Weight          =   400
  290.          Underline       =   0   'False
  291.          Italic          =   0   'False
  292.          Strikethrough   =   0   'False
  293.       EndProperty
  294.       OuterBorderColor=   16777215
  295.       TabStripBackColor=   -2147483626
  296.       DisabledTabBackColor=   -2147483633
  297.       DisabledTabForeColor=   -2147483627
  298.       HoverColorInverted=   16512
  299.    End
  300.    Begin prjXTab.XTab XTab1 
  301.       Height          =   1335
  302.       Left            =   240
  303.       TabIndex        =   4
  304.       Top             =   4290
  305.       Width           =   3135
  306.       _ExtentX        =   5530
  307.       _ExtentY        =   2355
  308.       TabCaption(0)   =   "Tab 0"
  309.       TabCaption(1)   =   "Tab 1"
  310.       TabCaption(2)   =   "Tab 2"
  311.       InActiveTabHeight=   10
  312.       TabTheme        =   3
  313.       ShowFocusRect   =   0   'False
  314.       ActiveTabBackStartColor=   16316664
  315.       ActiveTabBackEndColor=   16316664
  316.       InActiveTabBackStartColor=   15066597
  317.       InActiveTabBackEndColor=   14737632
  318.       ActiveTabForeColor=   10972496
  319.       InActiveTabForeColor=   9474192
  320.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  321.          Name            =   "Verdana"
  322.          Size            =   8.25
  323.          Charset         =   0
  324.          Weight          =   700
  325.          Underline       =   0   'False
  326.          Italic          =   0   'False
  327.          Strikethrough   =   0   'False
  328.       EndProperty
  329.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  330.          Name            =   "Verdana"
  331.          Size            =   8.25
  332.          Charset         =   0
  333.          Weight          =   400
  334.          Underline       =   0   'False
  335.          Italic          =   0   'False
  336.          Strikethrough   =   0   'False
  337.       EndProperty
  338.       OuterBorderColor=   12632256
  339.       DisabledTabBackColor=   -2147483633
  340.       DisabledTabForeColor=   -2147483627
  341.       HoverColorInverted=   16512
  342.       XRadius         =   50
  343.       YRadius         =   50
  344.    End
  345.    Begin prjXTab.XTab XTab2 
  346.       Height          =   1335
  347.       Left            =   3600
  348.       TabIndex        =   5
  349.       Top             =   4290
  350.       Width           =   3135
  351.       _ExtentX        =   5530
  352.       _ExtentY        =   2355
  353.       TabCaption(0)   =   "Tab 0"
  354.       TabCaption(1)   =   "Tab 1"
  355.       TabCaption(2)   =   "Tab 2"
  356.       InActiveTabHeight=   15
  357.       TabStyle        =   1
  358.       TabTheme        =   3
  359.       ShowFocusRect   =   0   'False
  360.       ActiveTabBackStartColor=   33023
  361.       ActiveTabBackEndColor=   33023
  362.       InActiveTabBackStartColor=   8438015
  363.       InActiveTabBackEndColor=   8438015
  364.       ActiveTabForeColor=   0
  365.       InActiveTabForeColor=   0
  366.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  367.          Name            =   "Verdana"
  368.          Size            =   8.25
  369.          Charset         =   0
  370.          Weight          =   700
  371.          Underline       =   0   'False
  372.          Italic          =   0   'False
  373.          Strikethrough   =   0   'False
  374.       EndProperty
  375.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  376.          Name            =   "Verdana"
  377.          Size            =   8.25
  378.          Charset         =   0
  379.          Weight          =   400
  380.          Underline       =   0   'False
  381.          Italic          =   0   'False
  382.          Strikethrough   =   0   'False
  383.       EndProperty
  384.       OuterBorderColor=   8421504
  385.       DisabledTabBackColor=   -2147483633
  386.       DisabledTabForeColor=   -2147483627
  387.       HoverColorInverted=   16512
  388.       XRadius         =   1
  389.       YRadius         =   1
  390.    End
  391.    Begin VB.Label Label12 
  392.       Alignment       =   2  'Center
  393.       AutoSize        =   -1  'True
  394.       BackStyle       =   0  'Transparent
  395.       Caption         =   "::Round Tabs::"
  396.       Height          =   195
  397.       Left            =   2895
  398.       TabIndex        =   13
  399.       Top             =   3990
  400.       Width           =   1335
  401.    End
  402.    Begin VB.Label Label11 
  403.       Alignment       =   2  'Center
  404.       AutoSize        =   -1  'True
  405.       BackStyle       =   0  'Transparent
  406.       Caption         =   "::Visual Studio .Net 2003::"
  407.       Height          =   195
  408.       Left            =   2490
  409.       TabIndex        =   12
  410.       Top             =   5850
  411.       Width           =   2310
  412.    End
  413.    Begin VB.Label Label9 
  414.       Alignment       =   2  'Center
  415.       AutoSize        =   -1  'True
  416.       BackStyle       =   0  'Transparent
  417.       Caption         =   "::Windows XP::"
  418.       Height          =   195
  419.       Left            =   2790
  420.       TabIndex        =   11
  421.       Top             =   180
  422.       Width           =   1365
  423.    End
  424.    Begin VB.Label Label7 
  425.       Alignment       =   2  'Center
  426.       AutoSize        =   -1  'True
  427.       BackStyle       =   0  'Transparent
  428.       Caption         =   "::Windows XP(Modified)::"
  429.       Height          =   195
  430.       Left            =   2385
  431.       TabIndex        =   10
  432.       Top             =   2130
  433.       Width           =   2190
  434.    End
  435. End
  436. Attribute VB_Name = "frmPreviewMain"
  437. Attribute VB_GlobalNameSpace = False
  438. Attribute VB_Creatable = False
  439. Attribute VB_PredeclaredId = True
  440. Attribute VB_Exposed = False
  441. Option Explicit
  442. Private Sub chkShowFocusRect_Click()
  443.   Dim bFlag As Boolean
  444.   Dim oCtl As Control
  445.   
  446.   
  447.   If chkShowFocusRect.Value = vbChecked Then
  448.     bFlag = True
  449.   Else
  450.     bFlag = False
  451.   End If
  452.   
  453.   'Set focus rect Property for all the XTab controls on the form
  454.   For Each oCtl In Me.Controls
  455.     If TypeOf oCtl Is XTab Then
  456.       oCtl.ShowFocusRect = bFlag
  457.     End If
  458.   Next
  459. End Sub
  460. Private Sub cmdNext_Click()
  461.   Load frmPreviewMore
  462.   frmPreviewMore.Refresh
  463.   
  464.   frmPreviewMore.Left = Me.Left
  465.   frmPreviewMore.Top = Me.Top
  466.   
  467.   frmPreviewMore.Show
  468.   frmPreviewMore.Refresh
  469.   
  470.   Me.Hide
  471.   Unload Me
  472. End Sub