The Best of Windows 95.com 1996 September

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

/ The Best of Windows 95.com 1996 September / WIN95_09964.iso / program / vbmax3d.zip / 3DLines.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-06-09 | 7KB | 256 lines

VERSION 4.00 Begin VB.Form frm3DLines BorderStyle = 3 'Fixed Dialog Caption = "VBMax 3D Effects Demo - Lines" ClientHeight = 4275 ClientLeft = 630 ClientTop = 1515 ClientWidth = 5850 Height = 4680 Icon = "3DLines.frx":0000 Left = 570 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4275 ScaleWidth = 5850 ShowInTaskbar = 0 'False Top = 1170 Width = 5970 Begin VB.Frame Frame2 Caption = "Style" Height = 1275 Left = 3180 TabIndex = 3 Top = 1560 Width = 1635 Begin VB.OptionButton optRaised Caption = "&Raised" Height = 375 Left = 240 TabIndex = 0 Top = 360 Value = -1 'True Width = 1095 End Begin VB.OptionButton optRecessed Caption = "R&ecessed" Height = 375 Left = 240 TabIndex = 1 Top = 720 Width = 1215 End End Begin VB.CommandButton cmdClose Cancel = -1 'True Caption = "Close" Height = 360 Left = 3540 TabIndex = 2 Top = 3300 Width = 900 End Begin VB.Line lneLine Index = 23 X1 = 2100 X2 = 2460 Y1 = 3840 Y2 = 3540 End Begin VB.Line lneLine Index = 22 X1 = 1020 X2 = 1380 Y1 = 3840 Y2 = 3540 End Begin VB.Line lneLine Index = 21 X1 = 2100 X2 = 2460 Y1 = 2760 Y2 = 2460 End Begin VB.Line lneLine Index = 20 X1 = 1020 X2 = 1380 Y1 = 2760 Y2 = 2460 End Begin VB.Line lneLine Index = 19 X1 = 1380 X2 = 2460 Y1 = 3540 Y2 = 3540 End Begin VB.Line lneLine Index = 18 X1 = 1380 X2 = 2460 Y1 = 2460 Y2 = 2460 End Begin VB.Line lneLine Index = 17 X1 = 1380 X2 = 1380 Y1 = 2460 Y2 = 3540 End Begin VB.Line lneLine Index = 16 X1 = 2460 X2 = 2460 Y1 = 2460 Y2 = 3540 End Begin VB.Line lneLine Index = 15 X1 = 2040 X2 = 5280 Y1 = 960 Y2 = 960 End Begin VB.Line lneLine Index = 14 X1 = 180 X2 = 180 Y1 = 120 Y2 = 4140 End Begin VB.Line lneLine Index = 13 X1 = 60 X2 = 5760 Y1 = 4020 Y2 = 4020 End Begin VB.Line lneLine Index = 12 X1 = 5580 X2 = 5580 Y1 = 120 Y2 = 4140 End Begin VB.Line lneLine Index = 11 X1 = 60 X2 = 5760 Y1 = 240 Y2 = 240 End Begin VB.Line lneLine Index = 10 X1 = 1200 X2 = 1200 Y1 = 480 Y2 = 2340 End Begin VB.Line lneLine Index = 9 X1 = 360 X2 = 1980 Y1 = 1200 Y2 = 1200 End Begin VB.Line lneLine Index = 8 X1 = 720 X2 = 1620 Y1 = 1680 Y2 = 780 End Begin VB.Line lneLine Index = 7 X1 = 720 X2 = 1620 Y1 = 780 Y2 = 780 End Begin VB.Line lneLine Index = 6 X1 = 2520 X2 = 2520 Y1 = 600 Y2 = 2040 End Begin VB.Line lneLine Index = 5 X1 = 2460 X2 = 2460 Y1 = 420 Y2 = 2220 End Begin VB.Line lneLine Index = 4 X1 = 2100 X2 = 2100 Y1 = 2760 Y2 = 3840 End Begin VB.Line lneLine Index = 3 X1 = 1020 X2 = 1020 Y1 = 2760 Y2 = 3840 End Begin VB.Line lneLine Index = 2 X1 = 1020 X2 = 2100 Y1 = 2760 Y2 = 2760 End Begin VB.Line lneLine Index = 1 X1 = 1020 X2 = 2100 Y1 = 3840 Y2 = 3840 End Begin VB.Line lneLine Index = 0 X1 = 2220 X2 = 4980 Y1 = 1020 Y2 = 1020 End Attribute VB_Name = "frm3DLines" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Dim mo3D As New C3D Private Sub Form_Load() CenterForm Me mo3D.Style = gnRAISED MakeLines3D End Sub Private Sub Form_Unload(Cancel As Integer) Set mo3D = Nothing Set frm3DLines = Nothing End Sub Private Sub optRaised_Click() mo3D.Style = gnRAISED MakeLines3D End Sub Private Sub optRecessed_Click() mo3D.Style = gnRECESSED MakeLines3D End Sub Sub MakeLines3D() Dim i As Integer With mo3D For i = 0 To 23 .Line3D lneLine(i) Next i End With End Sub Private Sub cmdClose_Click() Unload Me End Sub