The Best of Windows 95.com 1996 September/WIN95_09964.iso/program/vbmax3d.zip/3DShadows.frm

Visual Basic Form | 1996-06-09 | 6KB | 210 lines

VERSION 4.00
Begin VB.Form frm3DShadows
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "VBMax 3D Effects Demo - Drop Shadows"
   ClientHeight    =   3030
   ClientLeft      =   585
   ClientTop       =   1425
   ClientWidth     =   6990
   Height          =   3435
   Icon            =   "3DShadows.frx":0000
   Left            =   525
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3030
   ScaleWidth      =   6990
   ShowInTaskbar   =   0   'False
   Top             =   1080
   Width           =   7110
   Begin VB.Frame Frame3
      Caption         =   "Shadows"
      Height          =   1635
      Left            =   4440
      TabIndex        =   13
      Top             =   120
      Width           =   2415
      Begin VB.HScrollBar sliOffset
         Height          =   255
         Left            =   750
         Max             =   10
         Min             =   1
         TabIndex        =   3
         Top             =   1155
         Value           =   10
         Width           =   1515
      End
      Begin VB.OptionButton optShadow
         Caption         =   "Light"
         Height          =   255
         Index           =   0
         Left            =   180
         TabIndex        =   0
         Top             =   300
         Value           =   -1  'True
         Width           =   795
      End
      Begin VB.OptionButton optShadow
         Caption         =   "Dark"
         Height          =   255
         Index           =   1
         Left            =   180
         TabIndex        =   1
         Top             =   720
         Width           =   795
      End
      Begin VB.Label lblOffset
         Caption         =   "Offset:"
         Height          =   195
         Left            =   180
         TabIndex        =   2
         Top             =   1200
         Width           =   540
      End
   End
   Begin VB.PictureBox Picture1
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   510
      Left            =   3360
      Picture         =   "3DShadows.frx":000C
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   12
      TabStop         =   0   'False
      Top             =   240
      Width           =   510
   End
   Begin VB.FileListBox File1
      Appearance      =   0  'Flat
      Height          =   615
      Left            =   180
      TabIndex        =   11
      TabStop         =   0   'False
      Top             =   1140
      Width           =   1215
   End
   Begin VB.DirListBox Dir1
      Appearance      =   0  'Flat
      Height          =   705
      Left            =   180
      TabIndex        =   10
      TabStop         =   0   'False
      Top             =   120
      Width           =   1215
   End
   Begin VB.VScrollBar VScroll1
      Height          =   1215
      Left            =   3480
      Max             =   10
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   1320
      Width           =   255
   End
   Begin VB.HScrollBar HScroll1
      Height          =   255
      Left            =   1800
      Max             =   10
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   2280
      Width           =   1215
   End
   Begin VB.ComboBox Combo1
      Appearance      =   0  'Flat
      Height          =   765
      Left            =   180
      Style           =   1  'Simple Combo
      TabIndex        =   7
      TabStop         =   0   'False
      Text            =   "Combo1"
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton cmdClose
      Cancel          =   -1  'True
      Caption         =   "Close"
      Height          =   360
      Left            =   5280
      TabIndex        =   4
      Top             =   2460
      Width           =   900
   End
   Begin VB.TextBox Text1
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   1800
      TabIndex        =   5
      TabStop         =   0   'False
      Text            =   "Text1"
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Line Line1
      X1              =   4260
      X2              =   4260
      Y1              =   120
      Y2              =   2880
   End
   Begin VB.Label Label1
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      ForeColor       =   &H80000008&
      Height          =   300
      Left            =   1800
      TabIndex        =   6
      Top             =   360
      Width           =   1215
   End
Attribute VB_Name = "frm3DShadows"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D    As New C3D
Private Sub cmdClose_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    CenterForm Me
    With mo3D
        .Style = gnRECESSED
        .Offset = sliOffset.Value
    End With
    DrawShadows
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set mo3D = Nothing
    Set frm3DShadows = Nothing
End Sub
Private Sub DrawShadows()
    Cls
    With mo3D
        .Line3D Line1
        .DropShadow Text1
        .DropShadow Label1
        .DropShadow HScroll1
        .DropShadow VScroll1
        .DropShadow Combo1
        .DropShadow Dir1
        .DropShadow File1
        .DropShadow Picture1
    End With
End Sub
Private Sub optShadow_Click(Index As Integer)
    Select Case Index
        Case 0: mo3D.Shadow = gnLIGHT_SHADOW
        Case 1: mo3D.Shadow = gnDARK_SHADOW
    End Select
    DrawShadows
End Sub
Private Sub sliOffset_Change()
    mo3D.Offset = sliOffset.Value
    DrawShadows
End Sub