home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / API_Progre215153562009.psc / forms / frmMain.frm next >
Text File  |  2009-05-06  |  11KB  |  367 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "API_ProgressBar Demo"
  4.    ClientHeight    =   5190
  5.    ClientLeft      =   120
  6.    ClientTop       =   420
  7.    ClientWidth     =   6525
  8.    BeginProperty Font 
  9.       Name            =   "Tahoma"
  10.       Size            =   8.25
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    Icon            =   "frmMain.frx":0000
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   5190
  20.    ScaleWidth      =   6525
  21.    StartUpPosition =   2  'CenterScreen
  22.    Begin API_ProgressBar.ctlProgressBar pb 
  23.       Height          =   255
  24.       Left            =   2640
  25.       Top             =   720
  26.       Width           =   3375
  27.       _ExtentX        =   5953
  28.       _ExtentY        =   450
  29.       Appearance      =   1
  30.    End
  31.    Begin VB.Timer Timer1 
  32.       Enabled         =   0   'False
  33.       Interval        =   250
  34.       Left            =   5640
  35.       Top             =   1680
  36.    End
  37.    Begin VB.CommandButton btnGo 
  38.       Caption         =   "Do stuff"
  39.       Height          =   495
  40.       Left            =   4440
  41.       TabIndex        =   9
  42.       Top             =   1080
  43.       Width           =   1575
  44.    End
  45.    Begin VB.ComboBox cboState 
  46.       Height          =   315
  47.       ItemData        =   "frmMain.frx":3452
  48.       Left            =   480
  49.       List            =   "frmMain.frx":345F
  50.       Style           =   2  'Dropdown List
  51.       TabIndex        =   4
  52.       Top             =   3120
  53.       Width           =   2055
  54.    End
  55.    Begin VB.ComboBox cboScrolling 
  56.       Height          =   315
  57.       ItemData        =   "frmMain.frx":349B
  58.       Left            =   480
  59.       List            =   "frmMain.frx":34A5
  60.       Style           =   2  'Dropdown List
  61.       TabIndex        =   3
  62.       Top             =   2520
  63.       Width           =   2055
  64.    End
  65.    Begin VB.TextBox txtValue 
  66.       Height          =   285
  67.       Left            =   1920
  68.       TabIndex        =   8
  69.       Text            =   "0"
  70.       Top             =   4440
  71.       Width           =   615
  72.    End
  73.    Begin VB.TextBox txtMax 
  74.       Height          =   285
  75.       Left            =   1920
  76.       TabIndex        =   7
  77.       Text            =   "100"
  78.       Top             =   4080
  79.       Width           =   615
  80.    End
  81.    Begin VB.TextBox txtMin 
  82.       Height          =   285
  83.       Left            =   1920
  84.       TabIndex        =   6
  85.       Text            =   "0"
  86.       Top             =   3720
  87.       Width           =   615
  88.    End
  89.    Begin VB.CheckBox chkMarquee 
  90.       Caption         =   "Marquee"
  91.       Height          =   195
  92.       Left            =   480
  93.       TabIndex        =   5
  94.       Top             =   3480
  95.       Width           =   930
  96.    End
  97.    Begin VB.ComboBox cboBorderStyle 
  98.       Height          =   315
  99.       ItemData        =   "frmMain.frx":34D9
  100.       Left            =   480
  101.       List            =   "frmMain.frx":34E3
  102.       Style           =   2  'Dropdown List
  103.       TabIndex        =   2
  104.       Top             =   1920
  105.       Width           =   2055
  106.    End
  107.    Begin VB.ComboBox cboAppearance 
  108.       Height          =   315
  109.       ItemData        =   "frmMain.frx":3506
  110.       Left            =   480
  111.       List            =   "frmMain.frx":3510
  112.       Style           =   2  'Dropdown List
  113.       TabIndex        =   1
  114.       Top             =   1320
  115.       Width           =   2055
  116.    End
  117.    Begin VB.ComboBox cboAlign 
  118.       Height          =   315
  119.       ItemData        =   "frmMain.frx":352A
  120.       Left            =   480
  121.       List            =   "frmMain.frx":353D
  122.       Style           =   2  'Dropdown List
  123.       TabIndex        =   0
  124.       Top             =   720
  125.       Width           =   2055
  126.    End
  127.    Begin VB.Label Label4 
  128.       Alignment       =   1  'Right Justify
  129.       AutoSize        =   -1  'True
  130.       Caption         =   "Note that to see XP or Vista visual styles, you will need to be using a style manifest.  See included readme for details."
  131.       BeginProperty Font 
  132.          Name            =   "Tahoma"
  133.          Size            =   8.25
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H000000FF&
  141.       Height          =   975
  142.       Index           =   8
  143.       Left            =   3720
  144.       TabIndex        =   21
  145.       Top             =   3720
  146.       Width           =   2295
  147.       WordWrap        =   -1  'True
  148.    End
  149.    Begin VB.Label Label4 
  150.       AutoSize        =   -1  'True
  151.       Caption         =   "XP and above only"
  152.       BeginProperty Font 
  153.          Name            =   "Tahoma"
  154.          Size            =   8.25
  155.          Charset         =   0
  156.          Weight          =   700
  157.          Underline       =   0   'False
  158.          Italic          =   0   'False
  159.          Strikethrough   =   0   'False
  160.       EndProperty
  161.       ForeColor       =   &H00000080&
  162.       Height          =   195
  163.       Index           =   7
  164.       Left            =   1440
  165.       TabIndex        =   20
  166.       Top             =   3480
  167.       Width           =   1545
  168.    End
  169.    Begin VB.Label Label4 
  170.       AutoSize        =   -1  'True
  171.       Caption         =   "Vista and above only"
  172.       BeginProperty Font 
  173.          Name            =   "Tahoma"
  174.          Size            =   8.25
  175.          Charset         =   0
  176.          Weight          =   700
  177.          Underline       =   0   'False
  178.          Italic          =   0   'False
  179.          Strikethrough   =   0   'False
  180.       EndProperty
  181.       ForeColor       =   &H00000080&
  182.       Height          =   195
  183.       Index           =   6
  184.       Left            =   960
  185.       TabIndex        =   19
  186.       Top             =   2880
  187.       Width           =   1755
  188.    End
  189.    Begin VB.Label Label4 
  190.       AutoSize        =   -1  'True
  191.       Caption         =   "State:"
  192.       Height          =   195
  193.       Index           =   5
  194.       Left            =   480
  195.       TabIndex        =   18
  196.       Top             =   2880
  197.       Width           =   450
  198.    End
  199.    Begin VB.Label Label4 
  200.       AutoSize        =   -1  'True
  201.       Caption         =   "No effect with XP and above styles"
  202.       BeginProperty Font 
  203.          Name            =   "Tahoma"
  204.          Size            =   8.25
  205.          Charset         =   0
  206.          Weight          =   700
  207.          Underline       =   0   'False
  208.          Italic          =   0   'False
  209.          Strikethrough   =   0   'False
  210.       EndProperty
  211.       ForeColor       =   &H00000080&
  212.       Height          =   195
  213.       Index           =   4
  214.       Left            =   1200
  215.       TabIndex        =   17
  216.       Top             =   2280
  217.       Width           =   2895
  218.    End
  219.    Begin VB.Label Label4 
  220.       AutoSize        =   -1  'True
  221.       Caption         =   "Scrolling:"
  222.       Height          =   195
  223.       Index           =   3
  224.       Left            =   480
  225.       TabIndex        =   16
  226.       Top             =   2280
  227.       Width           =   645
  228.    End
  229.    Begin VB.Label Label4 
  230.       AutoSize        =   -1  'True
  231.       Caption         =   "BorderStyle:"
  232.       Height          =   195
  233.       Index           =   2
  234.       Left            =   480
  235.       TabIndex        =   15
  236.       Top             =   1680
  237.       Width           =   900
  238.    End
  239.    Begin VB.Label Label4 
  240.       AutoSize        =   -1  'True
  241.       Caption         =   "Appearance:"
  242.       Height          =   195
  243.       Index           =   1
  244.       Left            =   480
  245.       TabIndex        =   14
  246.       Top             =   1080
  247.       Width           =   930
  248.    End
  249.    Begin VB.Label Label4 
  250.       AutoSize        =   -1  'True
  251.       Caption         =   "Alignment:"
  252.       Height          =   195
  253.       Index           =   0
  254.       Left            =   480
  255.       TabIndex        =   13
  256.       Top             =   480
  257.       Width           =   765
  258.    End
  259.    Begin VB.Label Label3 
  260.       AutoSize        =   -1  'True
  261.       Caption         =   "Value........................."
  262.       Height          =   195
  263.       Left            =   480
  264.       TabIndex        =   12
  265.       Top             =   4440
  266.       Width           =   1890
  267.    End
  268.    Begin VB.Label Label2 
  269.       AutoSize        =   -1  'True
  270.       Caption         =   "Max............................."
  271.       Height          =   195
  272.       Left            =   480
  273.       TabIndex        =   11
  274.       Top             =   4080
  275.       Width           =   2040
  276.    End
  277.    Begin VB.Label Label1 
  278.       AutoSize        =   -1  'True
  279.       Caption         =   "Min..........................."
  280.       Height          =   195
  281.       Left            =   480
  282.       TabIndex        =   10
  283.       Top             =   3720
  284.       Width           =   1860
  285.    End
  286. End
  287. Attribute VB_Name = "frmMain"
  288. Attribute VB_GlobalNameSpace = False
  289. Attribute VB_Creatable = False
  290. Attribute VB_PredeclaredId = True
  291. Attribute VB_Exposed = False
  292. Option Explicit
  293. Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
  294.  
  295. Private Sub Form_Initialize()
  296.   InitCommonControls
  297. End Sub
  298.  
  299. Private Sub btnGo_Click()
  300.   Timer1.Enabled = Not (Timer1.Enabled)
  301.   btnGo.Caption = IIf(Timer1.Enabled = True, "Stop doing stuff", "Do stuff")
  302. End Sub
  303.  
  304. Private Sub cboAlign_Click()
  305.   pb.Visible = False
  306.   pb.Align = Right(cboAlign.Text, 1)
  307.   If Right(cboAlign.Text, 1) = 3 Or Right(cboAlign.Text, 1) = 4 Then pb.Width = 300
  308.   If Right(cboAlign.Text, 1) = 1 Or Right(cboAlign.Text, 1) = 2 Then pb.Height = 300
  309.   If Right(cboAlign.Text, 1) = 0 Then
  310.     pb.Move 2640, 720, 3375, 255
  311.   End If
  312.   pb.Visible = True
  313. End Sub
  314.  
  315. Private Sub cboAppearance_Click()
  316.   pb.Appearance = Right(cboAppearance.Text, 1)
  317. End Sub
  318.  
  319. Private Sub cboBorderStyle_Click()
  320.   pb.BorderStyle = Right(cboBorderStyle.Text, 1)
  321. End Sub
  322.  
  323. Private Sub cboScrolling_Click()
  324.   pb.Scrolling = Right(cboScrolling.Text, 1)
  325. End Sub
  326.  
  327. Private Sub cboState_Click()
  328.   pb.State = Right(cboState.Text, 1)
  329. End Sub
  330.  
  331. Private Sub chkMarquee_Click()
  332.   pb.Marquee = CBool(chkMarquee.Value)
  333. End Sub
  334.  
  335. Private Sub Form_Load()
  336.   cboAlign.ListIndex = 0
  337.   cboAppearance.ListIndex = 1
  338.   cboBorderStyle.ListIndex = 0
  339.   cboScrolling.ListIndex = 0
  340.   cboState.ListIndex = 0
  341. End Sub
  342.  
  343. Private Sub Label4_Click(Index As Integer)
  344.   chkMarquee.Value = Abs(chkMarquee.Value - 1)
  345. End Sub
  346.  
  347. Private Sub Timer1_Timer()
  348.   On Error Resume Next
  349.   pb.Value = pb.Value + 5
  350.   txtValue.Text = CStr(pb.Value)
  351. End Sub
  352.  
  353. Private Sub txtValue_LostFocus()
  354.   txtValue.Text = Val(txtValue.Text)
  355.   pb.Value = Val(txtValue.Text)
  356. End Sub
  357.  
  358. Private Sub txtMax_LostFocus()
  359.   txtMax.Text = Val(txtMax.Text)
  360.   pb.Max = Val(txtMax.Text)
  361. End Sub
  362.  
  363. Private Sub txtMin_LostFocus()
  364.   txtMin.Text = Val(txtMin.Text)
  365.   pb.Min = Val(txtMin.Text)
  366. End Sub
  367.