Visual Basic 4 Power Pack

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

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

Wrap

Visual Basic Form | 1996-11-20 | 6.9 KB | 254 lines

VERSION 4.00 Begin VB.Form frm3DLines BorderStyle = 3 'Fixed Dialog Caption = "VBMax 3D Effects Demo - Lines" ClientHeight = 4275 ClientLeft = 120 ClientTop = 2220 ClientWidth = 5850 Height = 4680 Icon = "3DLines.frx":0000 Left = 60 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4275 ScaleWidth = 5850 ShowInTaskbar = 0 'False Top = 1875 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 = 495 Left = 3420 TabIndex = 2 Top = 3300 Width = 1215 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 cls3D Private Sub Form_Load() Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 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 For i = 0 To 23 mo3D.Line3D lneLine(i) Next i End Sub Private Sub cmdClose_Click() Unload Me End Sub