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

Tab控件

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "*A....prjXTab.vbp"
  3. Begin VB.Form frmPreviewMore 
  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            =   "frmPreviewMore.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 cmdPreviewEvenMore 
  28.       Caption         =   "::Preview Even More::"
  29.       Height          =   285
  30.       Left            =   3510
  31.       TabIndex        =   12
  32.       Top             =   7620
  33.       Width           =   3315
  34.    End
  35.    Begin prjXTab.XTab XTab1 
  36.       Height          =   1335
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   540
  40.       Width           =   3135
  41.       _ExtentX        =   5530
  42.       _ExtentY        =   2355
  43.       TabCaption(0)   =   "Tab &0"
  44.       TabAccessKey(0) =   48
  45.       TabCaption(1)   =   "Tab &1"
  46.       TabAccessKey(1) =   49
  47.       TabCaption(2)   =   "Tab &2"
  48.       TabAccessKey(2) =   50
  49.       InActiveTabHeight=   20
  50.       ShowFocusRect   =   0   'False
  51.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  52.          Name            =   "Verdana"
  53.          Size            =   8.25
  54.          Charset         =   0
  55.          Weight          =   700
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  61.          Name            =   "Verdana"
  62.          Size            =   8.25
  63.          Charset         =   0
  64.          Weight          =   400
  65.          Underline       =   0   'False
  66.          Italic          =   0   'False
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       DisabledTabBackColor=   -2147483633
  70.       DisabledTabForeColor=   -2147483627
  71.    End
  72.    Begin VB.CommandButton cmdBack 
  73.       Caption         =   "::Back::"
  74.       Height          =   285
  75.       Left            =   90
  76.       TabIndex        =   11
  77.       Top             =   7620
  78.       Width           =   2025
  79.    End
  80.    Begin VB.CheckBox chkShowFocusRect 
  81.       BackColor       =   &H00D8E9EC&
  82.       Caption         =   "Show Focus Rect"
  83.       Height          =   225
  84.       Left            =   120
  85.       TabIndex        =   10
  86.       Top             =   7380
  87.       Width           =   1815
  88.    End
  89.    Begin prjXTab.XTab XTab2 
  90.       Height          =   1335
  91.       Left            =   3540
  92.       TabIndex        =   1
  93.       Top             =   540
  94.       Width           =   3135
  95.       _ExtentX        =   5530
  96.       _ExtentY        =   2355
  97.       TabCaption(0)   =   "Tab 0"
  98.       TabCaption(1)   =   "Tab 1"
  99.       TabCaption(2)   =   "Tab 2"
  100.       TabStyle        =   1
  101.       ShowFocusRect   =   0   'False
  102.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  103.          Name            =   "Verdana"
  104.          Size            =   8.25
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  112.          Name            =   "Verdana"
  113.          Size            =   8.25
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       DisabledTabBackColor=   -2147483633
  121.       DisabledTabForeColor=   -2147483627
  122.    End
  123.    Begin prjXTab.XTab XTab3 
  124.       Height          =   1335
  125.       Left            =   150
  126.       TabIndex        =   2
  127.       Top             =   2400
  128.       Width           =   3135
  129.       _ExtentX        =   5530
  130.       _ExtentY        =   2355
  131.       TabCaption(0)   =   "Tab 0"
  132.       TabCaption(1)   =   "Tab 1"
  133.       TabCaption(2)   =   "Tab 2"
  134.       InActiveTabHeight=   20
  135.       ShowFocusRect   =   0   'False
  136.       ActiveTabBackStartColor=   16744576
  137.       ActiveTabBackEndColor=   16744576
  138.       InActiveTabBackStartColor=   16777215
  139.       InActiveTabBackEndColor=   16761024
  140.       ActiveTabForeColor=   16777215
  141.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  142.          Name            =   "Verdana"
  143.          Size            =   8.25
  144.          Charset         =   0
  145.          Weight          =   700
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.          Name            =   "Verdana"
  152.          Size            =   8.25
  153.          Charset         =   0
  154.          Weight          =   400
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       DisabledTabBackColor=   -2147483633
  160.       DisabledTabForeColor=   -2147483627
  161.    End
  162.    Begin prjXTab.XTab XTab4 
  163.       Height          =   1335
  164.       Left            =   3570
  165.       TabIndex        =   3
  166.       Top             =   2400
  167.       Width           =   3135
  168.       _ExtentX        =   5530
  169.       _ExtentY        =   2355
  170.       TabCaption(0)   =   "Tab 0"
  171.       TabCaption(1)   =   "Tab 1"
  172.       TabCaption(2)   =   "Tab 2"
  173.       TabStyle        =   1
  174.       ShowFocusRect   =   0   'False
  175.       ActiveTabBackStartColor=   0
  176.       ActiveTabBackEndColor=   0
  177.       InActiveTabBackStartColor=   8421504
  178.       InActiveTabBackEndColor=   8421504
  179.       ActiveTabForeColor=   16777215
  180.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  181.          Name            =   "Verdana"
  182.          Size            =   8.25
  183.          Charset         =   0
  184.          Weight          =   700
  185.          Underline       =   0   'False
  186.          Italic          =   0   'False
  187.          Strikethrough   =   0   'False
  188.       EndProperty
  189.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  190.          Name            =   "Verdana"
  191.          Size            =   8.25
  192.          Charset         =   0
  193.          Weight          =   400
  194.          Underline       =   0   'False
  195.          Italic          =   0   'False
  196.          Strikethrough   =   0   'False
  197.       EndProperty
  198.       TopLeftInnerBorderColor=   0
  199.       BottomRightInnerBorderColor=   0
  200.       DisabledTabBackColor=   -2147483633
  201.       DisabledTabForeColor=   -2147483627
  202.    End
  203.    Begin prjXTab.XTab XTab5 
  204.       Height          =   1335
  205.       Left            =   150
  206.       TabIndex        =   4
  207.       Top             =   4290
  208.       Width           =   3135
  209.       _ExtentX        =   5530
  210.       _ExtentY        =   2355
  211.       TabCaption(0)   =   "Tab 0"
  212.       TabPicture(0)   =   "frmPreviewMore.frx":000C
  213.       TabCaption(1)   =   "Tab 1"
  214.       TabPicture(1)   =   "frmPreviewMore.frx":011E
  215.       TabCaption(2)   =   "Tab 2"
  216.       TabPicture(2)   =   "frmPreviewMore.frx":0230
  217.       InActiveTabHeight=   20
  218.       ShowFocusRect   =   0   'False
  219.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  220.          Name            =   "Verdana"
  221.          Size            =   8.25
  222.          Charset         =   0
  223.          Weight          =   700
  224.          Underline       =   0   'False
  225.          Italic          =   0   'False
  226.          Strikethrough   =   0   'False
  227.       EndProperty
  228.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  229.          Name            =   "Verdana"
  230.          Size            =   8.25
  231.          Charset         =   0
  232.          Weight          =   400
  233.          Underline       =   0   'False
  234.          Italic          =   0   'False
  235.          Strikethrough   =   0   'False
  236.       EndProperty
  237.       DisabledTabBackColor=   -2147483633
  238.       DisabledTabForeColor=   -2147483627
  239.    End
  240.    Begin prjXTab.XTab XTab6 
  241.       Height          =   1335
  242.       Left            =   3570
  243.       TabIndex        =   5
  244.       Top             =   4290
  245.       Width           =   3135
  246.       _ExtentX        =   5530
  247.       _ExtentY        =   2355
  248.       TabCaption(0)   =   "Tab 0"
  249.       TabPicture(0)   =   "frmPreviewMore.frx":0342
  250.       TabCaption(1)   =   "Tab 1"
  251.       TabPicture(1)   =   "frmPreviewMore.frx":0454
  252.       TabCaption(2)   =   "Tab 2"
  253.       TabPicture(2)   =   "frmPreviewMore.frx":0566
  254.       ActiveTabHeight =   22
  255.       InActiveTabHeight=   20
  256.       TabStyle        =   1
  257.       ShowFocusRect   =   0   'False
  258.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  259.          Name            =   "Verdana"
  260.          Size            =   8.25
  261.          Charset         =   0
  262.          Weight          =   700
  263.          Underline       =   0   'False
  264.          Italic          =   0   'False
  265.          Strikethrough   =   0   'False
  266.       EndProperty
  267.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  268.          Name            =   "Verdana"
  269.          Size            =   8.25
  270.          Charset         =   0
  271.          Weight          =   400
  272.          Underline       =   0   'False
  273.          Italic          =   0   'False
  274.          Strikethrough   =   0   'False
  275.       EndProperty
  276.       DisabledTabBackColor=   -2147483633
  277.       DisabledTabForeColor=   -2147483627
  278.    End
  279.    Begin prjXTab.XTab XTab7 
  280.       Height          =   1245
  281.       Left            =   150
  282.       TabIndex        =   6
  283.       Top             =   6060
  284.       Width           =   1155
  285.       _ExtentX        =   2037
  286.       _ExtentY        =   2196
  287.       TabCount        =   4
  288.       TabCaption(0)   =   "1"
  289.       TabCaption(1)   =   "2"
  290.       TabCaption(2)   =   "3"
  291.       TabCaption(3)   =   "4"
  292.       ActiveTabHeight =   50
  293.       InActiveTabHeight=   20
  294.       ShowFocusRect   =   0   'False
  295.       ActiveTabBackStartColor=   16744576
  296.       ActiveTabBackEndColor=   16744576
  297.       InActiveTabBackStartColor=   16777215
  298.       InActiveTabBackEndColor=   16761024
  299.       ActiveTabForeColor=   16777215
  300.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  301.          Name            =   "Verdana"
  302.          Size            =   8.25
  303.          Charset         =   0
  304.          Weight          =   700
  305.          Underline       =   0   'False
  306.          Italic          =   0   'False
  307.          Strikethrough   =   0   'False
  308.       EndProperty
  309.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  310.          Name            =   "Verdana"
  311.          Size            =   8.25
  312.          Charset         =   0
  313.          Weight          =   400
  314.          Underline       =   0   'False
  315.          Italic          =   0   'False
  316.          Strikethrough   =   0   'False
  317.       EndProperty
  318.       DisabledTabBackColor=   -2147483633
  319.       DisabledTabForeColor=   -2147483627
  320.    End
  321.    Begin prjXTab.XTab XTab8 
  322.       Height          =   1245
  323.       Left            =   1890
  324.       TabIndex        =   7
  325.       Top             =   6060
  326.       Width           =   1155
  327.       _ExtentX        =   2037
  328.       _ExtentY        =   2196
  329.       TabCount        =   4
  330.       TabCaption(0)   =   "1"
  331.       TabCaption(1)   =   "2"
  332.       TabCaption(2)   =   "3"
  333.       TabCaption(3)   =   "4"
  334.       InActiveTabHeight=   50
  335.       ShowFocusRect   =   0   'False
  336.       ActiveTabBackStartColor=   8454143
  337.       ActiveTabBackEndColor=   8454143
  338.       InActiveTabBackStartColor=   16777215
  339.       InActiveTabBackEndColor=   16761024
  340.       ActiveTabForeColor=   16777215
  341.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  342.          Name            =   "Verdana"
  343.          Size            =   8.25
  344.          Charset         =   0
  345.          Weight          =   700
  346.          Underline       =   0   'False
  347.          Italic          =   0   'False
  348.          Strikethrough   =   0   'False
  349.       EndProperty
  350.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  351.          Name            =   "Verdana"
  352.          Size            =   8.25
  353.          Charset         =   0
  354.          Weight          =   400
  355.          Underline       =   0   'False
  356.          Italic          =   0   'False
  357.          Strikethrough   =   0   'False
  358.       EndProperty
  359.       DisabledTabBackColor=   -2147483633
  360.       DisabledTabForeColor=   -2147483627
  361.    End
  362.    Begin prjXTab.XTab XTab9 
  363.       Height          =   1245
  364.       Left            =   3780
  365.       TabIndex        =   8
  366.       Top             =   6090
  367.       Width           =   1155
  368.       _ExtentX        =   2037
  369.       _ExtentY        =   2196
  370.       TabCount        =   4
  371.       TabCaption(0)   =   "1"
  372.       TabCaption(1)   =   "2"
  373.       TabCaption(2)   =   "3"
  374.       TabCaption(3)   =   "4"
  375.       InActiveTabHeight=   50
  376.       TabTheme        =   3
  377.       ShowFocusRect   =   0   'False
  378.       ActiveTabBackStartColor=   12640511
  379.       InActiveTabBackStartColor=   15066597
  380.       InActiveTabBackEndColor=   -2147483626
  381.       ActiveTabForeColor=   10972496
  382.       InActiveTabForeColor=   9474192
  383.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  384.          Name            =   "Verdana"
  385.          Size            =   8.25
  386.          Charset         =   0
  387.          Weight          =   700
  388.          Underline       =   0   'False
  389.          Italic          =   0   'False
  390.          Strikethrough   =   0   'False
  391.       EndProperty
  392.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  393.          Name            =   "Verdana"
  394.          Size            =   8.25
  395.          Charset         =   0
  396.          Weight          =   400
  397.          Underline       =   0   'False
  398.          Italic          =   0   'False
  399.          Strikethrough   =   0   'False
  400.       EndProperty
  401.       OuterBorderColor=   9474192
  402.       DisabledTabBackColor=   -2147483633
  403.       DisabledTabForeColor=   -2147483627
  404.       XRadius         =   50
  405.       YRadius         =   50
  406.    End
  407.    Begin prjXTab.XTab XTab10 
  408.       Height          =   1245
  409.       Left            =   5490
  410.       TabIndex        =   9
  411.       Top             =   6120
  412.       Width           =   1155
  413.       _ExtentX        =   2037
  414.       _ExtentY        =   2196
  415.       TabCount        =   4
  416.       TabCaption(0)   =   "1"
  417.       TabCaption(1)   =   "2"
  418.       TabCaption(2)   =   "3"
  419.       TabCaption(3)   =   "4"
  420.       InActiveTabHeight=   50
  421.       TabTheme        =   3
  422.       ShowFocusRect   =   0   'False
  423.       ActiveTabBackStartColor=   12632319
  424.       InActiveTabBackStartColor=   15066597
  425.       InActiveTabBackEndColor=   -2147483626
  426.       ActiveTabForeColor=   10972496
  427.       InActiveTabForeColor=   9474192
  428.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  429.          Name            =   "Verdana"
  430.          Size            =   8.25
  431.          Charset         =   0
  432.          Weight          =   700
  433.          Underline       =   0   'False
  434.          Italic          =   0   'False
  435.          Strikethrough   =   0   'False
  436.       EndProperty
  437.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  438.          Name            =   "Verdana"
  439.          Size            =   8.25
  440.          Charset         =   0
  441.          Weight          =   400
  442.          Underline       =   0   'False
  443.          Italic          =   0   'False
  444.          Strikethrough   =   0   'False
  445.       EndProperty
  446.       OuterBorderColor=   9474192
  447.       DisabledTabBackColor=   -2147483633
  448.       DisabledTabForeColor=   -2147483627
  449.       XRadius         =   0
  450.       YRadius         =   0
  451.    End
  452.    Begin VB.Label Label1 
  453.       Alignment       =   2  'Center
  454.       AutoSize        =   -1  'True
  455.       BackStyle       =   0  'Transparent
  456.       Caption         =   "::Themes Emulating a Hand::"
  457.       Height          =   195
  458.       Left            =   2370
  459.       TabIndex        =   16
  460.       Top             =   5790
  461.       Width           =   2565
  462.    End
  463.    Begin VB.Label Label12 
  464.       Alignment       =   2  'Center
  465.       AutoSize        =   -1  'True
  466.       BackStyle       =   0  'Transparent
  467.       Caption         =   "::Windows 9x (Using Icons)::"
  468.       Height          =   195
  469.       Left            =   2385
  470.       TabIndex        =   15
  471.       Top             =   3960
  472.       Width           =   2535
  473.    End
  474.    Begin VB.Label Label7 
  475.       Alignment       =   2  'Center
  476.       AutoSize        =   -1  'True
  477.       BackStyle       =   0  'Transparent
  478.       Caption         =   "::Windows 9x (Customized)::"
  479.       Height          =   195
  480.       Left            =   2340
  481.       TabIndex        =   14
  482.       Top             =   2070
  483.       Width           =   2550
  484.    End
  485.    Begin VB.Label Label2 
  486.       Alignment       =   2  'Center
  487.       AutoSize        =   -1  'True
  488.       BackStyle       =   0  'Transparent
  489.       Caption         =   "::Windows 9x (Standard)::"
  490.       Height          =   195
  491.       Left            =   2430
  492.       TabIndex        =   13
  493.       Top             =   180
  494.       Width           =   2325
  495.    End
  496. End
  497. Attribute VB_Name = "frmPreviewMore"
  498. Attribute VB_GlobalNameSpace = False
  499. Attribute VB_Creatable = False
  500. Attribute VB_PredeclaredId = True
  501. Attribute VB_Exposed = False
  502. Option Explicit
  503. Private Sub chkShowFocusRect_Click()
  504.   Dim bFlag As Boolean
  505.   Dim oCtl As Control
  506.   
  507.   
  508.   If chkShowFocusRect.Value = vbChecked Then
  509.     bFlag = True
  510.   Else
  511.     bFlag = False
  512.   End If
  513.   
  514.   'Set focus rect Property for all the XTab controls on the form
  515.   For Each oCtl In Me.Controls
  516.     If TypeOf oCtl Is XTab Then
  517.       oCtl.ShowFocusRect = bFlag
  518.     End If
  519.   Next
  520. End Sub
  521. Private Sub cmdBack_Click()
  522.   Load frmPreviewMain
  523.   frmPreviewMain.Refresh
  524.   
  525.   frmPreviewMain.Left = Me.Left
  526.   frmPreviewMain.Top = Me.Top
  527.   
  528.   frmPreviewMain.Show
  529.   frmPreviewMain.Refresh
  530.   
  531.   Me.Hide
  532.   Unload Me
  533. End Sub
  534. Private Sub cmdPreviewEvenMore_Click()
  535.   Load frmPreviewEvenMore
  536.   frmPreviewEvenMore.Refresh
  537.   
  538.   frmPreviewEvenMore.Left = Me.Left
  539.   frmPreviewEvenMore.Top = Me.Top
  540.   
  541.   frmPreviewEvenMore.Show
  542.   frmPreviewEvenMore.Refresh
  543.   
  544.   Me.Hide
  545.   Unload Me
  546. End Sub