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

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

VERSION 4.00
Begin VB.Form frm3DControls
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "VBMax 3D Effects Demo - Control Borders"
   ClientHeight    =   4485
   ClientLeft      =   615
   ClientTop       =   945
   ClientWidth     =   5220
   Height          =   4890
   Icon            =   "3DControls.frx":0000
   Left            =   555
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4485
   ScaleWidth      =   5220
   ShowInTaskbar   =   0   'False
   Top             =   600
   Width           =   5340
   Begin VB.HScrollBar Slider1
      Height          =   255
      Left            =   3240
      TabIndex        =   13
      Top             =   360
      Width           =   1575
   End
   Begin VB.Frame Frame1
      Caption         =   "Size"
      Height          =   1815
      Left            =   180
      TabIndex        =   8
      Top             =   2520
      Width           =   1815
      Begin VB.VScrollBar sliDepth
         Height          =   1065
         Left            =   1155
         Max             =   10
         TabIndex        =   3
         Top             =   630
         Value           =   1
         Width           =   255
      End
      Begin VB.VScrollBar sliWidth
         Height          =   1065
         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          =   1635
      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             =   2520
      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            =   3420
      TabIndex        =   11
      TabStop         =   0   'False
      Text            =   "Text1"
      Top             =   1500
      Width           =   1215
   End
   Begin VB.CommandButton cmdClose
      Cancel          =   -1  'True
      Caption         =   "Close"
      Height          =   360
      Left            =   4095
      TabIndex        =   7
      Top             =   3960
      Width           =   900
   End
   Begin VB.Line Line1
      X1              =   60
      X2              =   5100
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Image Image1
      Appearance      =   0  'Flat
      Height          =   480
      Left            =   720
      Picture         =   "3DControls.frx":000C
      Top             =   360
      Width           =   480
   End
   Begin VB.Label Label1
      Caption         =   "Label1"
      Height          =   495
      Left            =   360
      TabIndex        =   10
      Top             =   1500
      Width           =   1215
   End
Attribute VB_Name = "frm3DControls"
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 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