Mastering Visual Basic 5

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

/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / protview / demowinx / data.2 / line / samples / VB / LINEDEMO / LINEDEMO.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-10-25 | 12.5 KB | 442 lines

VERSION 4.00 Begin VB.Form Form1 Caption = "pv Line 3D Visual Basic Demo" ClientHeight = 6630 ClientLeft = 1500 ClientTop = 1125 ClientWidth = 6360 Height = 7035 Icon = "LineDemo.frx":0000 Left = 1440 LinkTopic = "Form1" ScaleHeight = 6630 ScaleWidth = 6360 Top = 780 Width = 6480 Begin VB.CommandButton CloseButton Caption = "Close" Height = 390 Left = 4125 TabIndex = 19 Top = 5640 Width = 1020 End Begin VB.OptionButton DashDotDotOption Caption = "Dash Dot Dot" Height = 195 Left = 4005 TabIndex = 18 Top = 4740 Width = 1515 End Begin VB.OptionButton DashDotOption Caption = "Dash Dot" Height = 225 Left = 4005 TabIndex = 17 Top = 4425 Width = 1380 End Begin VB.OptionButton DotOption Caption = "Dot" Height = 270 Left = 4005 TabIndex = 16 Top = 4095 Width = 1350 End Begin VB.OptionButton DashOption Caption = "Dash" Height = 285 Left = 4005 TabIndex = 15 Top = 3780 Width = 1290 End Begin VB.OptionButton SolidOption Caption = "Solid" Height = 240 Left = 4005 TabIndex = 14 Top = 3510 Width = 1035 End Begin VB.Timer Timer1 Interval = 100 Left = 2730 Top = 1050 End Begin PVLINE3DLib.PVLine3D Line3D12 Height = 180 Left = 185 TabIndex = 27 Top = 6360 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 318 _StockProps = 8 ForeColor = 8421504 LineWidth = 3 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line3D10 Height = 6255 Left = 6060 TabIndex = 25 Top = 180 Width = 195 _Version = 65536 _ExtentX = 344 _ExtentY = 11033 _StockProps = 8 ForeColor = 8421504 LineOrientation = 1 LineWidth = 3 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line3D11 Height = 150 Left = 180 TabIndex = 26 Top = 135 Width = 5985 _Version = 65536 _ExtentX = 10557 _ExtentY = 265 _StockProps = 8 ForeColor = 8421504 LineWidth = 3 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line3D9 Height = 6285 Left = 120 TabIndex = 24 Top = 180 Width = 180 _Version = 65536 _ExtentX = 318 _ExtentY = 11086 _StockProps = 8 ForeColor = 8421504 LineOrientation = 1 LineWidth = 3 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line3D5 Height = 555 Left = 3975 TabIndex = 20 Top = 5550 Width = 195 _Version = 65536 _ExtentX = 344 _ExtentY = 979 _StockProps = 8 ForeColor = 255 LineOrientation = 1 LineWidth = 3 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line3D8 Height = 540 Left = 5025 TabIndex = 23 Top = 5565 Width = 285 _Version = 65536 _ExtentX = 503 _ExtentY = 953 _StockProps = 8 ForeColor = 255 LineOrientation = 1 LineWidth = 3 ShadowHorizontal= -2 ShadowVertical = -1 ShadowColor = 128 End Begin PVLINE3DLib.PVLine3D Line3D7 Height = 195 Left = 4050 TabIndex = 22 Top = 5955 Width = 1170 _Version = 65536 _ExtentX = 2064 _ExtentY = 344 _StockProps = 8 ForeColor = 255 LineWidth = 3 ShadowHorizontal= -1 ShadowVertical = -2 ShadowColor = 128 End Begin PVLINE3DLib.PVLine3D Line3D6 Height = 195 Left = 4035 TabIndex = 21 Top = 5490 Width = 1185 _Version = 65536 _ExtentX = 2090 _ExtentY = 344 _StockProps = 8 ForeColor = 255 LineWidth = 3 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line10 Height = 2280 Left = 3765 TabIndex = 13 Top = 525 Width = 1845 _Version = 65536 _ExtentX = 3254 _ExtentY = 4022 _StockProps = 8 LineOrientation = 1 LineWidth = 100 End Begin PVLINE3DLib.PVLine3D Line9 Height = 990 Left = 525 TabIndex = 12 Top = 4980 Width = 3030 _Version = 65536 _ExtentX = 5345 _ExtentY = 1746 _StockProps = 8 ForeColor = 16776960 LineOrientation = 3 LineWidth = 36 WidthToRectShape= -1 'True ShadowHorizontal= 2 ShadowVertical = -3 ShadowColor = 16711680 End Begin PVLINE3DLib.PVLine3D Line8 Height = 1200 Left = 360 TabIndex = 11 Top = 3420 Width = 2730 _Version = 65536 _ExtentX = 4815 _ExtentY = 2117 _StockProps = 8 ForeColor = 65280 LineOrientation = 2 LineWidth = 22 ShadowHorizontal= -11 ShadowVertical = -31 ShadowColor = 32896 End Begin PVLINE3DLib.PVLine3D Line7 Height = 600 Left = 450 TabIndex = 10 Top = 2475 Width = 2535 _Version = 65536 _ExtentX = 4471 _ExtentY = 1058 _StockProps = 8 ForeColor = 255 LineWidth = 22 ShadowVertical = 2 ShadowColor = 65535 End Begin PVLINE3DLib.PVLine3D Line2 Height = 1500 Left = 585 TabIndex = 5 Top = 540 Width = 1500 _Version = 65536 _ExtentX = 2646 _ExtentY = 2646 _StockProps = 8 LineOrientation = 2 ShadowHorizontal= -1 End Begin PVLINE3DLib.PVLine3D Line3 Height = 1585 Left = 2100 TabIndex = 9 Top = 500 Width = 45 _Version = 65536 _ExtentX = 79 _ExtentY = 2805 _StockProps = 8 LineOrientation = 1 End Begin PVLINE3DLib.PVLine3D Line4 Height = 75 Left = 545 TabIndex = 7 Top = 465 Width = 1585 _Version = 65536 _ExtentX = 2805 _ExtentY = 132 _StockProps = 8 End Begin PVLINE3DLib.PVLine3D Line5 Height = 60 Left = 555 TabIndex = 6 Top = 2055 Width = 1575 _Version = 65536 _ExtentX = 2778 _ExtentY = 106 _StockProps = 8 End Begin PVLINE3DLib.PVLine3D Line1 Height = 1500 Left = 585 TabIndex = 4 Top = 540 Width = 1500 _Version = 65536 _ExtentX = 2646 _ExtentY = 2646 _StockProps = 8 LineOrientation = 3 End Begin PVLINE3DLib.PVLine3D Line3D2 Height = 390 Left = 3615 TabIndex = 1 Top = 4995 Width = 2160 _Version = 65536 _ExtentX = 3810 _ExtentY = 688 _StockProps = 8 LineWidth = 4 ShadowVertical = 2 End Begin PVLINE3DLib.PVLine3D Line3D4 Height = 1995 Left = 3450 TabIndex = 3 Top = 3210 Width = 420 _Version = 65536 _ExtentX = 741 _ExtentY = 3519 _StockProps = 8 LineOrientation = 1 LineWidth = 4 ShadowVertical = 2 End Begin PVLINE3DLib.PVLine3D Line3D3 Height = 1980 Left = 5430 TabIndex = 2 Top = 3210 Width = 630 _Version = 65536 _ExtentX = 1111 _ExtentY = 3493 _StockProps = 8 LineOrientation = 1 LineWidth = 4 ShadowVertical = 2 End Begin PVLINE3DLib.PVLine3D Line3D1 Height = 255 Left = 3615 TabIndex = 0 Top = 3135 Width = 2115 _Version = 65536 _ExtentX = 3731 _ExtentY = 450 _StockProps = 8 LineWidth = 4 ShadowVertical = 2 End Begin PVLINE3DLib.PVLine3D Line6 Height = 1610 Left = 510 TabIndex = 8 Top = 495 Width = 75 _Version = 65536 _ExtentX = 132 _ExtentY = 2831 _StockProps = 8 LineOrientation = 1 End Attribute VB_Name = "Form1" Attribute VB_Creatable = False Attribute VB_Exposed = False Dim iTime As Integer Dim iLimit As Integer Dim iDirection As Integer Sub LineStyle(iStyle As Integer) ' LineStyle is default property ' Line1.LineStyle = iStyle Line1 = iStyle Line2 = iStyle Line3 = iStyle Line4 = iStyle Line5 = iStyle Line6 = iStyle Line7 = iStyle Line8 = iStyle Line9 = iStyle Line10 = iStyle End Sub Private Sub CloseButton_Click() End End Sub Private Sub DashDotDotOption_Click() LineStyle (4) End Sub Private Sub DashDotOption_Click() LineStyle (3) End Sub Private Sub DashOption_Click() LineStyle (1) End Sub Private Sub DotOption_Click() LineStyle (2) End Sub Private Sub Form_Load() iTime = 0 iLimit = Line1.Width iDirection = iLimit / 20 End Sub Private Sub SolidOption_Click() LineStyle (0) End Sub Private Sub Timer1_Timer() If iTime > 0 Then Line1.Width = iLimit - iTime Line2.Width = iLimit - iTime Line1.Height = iLimit Line2.Height = iLimit Else Line1.Width = iLimit Line2.Width = iLimit Line1.Height = iLimit + iTime Line2.Height = iLimit + iTime End If iTime = iTime + iDirection If iTime >= iLimit Then iDirection = -iDirection iTime = iLimit End If If iTime <= -iLimit Then iDirection = -iDirection iTime = -iLimit End If End Sub