home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form frm3DControls
- BorderStyle = 3 'Fixed Dialog
- Caption = "VBMax 3D Effects Demo - Control Borders"
- ClientHeight = 4755
- ClientLeft = 4695
- ClientTop = 4275
- ClientWidth = 5610
- Height = 5160
- Icon = "3DControls.frx":0000
- Left = 4635
- LinkTopic = "Form1"
- LockControls = -1 'True
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 4755
- ScaleWidth = 5610
- ShowInTaskbar = 0 'False
- Top = 3930
- Width = 5730
- Begin VB.HScrollBar Slider1
- Height = 255
- Left = 3240
- TabIndex = 13
- Top = 420
- Width = 1995
- End
- Begin VB.Frame Frame1
- Caption = "Size"
- Height = 1875
- Left = 180
- TabIndex = 8
- Top = 2760
- Width = 1815
- Begin VB.VScrollBar sliDepth
- Height = 1095
- Left = 1140
- Max = 10
- TabIndex = 3
- Top = 630
- Value = 1
- Width = 255
- End
- Begin VB.VScrollBar sliWidth
- Height = 1095
- Left = 270
- Max = 10
- TabIndex = 1
- Top = 630
- Width = 255
- End
- Begin VB.Label lblWidth
- AutoSize = -1 'True
- Caption = "&Width:"
- Height = 195
- Left = 210
- TabIndex = 0
- Top = 300
- Width = 465
- End
- Begin VB.Label lblDepth
- AutoSize = -1 'True
- Caption = "&Depth:"
- Height = 195
- Left = 1080
- TabIndex = 2
- Top = 300
- Width = 480
- End
- End
- Begin VB.VScrollBar VScroll1
- Height = 1215
- Left = 2280
- TabIndex = 12
- TabStop = 0 'False
- Top = 360
- Width = 255
- End
- Begin VB.Frame Frame2
- Caption = "Style"
- Height = 1815
- Left = 2220
- TabIndex = 9
- Top = 2820
- Width = 1635
- Begin VB.OptionButton optRecessed
- Caption = "R&ecessed"
- Height = 375
- Left = 240
- TabIndex = 5
- Top = 720
- Width = 1215
- End
- Begin VB.OptionButton optRaised
- Caption = "&Raised"
- Height = 375
- Left = 240
- TabIndex = 4
- Top = 360
- Value = -1 'True
- Width = 1095
- End
- Begin VB.OptionButton Option1
- Caption = "&No effects"
- Height = 375
- Left = 240
- TabIndex = 6
- Top = 1080
- Width = 1215
- End
- End
- Begin VB.TextBox Text1
- Appearance = 0 'Flat
- BorderStyle = 0 'None
- Height = 495
- Left = 3240
- TabIndex = 11
- TabStop = 0 'False
- Text = "Text1"
- Top = 1500
- Width = 1215
- End
- Begin VB.CommandButton cmdClose
- Cancel = -1 'True
- Caption = "Close"
- Height = 495
- Left = 4140
- TabIndex = 7
- Top = 4140
- Width = 1215
- End
- Begin VB.Line Line1
- X1 = 60
- X2 = 5520
- Y1 = 2520
- Y2 = 2520
- End
- Begin VB.Image Image1
- Appearance = 0 'Flat
- Height = 480
- Left = 420
- Picture = "3DControls.frx":000C
- Top = 360
- Width = 480
- End
- Begin VB.Label Label1
- Caption = "Label1"
- Height = 495
- Left = 360
- TabIndex = 10
- Top = 1560
- Width = 1215
- End
- Attribute VB_Name = "frm3DControls"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Dim mo3D As New cls3D
- Dim mo3DLines As New cls3D
- Private Sub Form_Load()
- Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
- With mo3D
- .Depth = sliDepth.Value
- .Width = sliWidth.Value
- .Style = gnRAISED
- End With
- Draw3D
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Set mo3D = Nothing
- Set mo3DLines = Nothing
- Set frm3DControls = Nothing
- End Sub
- Private Sub cmdClose_Click()
- Unload Me
- End Sub
- Private Sub Option1_Click()
- mo3D.Style = gnNORMAL
- Draw3D
- End Sub
- Private Sub optRaised_Click()
- mo3D.Style = gnRAISED
- Draw3D
- End Sub
- Private Sub optRecessed_Click()
- mo3D.Style = gnRECESSED
- Draw3D
- End Sub
- Private Sub sliDepth_Change()
- mo3D.Depth = sliDepth.Value
- Draw3D
- End Sub
- Private Sub sliWidth_Change()
- mo3D.Width = sliWidth.Value
- Draw3D
- End Sub
- Private Sub Draw3D()
- Cls
- mo3DLines.Line3D Line1
- With mo3D
- If .Style <> gnNORMAL Then
- .Border Image1
- .Border Label1
- .Border VScroll1
- .Border Text1
- .Border Slider1
- End If
- End With
- End Sub
-