home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / U11D_Progr2073356302007.psc / FrmTest.frm < prev    next >
Text File  |  2007-06-30  |  14KB  |  432 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmTest 
  3.    Caption         =   "U11D PROGRESSBARÖ BY UMAIR_11D«⌐ CORPORATION."
  4.    ClientHeight    =   6000
  5.    ClientLeft      =   60
  6.    ClientTop       =   420
  7.    ClientWidth     =   7335
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   400
  10.    ScaleMode       =   3  'Pixel
  11.    ScaleWidth      =   489
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin U11DProgressBar.ProgressBar ProgressBar11 
  14.       Height          =   870
  15.       Left            =   1185
  16.       TabIndex        =   16
  17.       Top             =   4080
  18.       Width           =   6045
  19.       _ExtentX        =   10663
  20.       _ExtentY        =   1535
  21.       TextStyle       =   3
  22.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   12
  25.          Charset         =   0
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       TextForeColor   =   255
  32.       Text            =   "CUSTOME FONT AND SIZE AND TEXT EFFECT"
  33.       TextEffectColor =   65280
  34.       TextEffect      =   4
  35.    End
  36.    Begin U11DProgressBar.ProgressBar ProgressBar10 
  37.       Height          =   300
  38.       Left            =   2175
  39.       TabIndex        =   15
  40.       Top             =   3750
  41.       Width           =   4425
  42.       _ExtentX        =   7805
  43.       _ExtentY        =   529
  44.       Theme           =   10
  45.       TextStyle       =   3
  46.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   8.25
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Text            =   "THEME 10 CUSTOME"
  56.       TextEffectColor =   16777215
  57.       TextEffect      =   5
  58.       PBSCustomeColor2=   16777152
  59.       PBSCustomeColor1=   12632319
  60.    End
  61.    Begin U11DProgressBar.ProgressBar ProgressBar9 
  62.       Height          =   300
  63.       Left            =   2055
  64.       TabIndex        =   14
  65.       Top             =   3435
  66.       Width           =   4425
  67.       _ExtentX        =   7805
  68.       _ExtentY        =   529
  69.       Theme           =   9
  70.       TextStyle       =   3
  71.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  72.          Name            =   "MS Sans Serif"
  73.          Size            =   8.25
  74.          Charset         =   0
  75.          Weight          =   400
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       Text            =   "THEME 9"
  81.       TextEffectColor =   16777215
  82.       TextEffect      =   5
  83.    End
  84.    Begin U11DProgressBar.ProgressBar ProgressBar8 
  85.       Height          =   300
  86.       Left            =   1935
  87.       TabIndex        =   13
  88.       Top             =   3105
  89.       Width           =   4425
  90.       _ExtentX        =   7805
  91.       _ExtentY        =   529
  92.       Theme           =   8
  93.       TextStyle       =   3
  94.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  95.          Name            =   "MS Sans Serif"
  96.          Size            =   8.25
  97.          Charset         =   0
  98.          Weight          =   400
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Text            =   "THEME 8"
  104.       TextEffectColor =   16777215
  105.       TextEffect      =   5
  106.    End
  107.    Begin U11DProgressBar.ProgressBar ProgressBar7 
  108.       Height          =   300
  109.       Left            =   1335
  110.       TabIndex        =   12
  111.       Top             =   1470
  112.       Width           =   4425
  113.       _ExtentX        =   7805
  114.       _ExtentY        =   529
  115.       Theme           =   3
  116.       TextStyle       =   3
  117.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          Name            =   "MS Sans Serif"
  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.       Text            =   "THEME 3"
  127.       TextEffectColor =   16777215
  128.       TextEffect      =   5
  129.    End
  130.    Begin U11DProgressBar.ProgressBar ProgressBar6 
  131.       Height          =   300
  132.       Left            =   1455
  133.       TabIndex        =   11
  134.       Top             =   1785
  135.       Width           =   4425
  136.       _ExtentX        =   7805
  137.       _ExtentY        =   529
  138.       Theme           =   4
  139.       TextStyle       =   3
  140.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   8.25
  143.          Charset         =   0
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Text            =   "THEME 4"
  150.       TextEffectColor =   16777215
  151.       TextEffect      =   5
  152.    End
  153.    Begin U11DProgressBar.ProgressBar ProgressBar5 
  154.       Height          =   300
  155.       Left            =   1575
  156.       TabIndex        =   10
  157.       Top             =   2115
  158.       Width           =   4425
  159.       _ExtentX        =   7805
  160.       _ExtentY        =   529
  161.       Theme           =   5
  162.       TextStyle       =   3
  163.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  164.          Name            =   "MS Sans Serif"
  165.          Size            =   8.25
  166.          Charset         =   0
  167.          Weight          =   400
  168.          Underline       =   0   'False
  169.          Italic          =   0   'False
  170.          Strikethrough   =   0   'False
  171.       EndProperty
  172.       Text            =   "THEME 5"
  173.       TextEffectColor =   16777215
  174.       TextEffect      =   5
  175.    End
  176.    Begin U11DProgressBar.ProgressBar ProgressBar4 
  177.       Height          =   300
  178.       Left            =   1695
  179.       TabIndex        =   9
  180.       Top             =   2445
  181.       Width           =   4425
  182.       _ExtentX        =   7805
  183.       _ExtentY        =   529
  184.       Theme           =   6
  185.       TextStyle       =   3
  186.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  187.          Name            =   "MS Sans Serif"
  188.          Size            =   8.25
  189.          Charset         =   0
  190.          Weight          =   400
  191.          Underline       =   0   'False
  192.          Italic          =   0   'False
  193.          Strikethrough   =   0   'False
  194.       EndProperty
  195.       Text            =   "THEME 6"
  196.       TextEffectColor =   16777215
  197.       TextEffect      =   5
  198.    End
  199.    Begin U11DProgressBar.ProgressBar ProgressBar3 
  200.       Height          =   300
  201.       Left            =   1815
  202.       TabIndex        =   8
  203.       Top             =   2775
  204.       Width           =   4425
  205.       _ExtentX        =   7805
  206.       _ExtentY        =   529
  207.       Theme           =   7
  208.       TextStyle       =   3
  209.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  210.          Name            =   "MS Sans Serif"
  211.          Size            =   8.25
  212.          Charset         =   0
  213.          Weight          =   400
  214.          Underline       =   0   'False
  215.          Italic          =   0   'False
  216.          Strikethrough   =   0   'False
  217.       EndProperty
  218.       Text            =   "THEME 7"
  219.       TextEffectColor =   16777215
  220.       TextEffect      =   5
  221.    End
  222.    Begin U11DProgressBar.ProgressBar ProgressBar2 
  223.       Height          =   300
  224.       Left            =   1215
  225.       TabIndex        =   7
  226.       Top             =   1155
  227.       Width           =   4425
  228.       _ExtentX        =   7805
  229.       _ExtentY        =   529
  230.       Theme           =   2
  231.       TextStyle       =   3
  232.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  233.          Name            =   "MS Sans Serif"
  234.          Size            =   8.25
  235.          Charset         =   0
  236.          Weight          =   400
  237.          Underline       =   0   'False
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       Text            =   "THEME 2"
  242.       TextEffectColor =   16777215
  243.       TextEffect      =   5
  244.    End
  245.    Begin U11DProgressBar.ProgressBar ProgressBar1 
  246.       Height          =   300
  247.       Left            =   1095
  248.       TabIndex        =   6
  249.       Top             =   840
  250.       Width           =   4425
  251.       _ExtentX        =   7805
  252.       _ExtentY        =   529
  253.       TextStyle       =   3
  254.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  255.          Name            =   "MS Sans Serif"
  256.          Size            =   8.25
  257.          Charset         =   0
  258.          Weight          =   400
  259.          Underline       =   0   'False
  260.          Italic          =   0   'False
  261.          Strikethrough   =   0   'False
  262.       EndProperty
  263.       Text            =   "THEME 1"
  264.       TextEffectColor =   16777215
  265.       TextEffect      =   5
  266.    End
  267.    Begin VB.CommandButton Command2 
  268.       Caption         =   "About"
  269.       Height          =   495
  270.       Left            =   1320
  271.       TabIndex        =   5
  272.       Top             =   5085
  273.       Width           =   1215
  274.    End
  275.    Begin U11DProgressBar.ProgressBar P 
  276.       Height          =   300
  277.       Index           =   0
  278.       Left            =   90
  279.       TabIndex        =   1
  280.       Top             =   120
  281.       Width           =   7125
  282.       _ExtentX        =   12568
  283.       _ExtentY        =   529
  284.       Max             =   500
  285.       Value           =   250
  286.       Enabled         =   0   'False
  287.       TextStyle       =   3
  288.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  289.          Name            =   "MS Sans Serif"
  290.          Size            =   8.25
  291.          Charset         =   0
  292.          Weight          =   400
  293.          Underline       =   0   'False
  294.          Italic          =   0   'False
  295.          Strikethrough   =   0   'False
  296.       EndProperty
  297.       Text            =   "DISBLED"
  298.       TextEffectColor =   16777215
  299.       TextEffect      =   5
  300.    End
  301.    Begin VB.Timer T 
  302.       Interval        =   1
  303.       Left            =   495
  304.       Top             =   5595
  305.    End
  306.    Begin VB.CommandButton Command1 
  307.       Caption         =   "Chage Theme"
  308.       Height          =   495
  309.       Left            =   105
  310.       TabIndex        =   0
  311.       Top             =   5085
  312.       Width           =   1215
  313.    End
  314.    Begin U11DProgressBar.ProgressBar P 
  315.       Height          =   300
  316.       Index           =   1
  317.       Left            =   105
  318.       TabIndex        =   2
  319.       Top             =   450
  320.       Width           =   7125
  321.       _ExtentX        =   12568
  322.       _ExtentY        =   529
  323.       Max             =   500
  324.       Value           =   250
  325.       TextStyle       =   3
  326.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  327.          Name            =   "MS Sans Serif"
  328.          Size            =   8.25
  329.          Charset         =   0
  330.          Weight          =   400
  331.          Underline       =   0   'False
  332.          Italic          =   0   'False
  333.          Strikethrough   =   0   'False
  334.       EndProperty
  335.       Text            =   "ENABLED"
  336.       TextEffectColor =   16777215
  337.       TextEffect      =   5
  338.    End
  339.    Begin U11DProgressBar.ProgressBar P 
  340.       Height          =   3960
  341.       Index           =   2
  342.       Left            =   90
  343.       TabIndex        =   3
  344.       Top             =   855
  345.       Width           =   435
  346.       _ExtentX        =   767
  347.       _ExtentY        =   6985
  348.       Orientations    =   2
  349.       Max             =   500
  350.       Value           =   250
  351.       Enabled         =   0   'False
  352.       TextStyle       =   2
  353.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  354.          Name            =   "MS Sans Serif"
  355.          Size            =   8.25
  356.          Charset         =   0
  357.          Weight          =   400
  358.          Underline       =   0   'False
  359.          Italic          =   0   'False
  360.          Strikethrough   =   0   'False
  361.       EndProperty
  362.       Text            =   "U11D ProgressBar"
  363.       TextEffectColor =   16777215
  364.       TextEffect      =   5
  365.    End
  366.    Begin U11DProgressBar.ProgressBar P 
  367.       Height          =   3960
  368.       Index           =   3
  369.       Left            =   525
  370.       TabIndex        =   4
  371.       Top             =   855
  372.       Width           =   465
  373.       _ExtentX        =   820
  374.       _ExtentY        =   6985
  375.       Orientations    =   2
  376.       Max             =   500
  377.       Value           =   250
  378.       BeginProperty TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  379.          Name            =   "MS Sans Serif"
  380.          Size            =   8.25
  381.          Charset         =   0
  382.          Weight          =   400
  383.          Underline       =   0   'False
  384.          Italic          =   0   'False
  385.          Strikethrough   =   0   'False
  386.       EndProperty
  387.       Text            =   "U11D ProgressBar"
  388.       TextEffectColor =   16777215
  389.       TextEffect      =   5
  390.    End
  391. End
  392. Attribute VB_Name = "FrmTest"
  393. Attribute VB_GlobalNameSpace = False
  394. Attribute VB_Creatable = False
  395. Attribute VB_PredeclaredId = True
  396. Attribute VB_Exposed = False
  397. Dim THM As Long
  398. Private Sub Command1_Click()
  399. If THM >= 10 Then
  400. THM = 1
  401. Else
  402. THM = THM + 1
  403. End If
  404. P(0).Theme = THM
  405. P(1).Theme = THM
  406. P(2).Theme = THM
  407. P(3).Theme = THM
  408. End Sub
  409.  
  410. Private Sub Command2_Click()
  411. P(0).About
  412. End Sub
  413.  
  414. Private Sub Form_Load()
  415. THM = 1
  416. P(0).Theme = THM
  417. P(1).Theme = THM
  418. P(2).Theme = THM
  419. P(3).Theme = THM
  420. End Sub
  421.  
  422. Private Sub T_Timer()
  423. If P(0).Value >= P(0).Max Then
  424. P(0).Value = 0
  425. Else
  426. P(0).Value = P(0).Value + 1
  427. End If
  428. P(1).Value = P(0).Value
  429. P(2).Value = P(0).Value
  430. P(3).Value = P(0).Value
  431. End Sub
  432.