Visual Basic 4 Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / vbmax3d / 3dpercen.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-11-20 | 10.1 KB | 329 lines

VERSION 4.00 Begin VB.Form frm3DPercentMeter BorderStyle = 3 'Fixed Dialog Caption = "VBMax 3D Effects Demo - Percentage Meter" ClientHeight = 3420 ClientLeft = 2205 ClientTop = 1650 ClientWidth = 5100 Height = 3825 Icon = "3DPercentMeter.frx":0000 Left = 2145 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3420 ScaleWidth = 5100 ShowInTaskbar = 0 'False Top = 1305 Width = 5220 Begin VB.Frame Frame4 Caption = "Meter" Height = 975 Left = 3360 TabIndex = 25 Top = 1260 Width = 1635 Begin VB.CheckBox Check2 Caption = "Solid bar" Height = 315 Left = 180 TabIndex = 19 Top = 540 Value = 1 'Checked Width = 1395 End Begin VB.CheckBox Check1 Caption = "Show percent" Height = 315 Left = 180 TabIndex = 18 Top = 240 Value = 1 'Checked Width = 1395 End End Begin VB.Frame Frame3 Caption = "Fill Color" Height = 2835 Left = 1740 TabIndex = 24 Top = 120 Width = 1455 Begin VB.OptionButton optFillColor Caption = "Black" ForeColor = &H00000000& Height = 255 Index = 1 Left = 180 TabIndex = 8 Top = 300 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "Red" ForeColor = &H000000FF& Height = 255 Index = 2 Left = 180 TabIndex = 9 Top = 600 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "Green" ForeColor = &H0000FF00& Height = 255 Index = 3 Left = 180 TabIndex = 10 Top = 900 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "Yellow" ForeColor = &H0000FFFF& Height = 255 Index = 4 Left = 180 TabIndex = 11 Top = 1200 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "Blue" ForeColor = &H00FF0000& Height = 255 Index = 5 Left = 180 TabIndex = 12 Top = 1500 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "Magenta" ForeColor = &H00FF00FF& Height = 255 Index = 6 Left = 180 TabIndex = 13 Top = 1800 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "Cyan" ForeColor = &H00FFFF00& Height = 255 Index = 7 Left = 180 TabIndex = 14 Top = 2100 Width = 1095 End Begin VB.OptionButton optFillColor Caption = "White" ForeColor = &H00FFFFFF& Height = 255 Index = 8 Left = 180 TabIndex = 15 Top = 2400 Width = 1095 End End Begin VB.Timer Timer1 Interval = 1 Left = 3360 Top = 2940 End Begin VB.Frame Frame2 Caption = "Font" Height = 975 Left = 3360 TabIndex = 22 Top = 120 Width = 1635 Begin VB.CheckBox chkBold Caption = "Bold" Height = 315 Left = 180 TabIndex = 16 Top = 240 Width = 795 End Begin VB.CheckBox chkItalic Caption = "Italic" Height = 315 Left = 180 TabIndex = 17 Top = 540 Width = 795 End End Begin VB.Frame Frame1 Caption = "Text Color" Height = 2835 Left = 120 TabIndex = 21 Top = 120 Width = 1455 Begin VB.OptionButton optColor Caption = "White" ForeColor = &H00FFFFFF& Height = 255 Index = 8 Left = 180 TabIndex = 7 Top = 2400 Width = 1095 End Begin VB.OptionButton optColor Caption = "Cyan" ForeColor = &H00FFFF00& Height = 255 Index = 7 Left = 180 TabIndex = 6 Top = 2100 Width = 1095 End Begin VB.OptionButton optColor Caption = "Magenta" ForeColor = &H00FF00FF& Height = 255 Index = 6 Left = 180 TabIndex = 5 Top = 1800 Width = 1095 End Begin VB.OptionButton optColor Caption = "Blue" ForeColor = &H00FF0000& Height = 255 Index = 5 Left = 180 TabIndex = 4 Top = 1500 Width = 1095 End Begin VB.OptionButton optColor Caption = "Yellow" ForeColor = &H0000FFFF& Height = 255 Index = 4 Left = 180 TabIndex = 3 Top = 1200 Width = 1095 End Begin VB.OptionButton optColor Caption = "Green" ForeColor = &H0000FF00& Height = 255 Index = 3 Left = 180 TabIndex = 2 Top = 900 Width = 1095 End Begin VB.OptionButton optColor Caption = "Red" ForeColor = &H000000FF& Height = 255 Index = 2 Left = 180 TabIndex = 1 Top = 600 Width = 1095 End Begin VB.OptionButton optColor Caption = "Black" ForeColor = &H00000000& Height = 255 Index = 1 Left = 180 TabIndex = 0 Top = 300 Value = -1 'True Width = 1095 End End Begin VB.CommandButton cmdClose Cancel = -1 'True Caption = "Close" Height = 495 Left = 3600 TabIndex = 20 Top = 2400 Width = 1215 End Begin VB.Label lblStatus Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent BorderStyle = 1 'Fixed Single ForeColor = &H80000008& Height = 225 Left = 60 TabIndex = 23 Top = 3120 Width = 4965 End Attribute VB_Name = "frm3DPercentMeter" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Dim mo3D As New cls3D Private Sub Check1_Click() If Check1.Value = vbChecked Then mo3D.ShowPercent = True Else mo3D.ShowPercent = False End If End Sub Private Sub Check2_Click() If Check2.Value = vbChecked Then mo3D.SolidMeter = True Else mo3D.SolidMeter = False End If End Sub Private Sub Form_Load() Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 End Sub Private Sub Form_Unload(Cancel As Integer) Set mo3D = Nothing Set frm3DPercentMeter = Nothing End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub optColor_Click(Index As Integer) mo3D.ForeColor = optColor(Index).ForeColor End Sub Private Sub chkBold_Click() If chkBold.Value = vbChecked Then mo3D.FontBold = True Else mo3D.FontBold = False End If End Sub Private Sub chkItalic_Click() If chkItalic.Value = vbChecked Then mo3D.FontItalic = True Else mo3D.FontItalic = False End If End Sub Private Sub optFillColor_Click(Index As Integer) mo3D.FillColor = optFillColor(Index).ForeColor End Sub Private Sub Timer1_Timer() Static nPercent As Integer mo3D.PercentMeter lblStatus, nPercent nPercent = nPercent + 1 If nPercent > 100 Then nPercent = 0 End Sub