home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / DirectX8 / dx8vbsdk.exe / samples / multimedia / vbsamples / directplay / conferencer / frmprogress.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-10-02  |  1.9 KB  |  57 lines

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  3. Begin VB.Form frmProgress 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "File Copy Progress"
  6.    ClientHeight    =   1095
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3870
  10.    Icon            =   "frmProgress.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1095
  15.    ScaleWidth      =   3870
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin MSComctlLib.ProgressBar bar 
  19.       Height          =   375
  20.       Left            =   60
  21.       TabIndex        =   0
  22.       Top             =   540
  23.       Width           =   3675
  24.       _ExtentX        =   6482
  25.       _ExtentY        =   661
  26.       _Version        =   393216
  27.       Appearance      =   1
  28.       Scrolling       =   1
  29.    End
  30.    Begin VB.Label lblFile 
  31.       BackStyle       =   0  'Transparent
  32.       Height          =   315
  33.       Left            =   60
  34.       TabIndex        =   1
  35.       Top             =   60
  36.       Width           =   3675
  37.    End
  38. Attribute VB_Name = "frmProgress"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  44. '  Copyright (C) 2000 Microsoft Corporation.  All Rights Reserved.
  45. '  File:       frmProgress.frm
  46. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  47. Option Explicit
  48. Public Sub SetFile(ByVal sFile As String)
  49.     lblFile.Caption = "Transfering: " & sFile
  50. End Sub
  51. Public Sub SetMax(ByVal lMax As Long)
  52.     bar.Max = lMax
  53. End Sub
  54. Public Sub SetValue(ByVal lValue As Long)
  55.     bar.Value = lValue
  56. End Sub
  57.