home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Windows 95.com 1996 September
/
WIN95_09964.iso
/
program
/
vbmax3d.zip
/
3DPanels.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-07-06
|
5KB
|
179 lines
VERSION 4.00
Begin VB.Form frm3DPanels
BorderStyle = 3 'Fixed Dialog
Caption = "VBMax 3D Effects Demo - Panels"
ClientHeight = 4605
ClientLeft = 1050
ClientTop = 1740
ClientWidth = 5610
Height = 5010
Icon = "3DPanels.frx":0000
Left = 990
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4605
ScaleWidth = 5610
ShowInTaskbar = 0 'False
Top = 1395
Width = 5730
Begin VB.Frame Frame1
Caption = "Size"
Height = 1815
Left = 120
TabIndex = 0
Top = 2700
Width = 1815
Begin VB.VScrollBar sliWidth
Height = 1095
Left = 270
Max = 10
TabIndex = 2
Top = 600
Width = 255
End
Begin VB.VScrollBar sliDepth
Height = 1095
Left = 1140
Max = 10
TabIndex = 4
Top = 600
Value = 1
Width = 255
End
Begin VB.Label lblDepth
AutoSize = -1 'True
Caption = "&Depth:"
Height = 195
Left = 1080
TabIndex = 3
Top = 300
Width = 480
End
Begin VB.Label lblWidth
AutoSize = -1 'True
Caption = "&Width:"
Height = 195
Left = 210
TabIndex = 1
Top = 300
Width = 465
End
End
Begin VB.Frame Frame2
Caption = "Style"
Height = 1275
Left = 2220
TabIndex = 5
Top = 2700
Width = 1635
Begin VB.OptionButton optRecessed
Caption = "R&ecessed"
Height = 375
Left = 240
TabIndex = 7
Top = 720
Width = 1215
End
Begin VB.OptionButton optRaised
Caption = "&Raised"
Height = 375
Left = 240
TabIndex = 6
Top = 360
Value = -1 'True
Width = 1095
End
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "Close"
Height = 360
Left = 4320
TabIndex = 8
Top = 4140
Width = 900
End
Begin VB.Shape Shape3
Height = 795
Left = 2040
Top = 360
Width = 1935
End
Begin VB.Shape Shape4
Height = 1695
Left = 4800
Top = 360
Width = 195
End
Begin VB.Shape Shape2
Height = 615
Left = 600
Top = 360
Width = 675
End
Begin VB.Shape Shape1
Height = 255
Left = 420
Top = 1860
Width = 3615
End
Begin VB.Line Line1
X1 = 60
X2 = 5520
Y1 = 2520
Y2 = 2520
End
Attribute VB_Name = "frm3DPanels"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D As New C3D
Dim mo3DLines As New C3D
Private Sub Form_Load()
CenterForm Me
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 frm3DPanels = Nothing
End Sub
Private Sub optRaised_Click()
mo3D.Style = gnRAISED
Draw3D
End Sub
Private Sub optRecessed_Click()
mo3D.Style = gnRECESSED
Draw3D
End Sub
Private Sub cmdClose_Click()
Unload Me
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
.Panel Shape1
.Panel Shape2
.Panel Shape3
.Panel Shape4
End If
End With
End Sub