home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm221.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-24  |  5.9 KB  |  202 lines
  1. VERSION 4.00
  2. Begin VB.Form frmss3d 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5940
  5.    ClientLeft      =   2550
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   6345
  9.    Left            =   2490
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5940
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15.    Begin VB.PictureBox Picture1 
  16.       Align           =   1  'Align Top
  17.       Appearance      =   0  'Flat
  18.       BackColor       =   &H00C0C0C0&
  19.       ForeColor       =   &H80000008&
  20.       Height          =   465
  21.       Left            =   0
  22.       ScaleHeight     =   435
  23.       ScaleWidth      =   6660
  24.       TabIndex        =   2
  25.       Top             =   0
  26.       Width           =   6690
  27.       Begin Threed.SSCommand cmdhelp 
  28.          Height          =   390
  29.          Left            =   5880
  30.          TabIndex        =   6
  31.          Top             =   30
  32.          Width           =   420
  33.          _version        =   65536
  34.          _extentx        =   741
  35.          _extenty        =   688
  36.          _stockprops     =   78
  37.          bevelwidth      =   0
  38.          autosize        =   2
  39.          picture         =   "FRM221.frx":0000
  40.       End
  41.       Begin Threed.SSRibbon ribbold 
  42.          Height          =   390
  43.          Left            =   4260
  44.          TabIndex        =   5
  45.          Top             =   30
  46.          Width           =   420
  47.          _version        =   65536
  48.          _extentx        =   741
  49.          _extenty        =   688
  50.          _stockprops     =   65
  51.          backcolor       =   12632256
  52.          autosize        =   2
  53.          bevelwidth      =   1
  54.          pictureup       =   "FRM221.frx":019A
  55.          picturedn       =   "FRM221.frx":0334
  56.          picturedisabled =   "FRM221.frx":04CE
  57.       End
  58.       Begin Threed.SSRibbon ribcenter 
  59.          Height          =   390
  60.          Left            =   4800
  61.          TabIndex        =   4
  62.          Top             =   30
  63.          Width           =   420
  64.          _version        =   65536
  65.          _extentx        =   741
  66.          _extenty        =   688
  67.          _stockprops     =   65
  68.          backcolor       =   12632256
  69.          groupnumber     =   2
  70.          autosize        =   2
  71.          bevelwidth      =   1
  72.          pictureup       =   "FRM221.frx":0668
  73.          picturedn       =   "FRM221.frx":0802
  74.          picturedisabled =   "FRM221.frx":099C
  75.       End
  76.       Begin Threed.SSRibbon ribitalic 
  77.          Height          =   390
  78.          Left            =   5280
  79.          TabIndex        =   3
  80.          Top             =   30
  81.          Width           =   420
  82.          _version        =   65536
  83.          _extentx        =   741
  84.          _extenty        =   688
  85.          _stockprops     =   65
  86.          backcolor       =   12632256
  87.          groupnumber     =   3
  88.          autosize        =   2
  89.          bevelwidth      =   1
  90.          pictureup       =   "FRM221.frx":0B36
  91.          picturedn       =   "FRM221.frx":0CD0
  92.          picturedisabled =   "FRM221.frx":0E6A
  93.       End
  94.    End
  95.    Begin VB.CommandButton cmdgauge 
  96.       Caption         =   "&Gauge"
  97.       Height          =   495
  98.       Left            =   1920
  99.       TabIndex        =   1
  100.       Top             =   3300
  101.       Width           =   1215
  102.    End
  103.    Begin Threed.SSPanel pnlpercent 
  104.       Height          =   300
  105.       Left            =   2340
  106.       TabIndex        =   8
  107.       Top             =   2880
  108.       Visible         =   0   'False
  109.       Width           =   375
  110.       _version        =   65536
  111.       _extentx        =   661
  112.       _extenty        =   529
  113.       _stockprops     =   15
  114.       caption         =   "99 %"
  115.       forecolor       =   255
  116.       backcolor       =   12632256
  117.       borderwidth     =   1
  118.       bevelouter      =   0
  119.       font3d          =   1
  120.    End
  121.    Begin GaugeLib.Gauge Gauge1 
  122.       Height          =   1575
  123.       Left            =   1500
  124.       TabIndex        =   7
  125.       Top             =   1200
  126.       Visible         =   0   'False
  127.       Width           =   2115
  128.       _version        =   65536
  129.       _extentx        =   3731
  130.       _extenty        =   2778
  131.       _stockprops     =   73
  132.       forecolor       =   255
  133.       backcolor       =   12632256
  134.       innertop        =   20
  135.       innerleft       =   20
  136.       innerright      =   20
  137.       innerbottom     =   20
  138.       style           =   3
  139.       needlewidth     =   2
  140.       picture         =   "FRM221.frx":1004
  141.    End
  142.    Begin Threed.SSPanel pnlgauge 
  143.       Height          =   315
  144.       Left            =   1800
  145.       TabIndex        =   0
  146.       Top             =   5520
  147.       Visible         =   0   'False
  148.       Width           =   2115
  149.       _version        =   65536
  150.       _extentx        =   3731
  151.       _extenty        =   556
  152.       _stockprops     =   15
  153.       backcolor       =   12632256
  154.       borderwidth     =   1
  155.       bevelinner      =   1
  156.       floodtype       =   1
  157.    End
  158. Attribute VB_Name = "frmss3d"
  159. Attribute VB_Creatable = False
  160. Attribute VB_Exposed = False
  161. Option Explicit
  162. Private Sub cmdgauge_Click()
  163. Dim x As Integer
  164. Dim y As Integer
  165. pnlgauge.Visible = True
  166. Screen.MousePointer = 11
  167. ' Gauge in Panel
  168. For x = 1 To 100
  169. pnlgauge.FloodPercent = x
  170. If x = 49 Then
  171.     pnlgauge.ForeColor = &HFFFFFF
  172. End If
  173. For y = 1 To 1000
  174.     DoEvents
  175. Next y
  176. Next x
  177. ' Useing the Gauge Control
  178. Gauge1.Visible = True
  179. pnlpercent.Visible = True
  180. For x = 1 To 100
  181. Gauge1.VALUE = x
  182. pnlpercent.Caption = CStr(x) & " %"
  183. If x = 49 Then
  184.     pnlgauge.ForeColor = &HFFFFFF
  185. End If
  186. For y = 1 To 1000
  187.     DoEvents
  188. Next y
  189. Next x
  190. pnlgauge.Visible = False
  191. Gauge1.Visible = False
  192. pnlpercent.Visible = False
  193. Screen.MousePointer = 0
  194. End Sub
  195. Private Sub MhState2_Change()
  196. End Sub
  197. Private Sub cmdhelp_Click()
  198. MsgBox " Help Button Was Pressed "
  199. End Sub
  200. Private Sub Timer1_Timer()
  201. End Sub
  202.