Visual Basic 4 Power Pack/Visual_Basic4_Power_Pack.bin/vb4files/vbmax3d/3dpanels.frm

Visual Basic Form | 1996-11-20 | 4.9 KB | 179 lines

VERSION 4.00
Begin VB.Form frm3DPanels
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "VBMax 3D Effects Demo - Panels"
   ClientHeight    =   4755
   ClientLeft      =   3030
   ClientTop       =   1920
   ClientWidth     =   5610
   Height          =   5160
   Icon            =   "3DPanels.frx":0000
   Left            =   2970
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4755
   ScaleWidth      =   5610
   ShowInTaskbar   =   0   'False
   Top             =   1575
   Width           =   5730
   Begin VB.Frame Frame1
      Caption         =   "Size"
      Height          =   1815
      Left            =   120
      TabIndex        =   0
      Top             =   2820
      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             =   2820
      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          =   495
      Left            =   4140
      TabIndex        =   8
      Top             =   4140
      Width           =   1215
   End
   Begin VB.Shape Shape4
      Height          =   1695
      Left            =   4800
      Top             =   360
      Width           =   195
   End
   Begin VB.Shape Shape3
      Height          =   795
      Left            =   2100
      Top             =   360
      Width           =   1935
   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 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 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
    If mo3D.Style <> gnNORMAL Then
        With mo3D
            .Panel Shape1
            .Panel Shape2
            .Panel Shape3
            .Panel Shape4
        End With
    End If
End Sub