home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mcbar / complex.fr_ / complex.fr (.txt)
Encoding:
Visual Basic Form  |  1998-01-31  |  9.8 KB  |  283 lines
  1. VERSION 5.00
  2. Object = "{CD8DBB13-94EE-11D1-921D-006097A8F11E}#6.0#0"; "mcBar1.ocx"
  3. Begin VB.Form frmComplexProgressBar 
  4.    Caption         =   "Complex Progress Bar"
  5.    ClientHeight    =   2415
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8835
  9.    ScaleHeight     =   2415
  10.    ScaleWidth      =   8835
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin mcBar_by_The_MCR_Company.mcBar mcStatusBar 
  13.       Align           =   2  'Align Bottom
  14.       Height          =   285
  15.       Left            =   0
  16.       TabIndex        =   6
  17.       Top             =   2130
  18.       Width           =   8835
  19.       _ExtentX        =   15584
  20.       _ExtentY        =   503
  21.       Blocks          =   2
  22.       Block.BarLeft(1)=   0
  23.       Block.BarRight(1)=   90
  24.       Block.BorderStyle(1)=   2
  25.       Block.HPercentage(1)=   "90"
  26.       Block.VPercentage(1)=   "100"
  27.       Block.GradientStyle(1)=   6
  28.       Block.GradientColor(1)=   16777215
  29.       Block.Text(1)   =   "mcBar ActiveX control by The MCR Company"
  30.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Block.TextFont3D(1)=   4
  40.       Block.BarLeft(2)=   90
  41.       Block.BarRight(2)=   100
  42.       Block.BorderStyle(2)=   2
  43.       Block.HPercentage(2)=   "10"
  44.       Block.VPercentage(2)=   "100"
  45.       Block.Text(2)   =   "!long time!"
  46.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  47.          Name            =   "Arial"
  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.       Block.TextFont3D(2)=   1
  56.       Object.Height          =   285
  57.       Object.Width           =   8835
  58.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  59.          Name            =   "MS Sans Serif"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.    End
  68.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  69.       Height          =   645
  70.       Left            =   90
  71.       TabIndex        =   5
  72.       Top             =   360
  73.       Width           =   7485
  74.       _ExtentX        =   13203
  75.       _ExtentY        =   1138
  76.       Blocks          =   2
  77.       Block.GradientStyle(1)=   2
  78.       Block.GradientGranularity(1)=   1
  79.       Block.GradientColor(1)=   65535
  80.       Block.Text(1)   =   "!h%!"
  81.       Block.TextColor(1)=   16777215
  82.       Block.TextAlignment(1)=   7
  83.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  84.          Name            =   "Arial"
  85.          Size            =   9.75
  86.          Charset         =   0
  87.          Weight          =   700
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Block.GradientStyle(2)=   1
  93.       Block.GradientGranularity(2)=   1
  94.       Block.GradientColor(2)=   65280
  95.       Block.Text(2)   =   "!h%!"
  96.       Block.TextColor(2)=   16777215
  97.       Block.TextAlignment(2)=   8
  98.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  99.          Name            =   "Arial"
  100.          Size            =   9.75
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       Object.Height          =   645
  108.       Object.Width           =   7485
  109.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  110.          Name            =   "Arial"
  111.          Size            =   14.25
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       Caption         =   "complex progress bar"
  119.       CaptionAutoAngle=   2
  120.       CaptionFont3D   =   2
  121.    End
  122.    Begin mcBar_by_The_MCR_Company.mcBar mcBar2 
  123.       Height          =   465
  124.       Left            =   90
  125.       TabIndex        =   4
  126.       Top             =   1350
  127.       Width           =   7485
  128.       _ExtentX        =   13203
  129.       _ExtentY        =   820
  130.       Blocks          =   3
  131.       Block.BarLeft(1)=   0
  132.       Block.BarRight(1)=   3
  133.       Block.BorderStyle(1)=   2
  134.       Block.Visible(1)=   0   'False
  135.       Block.HPercentage(1)=   "3"
  136.       Block.VPercentage(1)=   "100"
  137.       Block.GradientStyle(1)=   8
  138.       Block.GradientGranularity(1)=   3
  139.       Block.GradientColor(1)=   16777215
  140.       BeginProperty Block.TextFont(1) {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.       Block.RivetsStyle(1)=   1
  150.       Block.BarLeft(2)=   97
  151.       Block.BarRight(2)=   100
  152.       Block.BorderStyle(2)=   2
  153.       Block.Visible(2)=   0   'False
  154.       Block.HPercentage(2)=   "3"
  155.       Block.VPercentage(2)=   "100"
  156.       Block.GradientStyle(2)=   8
  157.       Block.GradientGranularity(2)=   3
  158.       Block.GradientColor(2)=   16777215
  159.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.          Name            =   "MS Sans Serif"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Block.RivetsStyle(2)=   1
  169.       Block.BarLeft(3)=   3
  170.       Block.BarRight(3)=   97
  171.       Block.BarTop(3) =   65
  172.       Block.BarBottom(3)=   35
  173.       Block.BorderStyle(3)=   2
  174.       Block.BorderWidth(3)=   0
  175.       Block.Visible(3)=   0   'False
  176.       Block.HPercentage(3)=   "94"
  177.       Block.VPercentage(3)=   "30"
  178.       Block.GradientStyle(3)=   8
  179.       Block.GradientGranularity(3)=   4
  180.       Block.GradientColor(3)=   16777215
  181.       BeginProperty Block.TextFont(3) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  182.          Name            =   "MS Sans Serif"
  183.          Size            =   8.25
  184.          Charset         =   0
  185.          Weight          =   400
  186.          Underline       =   0   'False
  187.          Italic          =   0   'False
  188.          Strikethrough   =   0   'False
  189.       EndProperty
  190.       Object.Height          =   465
  191.       Object.Width           =   7485
  192.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  193.          Name            =   "Arial"
  194.          Size            =   14.25
  195.          Charset         =   0
  196.          Weight          =   700
  197.          Underline       =   0   'False
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       Caption         =   "complex progress bar"
  202.       CaptionAutoAngle=   1
  203.       CaptionFont3D   =   2
  204.       GradientStyle   =   1
  205.       GradientColor   =   65535
  206.    End
  207.    Begin VB.CommandButton Command2 
  208.       Caption         =   "&Start"
  209.       Height          =   465
  210.       Left            =   7740
  211.       TabIndex        =   3
  212.       Top             =   1350
  213.       Width           =   1005
  214.    End
  215.    Begin VB.CommandButton Command1 
  216.       Caption         =   "&Start"
  217.       Height          =   645
  218.       Left            =   7740
  219.       TabIndex        =   0
  220.       Top             =   360
  221.       Width           =   1005
  222.    End
  223.    Begin VB.Label Label1 
  224.       AutoSize        =   -1  'True
  225.       Caption         =   "Progress bar with three blocks:"
  226.       Height          =   195
  227.       Index           =   1
  228.       Left            =   90
  229.       TabIndex        =   2
  230.       Top             =   1080
  231.       Width           =   2175
  232.    End
  233.    Begin VB.Label Label1 
  234.       AutoSize        =   -1  'True
  235.       Caption         =   "Progress bar with two blocks:"
  236.       Height          =   195
  237.       Index           =   0
  238.       Left            =   90
  239.       TabIndex        =   1
  240.       Top             =   90
  241.       Width           =   2070
  242.    End
  243. Attribute VB_Name = "frmComplexProgressBar"
  244. Attribute VB_GlobalNameSpace = False
  245. Attribute VB_Creatable = False
  246. Attribute VB_PredeclaredId = True
  247. Attribute VB_Exposed = False
  248. Option Explicit
  249. Private Sub Command1_Click()
  250.    Dim i       As Integer
  251.    mcBar1.BlockBarLeft(1) = 0
  252.    mcBar1.BlockBarRight(2) = 100
  253.    For i = 0 To 100
  254.       mcBar1.Redraw = False
  255.       mcBar1.BlockBarRight(1) = i
  256.       mcBar1.BlockBarLeft(2) = i
  257.       mcBar1.Redraw = True
  258.       DoEvents
  259.    Next i
  260. End Sub
  261. Private Sub Command2_Click()
  262.    Dim i       As Integer
  263.    mcBar2.BlockBarLeft(1) = 0
  264.    mcBar2.BlockBarRight(2) = 100
  265.    mcBar2.RestoreSetting
  266.    For i = 0 To 46
  267.       mcBar2.Redraw = False
  268.       mcBar2.BlockBarLeft(1) = mcBar2.BlockBarLeft(1) + 1
  269.       mcBar2.BlockBarRight(1) = mcBar2.BlockBarRight(1) + 1
  270.       mcBar2.BlockBarLeft(2) = mcBar2.BlockBarLeft(2) - 1
  271.       mcBar2.BlockBarRight(2) = mcBar2.BlockBarRight(2) - 1
  272.       mcBar2.BlockBarLeft(3) = mcBar2.BlockBarRight(1)
  273.       mcBar2.BlockBarRight(3) = mcBar2.BlockBarLeft(2)
  274.       mcBar2.Redraw = True
  275.       DoEvents
  276.    Next i
  277. End Sub
  278. Private Sub Form_Load()
  279.    mcStatusBar.TimerTimeEnabled = True
  280.    mcBar2.SetBlockVisible True
  281.    mcBar2.SaveSetting
  282. End Sub
  283.