home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / vbmax3d / 3dforms.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  5.0 KB  |  173 lines
  1. VERSION 4.00
  2. Begin VB.Form frm3DFXForms 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   4605
  5.    ClientLeft      =   3615
  6.    ClientTop       =   5730
  7.    ClientWidth     =   5505
  8.    ControlBox      =   0   'False
  9.    Height          =   5010
  10.    Icon            =   "3DForms.frx":0000
  11.    Left            =   3555
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4605
  17.    ScaleWidth      =   5505
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   5385
  20.    Width           =   5625
  21.    Begin VB.CommandButton cmdClose 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Close"
  24.       Height          =   495
  25.       Left            =   3240
  26.       TabIndex        =   10
  27.       Top             =   3180
  28.       Width           =   1215
  29.    End
  30.    Begin VB.Frame Frame2 
  31.       Caption         =   "Style"
  32.       Height          =   1635
  33.       Left            =   3000
  34.       TabIndex        =   6
  35.       Top             =   1320
  36.       Width           =   1635
  37.       Begin VB.OptionButton Option1 
  38.          Caption         =   "&No effects"
  39.          Height          =   375
  40.          Left            =   240
  41.          TabIndex        =   9
  42.          Top             =   1080
  43.          Width           =   1215
  44.       End
  45.       Begin VB.OptionButton optRecessed 
  46.          Caption         =   "R&ecessed"
  47.          Height          =   375
  48.          Left            =   240
  49.          TabIndex        =   8
  50.          Top             =   720
  51.          Value           =   -1  'True
  52.          Width           =   1215
  53.       End
  54.       Begin VB.OptionButton optRaised 
  55.          Caption         =   "&Raised"
  56.          Height          =   375
  57.          Left            =   240
  58.          TabIndex        =   7
  59.          Top             =   360
  60.          Width           =   1095
  61.       End
  62.    End
  63.    Begin VB.Frame Frame1 
  64.       Caption         =   "Size"
  65.       Height          =   2475
  66.       Left            =   900
  67.       TabIndex        =   1
  68.       Top             =   1320
  69.       Width           =   1815
  70.       Begin VB.VScrollBar sliWidth 
  71.          Height          =   1755
  72.          LargeChange     =   5
  73.          Left            =   300
  74.          Max             =   20
  75.          TabIndex        =   3
  76.          Top             =   600
  77.          Value           =   15
  78.          Width           =   255
  79.       End
  80.       Begin VB.VScrollBar sliDepth 
  81.          Height          =   1755
  82.          LargeChange     =   5
  83.          Left            =   1170
  84.          Max             =   20
  85.          TabIndex        =   5
  86.          Top             =   600
  87.          Value           =   2
  88.          Width           =   255
  89.       End
  90.       Begin VB.Label lblDepth 
  91.          AutoSize        =   -1  'True
  92.          Caption         =   "&Depth:"
  93.          Height          =   195
  94.          Left            =   1080
  95.          TabIndex        =   4
  96.          Top             =   300
  97.          Width           =   480
  98.       End
  99.       Begin VB.Label lblWidth 
  100.          AutoSize        =   -1  'True
  101.          Caption         =   "&Width:"
  102.          Height          =   195
  103.          Left            =   210
  104.          TabIndex        =   2
  105.          Top             =   300
  106.          Width           =   465
  107.       End
  108.    End
  109.    Begin VB.Label Label1 
  110.       AutoSize        =   -1  'True
  111.       Caption         =   "Form Border Effects"
  112.       BeginProperty Font 
  113.          name            =   "MS Sans Serif"
  114.          charset         =   0
  115.          weight          =   700
  116.          size            =   18
  117.          underline       =   -1  'True
  118.          italic          =   0   'False
  119.          strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H00000000&
  122.       Height          =   435
  123.       Left            =   1020
  124.       TabIndex        =   0
  125.       Top             =   660
  126.       Width           =   3525
  127.    End
  128. Attribute VB_Name = "frm3DFXForms"
  129. Attribute VB_Creatable = False
  130. Attribute VB_Exposed = False
  131. Option Explicit
  132. Dim mo3D As New cls3D
  133. Private Sub cmdClose_Click()
  134.     Unload Me
  135. End Sub
  136. Private Sub Form_Load()
  137.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  138.     With mo3D
  139.         .Depth = sliDepth.Value
  140.         .Width = sliWidth.Value
  141.         .Style = gnRECESSED
  142.     End With
  143.     DrawBorder
  144. End Sub
  145. Private Sub Form_Unload(Cancel As Integer)
  146.     Set mo3D = Nothing
  147.     Set frm3DFXForms = Nothing
  148. End Sub
  149. Private Sub Option1_Click()
  150.     mo3D.Style = gnNORMAL
  151.     Cls
  152. End Sub
  153. Private Sub optRaised_Click()
  154.     mo3D.Style = gnRAISED
  155.     DrawBorder
  156. End Sub
  157. Private Sub optRecessed_Click()
  158.     mo3D.Style = gnRECESSED
  159.     DrawBorder
  160. End Sub
  161. Private Sub sliDepth_Change()
  162.     mo3D.Depth = sliDepth.Value
  163.     DrawBorder
  164. End Sub
  165. Private Sub sliWidth_Change()
  166.     mo3D.Width = sliWidth.Value
  167.     DrawBorder
  168. End Sub
  169. Sub DrawBorder()
  170.     Cls
  171.     If mo3D.Style <> gnNORMAL Then mo3D.FormBorder Me
  172. End Sub
  173.