home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / associ1g / frmtestb.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-27  |  15.2 KB  |  534 lines
  1. VERSION 5.00
  2. Object = "*\AProject1.vbp"
  3. Begin VB.Form frmtestbar 
  4.    BackColor       =   &H00FF0000&
  5.    Caption         =   "Progress Bar ActiveX Control Example"
  6.    ClientHeight    =   4755
  7.    ClientLeft      =   60
  8.    ClientTop       =   300
  9.    ClientWidth     =   9780
  10.    FillColor       =   &H000080FF&
  11.    ForeColor       =   &H80000010&
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4755
  14.    ScaleWidth      =   9780
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CheckBox Check5 
  17.       Caption         =   "Border 3D"
  18.       Height          =   195
  19.       Left            =   8340
  20.       TabIndex        =   29
  21.       Top             =   4500
  22.       Width           =   1095
  23.    End
  24.    Begin VB.CheckBox Check4 
  25.       Caption         =   "Border 3D"
  26.       Height          =   255
  27.       Left            =   6660
  28.       TabIndex        =   28
  29.       Top             =   4440
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CheckBox Check3 
  33.       Caption         =   "Border 3D"
  34.       Height          =   195
  35.       Left            =   480
  36.       TabIndex        =   27
  37.       Top             =   4440
  38.       Width           =   1155
  39.    End
  40.    Begin VB.CheckBox Check2 
  41.       Caption         =   "Border 3D"
  42.       Height          =   195
  43.       Left            =   540
  44.       TabIndex        =   26
  45.       Top             =   2940
  46.       Width           =   1095
  47.    End
  48.    Begin VB.CheckBox Check1 
  49.       Caption         =   "Border 3D"
  50.       Height          =   195
  51.       Left            =   600
  52.       TabIndex        =   25
  53.       Top             =   1260
  54.       Width           =   1275
  55.    End
  56.    Begin VB.CommandButton Command15 
  57.       Caption         =   "Hide Bar"
  58.       Height          =   315
  59.       Left            =   8280
  60.       TabIndex        =   24
  61.       Top             =   4080
  62.       Width           =   975
  63.    End
  64.    Begin VB.CommandButton Command14 
  65.       Caption         =   "Clear"
  66.       Height          =   315
  67.       Left            =   8280
  68.       TabIndex        =   23
  69.       Top             =   3660
  70.       Width           =   975
  71.    End
  72.    Begin VB.CommandButton Command13 
  73.       Caption         =   "Start"
  74.       Height          =   315
  75.       Left            =   8280
  76.       TabIndex        =   22
  77.       Top             =   3240
  78.       Width           =   975
  79.    End
  80.    Begin SBNProgressBar.Progress Pb5 
  81.       Height          =   2655
  82.       Left            =   8460
  83.       TabIndex        =   20
  84.       Top             =   480
  85.       Width           =   675
  86.       _ExtentX        =   1191
  87.       _ExtentY        =   4683
  88.       ForeColor       =   65280
  89.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   8.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Style           =   3
  99.       Min             =   125
  100.       Max             =   750
  101.    End
  102.    Begin VB.CommandButton Command12 
  103.       Caption         =   "Hide Bar"
  104.       Height          =   315
  105.       Left            =   6660
  106.       TabIndex        =   18
  107.       Top             =   4080
  108.       Width           =   975
  109.    End
  110.    Begin VB.CommandButton Command11 
  111.       Caption         =   "Clear"
  112.       Height          =   315
  113.       Left            =   6660
  114.       TabIndex        =   17
  115.       Top             =   3660
  116.       Width           =   975
  117.    End
  118.    Begin VB.CommandButton Command10 
  119.       Caption         =   "Start"
  120.       Height          =   315
  121.       Left            =   6660
  122.       TabIndex        =   16
  123.       Top             =   3240
  124.       Width           =   975
  125.    End
  126.    Begin SBNProgressBar.Progress Pb4 
  127.       Height          =   2655
  128.       Left            =   6840
  129.       TabIndex        =   15
  130.       Top             =   480
  131.       Width           =   675
  132.       _ExtentX        =   1191
  133.       _ExtentY        =   4683
  134.       ForeColor       =   16776960
  135.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  136.          Name            =   "Times New Roman"
  137.          Size            =   9.75
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Style           =   4
  145.       Max             =   500
  146.    End
  147.    Begin SBNProgressBar.Progress Pb1 
  148.       Height          =   375
  149.       Left            =   600
  150.       TabIndex        =   14
  151.       Top             =   300
  152.       Width           =   5715
  153.       _ExtentX        =   10081
  154.       _ExtentY        =   661
  155.       ForeColor       =   255
  156.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  157.          Name            =   "PosterBodoni BT"
  158.          Size            =   8.25
  159.          Charset         =   0
  160.          Weight          =   700
  161.          Underline       =   0   'False
  162.          Italic          =   -1  'True
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       Max             =   500
  166.    End
  167.    Begin SBNProgressBar.Progress Pb3 
  168.       Height          =   375
  169.       Left            =   420
  170.       TabIndex        =   13
  171.       Top             =   3480
  172.       Width           =   5775
  173.       _ExtentX        =   10186
  174.       _ExtentY        =   661
  175.       ForeColor       =   16711935
  176.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  177.          Name            =   "MS Sans Serif"
  178.          Size            =   8.25
  179.          Charset         =   0
  180.          Weight          =   400
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       Style           =   2
  186.       Max             =   250
  187.    End
  188.    Begin SBNProgressBar.Progress Pb2 
  189.       Height          =   375
  190.       Left            =   480
  191.       TabIndex        =   12
  192.       Top             =   1920
  193.       Width           =   5715
  194.       _ExtentX        =   10081
  195.       _ExtentY        =   661
  196.       ForeColor       =   0
  197.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  198.          Name            =   "Kauflinn"
  199.          Size            =   9.75
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   -1  'True
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       Style           =   1
  207.       Caption         =   "Loading"
  208.       Min             =   200
  209.       Max             =   800
  210.    End
  211.    Begin VB.CommandButton Command9 
  212.       Caption         =   "Hide Bar"
  213.       Height          =   315
  214.       Left            =   4440
  215.       TabIndex        =   9
  216.       Top             =   4080
  217.       Width           =   1215
  218.    End
  219.    Begin VB.CommandButton Command8 
  220.       Caption         =   "Hide Bar"
  221.       Height          =   315
  222.       Left            =   4440
  223.       TabIndex        =   8
  224.       Top             =   2520
  225.       Width           =   1215
  226.    End
  227.    Begin VB.CommandButton Command7 
  228.       Caption         =   "Hide Bar"
  229.       Height          =   315
  230.       Left            =   4440
  231.       TabIndex        =   6
  232.       Top             =   780
  233.       Width           =   1215
  234.    End
  235.    Begin VB.CommandButton Command6 
  236.       Caption         =   "Clear"
  237.       Height          =   315
  238.       Left            =   2760
  239.       TabIndex        =   5
  240.       Top             =   4080
  241.       Width           =   1275
  242.    End
  243.    Begin VB.CommandButton Command5 
  244.       Caption         =   "Start"
  245.       Height          =   315
  246.       Left            =   1080
  247.       TabIndex        =   4
  248.       Top             =   4080
  249.       Width           =   1215
  250.    End
  251.    Begin VB.CommandButton Command4 
  252.       Caption         =   "Clear"
  253.       Height          =   315
  254.       Left            =   2760
  255.       TabIndex        =   3
  256.       Top             =   2520
  257.       Width           =   1215
  258.    End
  259.    Begin VB.CommandButton Command3 
  260.       Caption         =   "Start"
  261.       Height          =   315
  262.       Left            =   1140
  263.       TabIndex        =   2
  264.       Top             =   2520
  265.       Width           =   1215
  266.    End
  267.    Begin VB.CommandButton Command2 
  268.       Caption         =   "Clear"
  269.       Height          =   315
  270.       Left            =   2820
  271.       TabIndex        =   1
  272.       Top             =   780
  273.       Width           =   1215
  274.    End
  275.    Begin VB.CommandButton Command1 
  276.       Caption         =   "Start"
  277.       Height          =   315
  278.       Left            =   1140
  279.       TabIndex        =   0
  280.       Top             =   780
  281.       Width           =   1215
  282.    End
  283.    Begin VB.Label Label5 
  284.       Alignment       =   2  'Center
  285.       Caption         =   "Style Bare Only Vertical"
  286.       BeginProperty Font 
  287.          Name            =   "MS Sans Serif"
  288.          Size            =   9.75
  289.          Charset         =   0
  290.          Weight          =   700
  291.          Underline       =   0   'False
  292.          Italic          =   0   'False
  293.          Strikethrough   =   0   'False
  294.       EndProperty
  295.       Height          =   495
  296.       Left            =   8100
  297.       TabIndex        =   21
  298.       Top             =   0
  299.       Width           =   1455
  300.    End
  301.    Begin VB.Label Label4 
  302.       Alignment       =   2  'Center
  303.       Caption         =   "Style Percent Vertical"
  304.       BeginProperty Font 
  305.          Name            =   "MS Sans Serif"
  306.          Size            =   9.75
  307.          Charset         =   0
  308.          Weight          =   700
  309.          Underline       =   0   'False
  310.          Italic          =   0   'False
  311.          Strikethrough   =   0   'False
  312.       EndProperty
  313.       Height          =   435
  314.       Left            =   6480
  315.       TabIndex        =   19
  316.       Top             =   0
  317.       Width           =   1515
  318.    End
  319.    Begin VB.Label Label3 
  320.       Alignment       =   2  'Center
  321.       Caption         =   "Style Bare Only Horizontal"
  322.       BeginProperty Font 
  323.          Name            =   "MS Sans Serif"
  324.          Size            =   9.75
  325.          Charset         =   0
  326.          Weight          =   700
  327.          Underline       =   0   'False
  328.          Italic          =   0   'False
  329.          Strikethrough   =   0   'False
  330.       EndProperty
  331.       Height          =   315
  332.       Left            =   1860
  333.       TabIndex        =   11
  334.       Top             =   3180
  335.       Width           =   3615
  336.    End
  337.    Begin VB.Label Label2 
  338.       Caption         =   "Style Label Percent Horizontal"
  339.       BeginProperty Font 
  340.          Name            =   "MS Sans Serif"
  341.          Size            =   9.75
  342.          Charset         =   0
  343.          Weight          =   700
  344.          Underline       =   0   'False
  345.          Italic          =   0   'False
  346.          Strikethrough   =   0   'False
  347.       EndProperty
  348.       Height          =   315
  349.       Left            =   1980
  350.       TabIndex        =   10
  351.       Top             =   1500
  352.       Width           =   3555
  353.    End
  354.    Begin VB.Label Label1 
  355.       Alignment       =   2  'Center
  356.       Caption         =   "Style Percent Horizontal"
  357.       BeginProperty Font 
  358.          Name            =   "MS Sans Serif"
  359.          Size            =   9.75
  360.          Charset         =   0
  361.          Weight          =   700
  362.          Underline       =   0   'False
  363.          Italic          =   0   'False
  364.          Strikethrough   =   0   'False
  365.       EndProperty
  366.       Height          =   255
  367.       Left            =   2340
  368.       TabIndex        =   7
  369.       Top             =   60
  370.       Width           =   3075
  371.    End
  372. Attribute VB_Name = "frmtestbar"
  373. Attribute VB_GlobalNameSpace = False
  374. Attribute VB_Creatable = False
  375. Attribute VB_PredeclaredId = True
  376. Attribute VB_Exposed = False
  377. Private Sub Check1_Click()
  378. If Check1.Value = 1 Then
  379.    Pb1.border = [3D]
  380.    Pb1.border = Flat
  381. End If
  382. End Sub
  383. Private Sub Check2_Click()
  384. If Check2.Value = 1 Then
  385.    Pb2.border = [3D]
  386.    Pb2.border = Flat
  387. End If
  388. End Sub
  389. Private Sub Check3_Click()
  390. If Check3.Value = 1 Then
  391.    Pb3.border = [3D]
  392.    Pb3.border = Flat
  393. End If
  394. End Sub
  395. Private Sub Check4_Click()
  396. If Check4.Value = 1 Then
  397.    Pb4.border = [3D]
  398.    Pb4.border = Flat
  399. End If
  400. End Sub
  401. Private Sub Check5_Click()
  402. If Check5.Value = 1 Then
  403.    Pb5.border = [3D]
  404.    Pb5.border = Flat
  405. End If
  406. End Sub
  407. Private Sub Command1_Click()
  408. Dim k As Long
  409. If Command1.Caption = "Start" Then
  410.    Command1.Caption = "Stop"
  411.    For k = Pb1.Min To Pb1.Max
  412.       Pb1.Change k
  413.    Next k
  414.    Command1.Caption = "Start"
  415. End If
  416. End Sub
  417. Private Sub Command10_Click()
  418. Dim k As Long
  419. If Command10.Caption = "Start" Then
  420.    Command10.Caption = "Stop"
  421.    For k = Pb4.Min To Pb4.Max
  422.       Pb4.Change k
  423.    Next k
  424.    Command10.Caption = "Start"
  425. End If
  426. End Sub
  427. Private Sub Command11_Click()
  428. Pb4.Clear
  429. End Sub
  430. Private Sub Command12_Click()
  431. If Command12.Caption = "Hide Bar" Then
  432.    Pb4.Visible = False
  433.    Pb4.Enabled = False
  434.    Command12.Caption = "Show Bar"
  435.    Pb4.Visible = True
  436.    Pb4.Enabled = True
  437.    Command12.Caption = "Hide Bar"
  438. End If
  439. End Sub
  440. Private Sub Command13_Click()
  441. Dim k As Long
  442. If Command13.Caption = "Start" Then
  443.    Command13.Caption = "Stop"
  444.    For k = Pb5.Min To Pb5.Max
  445.       Pb5.Change k
  446.    Next k
  447.    Command13.Caption = "Start"
  448. End If
  449. End Sub
  450. Private Sub Command14_Click()
  451. Pb5.Clear
  452. End Sub
  453. Private Sub Command15_Click()
  454. If Command15.Caption = "Hide Bar" Then
  455.    Pb5.Visible = False
  456.    Pb5.Enabled = False
  457.    Command15.Caption = "Show Bar"
  458.    Pb5.Visible = True
  459.    Pb5.Enabled = True
  460.    Command15.Caption = "Hide Bar"
  461. End If
  462. End Sub
  463. Private Sub Command2_Click()
  464. Pb1.Clear
  465. End Sub
  466. Private Sub Command3_Click()
  467. Dim k As Long
  468. If Command3.Caption = "Start" Then
  469.    Command3.Caption = "Stop"
  470.    For k = Pb2.Min To Pb2.Max
  471.       Pb2.Change k
  472.    Next k
  473.    Command3.Caption = "Start"
  474. End If
  475. End Sub
  476. Private Sub Command4_Click()
  477. Pb2.Clear
  478. End Sub
  479. Private Sub Command5_Click()
  480. Dim k As Long
  481. If Command5.Caption = "Start" Then
  482.    Command5.Caption = "Stop"
  483.    For k = Pb3.Min To Pb3.Max
  484.       Pb3.Change k
  485.    Next k
  486.    Command5.Caption = "Start"
  487. End If
  488. End Sub
  489. Private Sub Command6_Click()
  490. Pb3.Clear
  491. End Sub
  492. Private Sub Command7_Click()
  493. If Command7.Caption = "Hide Bar" Then
  494.    Pb1.Visible = False
  495.    Pb1.Enabled = False
  496.    Command7.Caption = "Show Bar"
  497.    Pb1.Visible = True
  498.    Pb1.Enabled = True
  499.    Command7.Caption = "Hide Bar"
  500. End If
  501. End Sub
  502. Private Sub Command8_Click()
  503. If Command8.Caption = "Hide Bar" Then
  504.    Pb2.Visible = False
  505.    Pb2.Enabled = False
  506.    Command8.Caption = "Show Bar"
  507.    Pb2.Visible = True
  508.    Pb2.Enabled = True
  509.    Command8.Caption = "Hide Bar"
  510. End If
  511. End Sub
  512. Private Sub Command9_Click()
  513. If Command9.Caption = "Hide Bar" Then
  514.    Pb3.Visible = False
  515.    Pb3.Enabled = False
  516.    Command9.Caption = "Show Bar"
  517.    Pb3.Visible = True
  518.    Pb3.Enabled = True
  519.    Command9.Caption = "Hide Bar"
  520. End If
  521. End Sub
  522. Private Sub Option1_Click()
  523. If Option1.Value = 1 Then
  524.    Pb1.border = [3D]
  525. End If
  526. End Sub
  527. Private Sub Form_Load()
  528. Check1.Value = 1
  529. Check2.Value = 1
  530. Check3.Value = 1
  531. Check4.Value = 1
  532. Check5.Value = 1
  533. End Sub
  534.