Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/w3d/wpropert.frm

Visual Basic Form | 1998-04-30 | 12.2 KB | 392 lines

VERSION 5.00
Begin VB.Form wproperties
   Caption         =   "properties"
   ClientHeight    =   3816
   ClientLeft      =   3204
   ClientTop       =   3480
   ClientWidth     =   5028
   ForeColor       =   &H00808080&
   LinkTopic       =   "Form1"
   ScaleHeight     =   3816
   ScaleWidth      =   5028
   Begin VB.Frame Frame6
      Caption         =   "select by mouse "
      Height          =   840
      Left            =   2016
      TabIndex        =   27
      Top             =   2412
      Width           =   1524
      Begin VB.CheckBox CheckLines
         Caption         =   "lines"
         Height          =   228
         Left            =   108
         TabIndex        =   29
         Top             =   504
         Width           =   948
      End
      Begin VB.CheckBox CheckPoints
         Caption         =   "points"
         Height          =   192
         Left            =   108
         TabIndex        =   28
         Top             =   216
         Width           =   948
      End
   End
   Begin VB.Frame Frame5
      Caption         =   "view"
      Height          =   840
      Left            =   108
      TabIndex        =   23
      Top             =   2412
      Width           =   1848
      Begin VB.OptionButton Option2
         Caption         =   "perspective"
         Height          =   192
         Left            =   108
         TabIndex        =   25
         Top             =   504
         Width           =   1272
      End
      Begin VB.OptionButton Option1
         Caption         =   "isometric"
         Height          =   192
         Left            =   108
         TabIndex        =   24
         Top             =   216
         Value           =   -1  'True
         Width           =   1200
      End
   End
   Begin VB.Frame Frame3
      Appearance      =   0  'Flat
      Caption         =   "show"
      ForeColor       =   &H80000008&
      Height          =   1092
      Left            =   2520
      TabIndex        =   18
      Top             =   1224
      Width           =   2352
      Begin VB.CheckBox CheckAxesNames
         Caption         =   "with names"
         Height          =   192
         Left            =   756
         TabIndex        =   26
         Top             =   828
         Width           =   1452
      End
      Begin VB.CheckBox CheckShow3DplaneXY
         Caption         =   "plane XOY"
         Height          =   228
         Left            =   108
         TabIndex        =   22
         Top             =   180
         Width           =   1352
      End
      Begin VB.CheckBox CheckXYZproportional
         Caption         =   "XYZ proportional to axes"
         Height          =   228
         Left            =   108
         TabIndex        =   21
         Top             =   396
         Width           =   2040
      End
      Begin VB.CheckBox Checkshow3Dbound
         Caption         =   "boundaries"
         Height          =   228
         Left            =   108
         TabIndex        =   20
         Top             =   612
         Width           =   1668
      End
      Begin VB.CheckBox Checkshow3Daxes
         Caption         =   "axes"
         Height          =   192
         Left            =   108
         TabIndex        =   19
         Top             =   828
         Width           =   1812
      End
   End
   Begin VB.Frame Frame4
      Caption         =   "Z axis"
      Height          =   1100
      Left            =   2520
      TabIndex        =   13
      Top             =   108
      Width           =   2352
      Begin VB.TextBox txtZmax
         Height          =   336
         Left            =   864
         TabIndex        =   15
         Text            =   "txtZmax"
         Top             =   612
         Width           =   1344
      End
      Begin VB.TextBox txtZmin
         Height          =   336
         Left            =   864
         TabIndex        =   14
         Text            =   "txtZmin"
         Top             =   216
         Width           =   1344
      End
      Begin VB.Label Label10
         Caption         =   "Maximun"
         Height          =   264
         Left            =   144
         TabIndex        =   17
         Top             =   684
         Width           =   876
      End
      Begin VB.Label Label7
         Caption         =   "Minimum"
         Height          =   228
         Left            =   144
         TabIndex        =   16
         Top             =   288
         Width           =   804
      End
   End
   Begin VB.CommandButton btnApply
      Caption         =   "Apply"
      Height          =   280
      Left            =   4068
      TabIndex        =   12
      Top             =   2988
      Width           =   768
   End
   Begin VB.CommandButton btnCancel
      Caption         =   "Cancel"
      Height          =   280
      Left            =   4068
      TabIndex        =   11
      Top             =   2700
      Width           =   768
   End
   Begin VB.CommandButton Command1
      Caption         =   "OK"
      Height          =   280
      Left            =   4068
      TabIndex        =   10
      Top             =   2412
      Width           =   768
   End
   Begin VB.Frame Frame2
      Caption         =   "Y axis"
      Height          =   1100
      Left            =   108
      TabIndex        =   5
      Top             =   1224
      Width           =   2352
      Begin VB.TextBox txtYmin
         Height          =   336
         Left            =   864
         TabIndex        =   7
         Text            =   "txtYmin"
         Top             =   216
         Width           =   1344
      End
      Begin VB.TextBox txtYmax
         Height          =   336
         Left            =   864
         TabIndex        =   6
         Text            =   "txtYmax"
         Top             =   612
         Width           =   1344
      End
      Begin VB.Label Label6
         Caption         =   "Minimum"
         Height          =   228
         Left            =   144
         TabIndex        =   9
         Top             =   288
         Width           =   804
      End
      Begin VB.Label Label5
         Caption         =   "Maximun"
         Height          =   264
         Left            =   144
         TabIndex        =   8
         Top             =   684
         Width           =   876
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "X axis"
      Height          =   1100
      Left            =   108
      TabIndex        =   0
      Top             =   108
      Width           =   2352
      Begin VB.TextBox txtXmax
         Height          =   336
         Left            =   864
         TabIndex        =   4
         Text            =   "txtXmax"
         Top             =   612
         Width           =   1344
      End
      Begin VB.TextBox txtXmin
         Height          =   336
         Left            =   864
         TabIndex        =   1
         Text            =   "txtXmin"
         Top             =   216
         Width           =   1344
      End
      Begin VB.Label Label3
         Caption         =   "Maximun"
         Height          =   264
         Left            =   144
         TabIndex        =   3
         Top             =   684
         Width           =   876
      End
      Begin VB.Label Label1
         Caption         =   "Minimum"
         Height          =   228
         Left            =   144
         TabIndex        =   2
         Top             =   288
         Width           =   804
      End
   End
   Begin VB.Label Label2
      Caption         =   "W3D 3D figures ActiveX v1.0:   [e-mail]"
      ForeColor       =   &H000000FF&
      Height          =   264
      Left            =   1044
      TabIndex        =   30
      Top             =   3456
      Width           =   3792
   End
Attribute VB_Name = "wproperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnApply_Click()
   If Not IsNumeric(txtXmin) Then
        MsgBox "minimum X scale value must be a number", vbExclamation, "X axis definition"
        txtXmin.SelStart = 0: txtXmin.SelLength = Len(txtXmin)
        txtXmin.SetFocus
        Exit Sub
   End If
    w3Dfrm.W3Dctl1.Xmin = Val(txtXmin)
   If Not IsNumeric(txtXmax) Then
        MsgBox "maximum X scale value must be a number", vbExclamation, "X axis definition"
        txtXmax.SelStart = 0: txtXmax.SelLength = Len(txtXmax)
        txtXmax.SetFocus
        Exit Sub
   End If
    w3Dfrm.W3Dctl1.Xmax = Val(txtXmax)
   If Not IsNumeric(txtYmin) Then
        MsgBox "minimum Y scale value must be a number", vbExclamation, "Y axis definition"
        txtYmin.SelStart = 0: txtYmin.SelLength = Len(txtYmin)
        txtYmin.SetFocus
        Exit Sub
   End If
    w3Dfrm.W3Dctl1.Ymin = Val(txtYmin)
   If Not IsNumeric(txtYmax) Then
        MsgBox "maximum Y scale value must be a number", vbExclamation, "Y axis definition"
        txtYmax.SelStart = 0: txtYmax.SelLength = Len(txtYmax)
        txtYmax.SetFocus
        Exit Sub
   End If
    w3Dfrm.W3Dctl1.Ymax = Val(txtYmax)
   If Not IsNumeric(txtZmin) Then
        MsgBox "minimum Z scale value must be a number", vbExclamation, "Z axis definition"
        txtZmin.SelStart = 0: txtZmin.SelLength = Len(txtZmin)
        txtZmin.SetFocus
        Exit Sub
   End If
    w3Dfrm.W3Dctl1.Zmin = Val(txtZmin)
   If Not IsNumeric(txtZmax) Then
        MsgBox "maximum Z scale value must be a number", vbExclamation, "Z axis definition"
        txtZmax.SelStart = 0: txtZmax.SelLength = Len(txtZmax)
        txtZmax.SetFocus
        Exit Sub
   End If
    w3Dfrm.W3Dctl1.Zmax = Val(txtZmax)
   If Val(txtXmin) >= Val(txtXmax) Then
        MsgBox "minimum X scale value must be less then maximum", vbExclamation, "X axis definition"
        txtXmin.SelText = txtXmin
        txtXmin.SetFocus
        Exit Sub
   End If
   If Val(txtYmin) >= Val(txtYmax) Then
        MsgBox "minimum Y scale value must be less then maximum", vbExclamation, "Y axis definition"
        txtYmin.SelText = txtXmin
        txtYmin.SetFocus
        Exit Sub
   End If
   With w3Dfrm.W3Dctl1
     If Option2.Value = True Then
       .isPerspective = True
     Else
       .isPerspective = False
     End If
     If CheckPoints Then
        .SelectPointByMouse = True
     Else
        .SelectPointByMouse = False
     End If
     If CheckLines Then
        .SelectLineByMouse = True
     Else
        .SelectLineByMouse = False
     End If
     If Checkshow3Daxes Then
       .show3Daxes = True
     Else
       .show3Daxes = False
     End If
     If Checkshow3Dbound Then
       .show3Dboundaries = True
     Else
       .show3Dboundaries = False
     End If
     If CheckXYZproportional Then
       .drawXYZproportional2Ranges = True
     Else
       .drawXYZproportional2Ranges = False
     End If
     If CheckShow3DplaneXY Then
       .show3DplaneXY = True
     Else
       .show3DplaneXY = False
     End If
     .Show3D True
     If CheckAxesNames Then
      .show3DaxesNames = True
     Else
      .show3DaxesNames = False
     End If
   End With
End Sub
Private Sub Command1_Click()
   btnApply_Click
   wproperties.Hide
End Sub
Private Sub btnCancel_Click()
    w3Dfrm.W3Dctl1.Xmin = oldXmin
    w3Dfrm.W3Dctl1.Xmax = oldXmax
    w3Dfrm.W3Dctl1.Ymin = oldYmin
    w3Dfrm.W3Dctl1.Ymax = oldYmax
    w3Dfrm.W3Dctl1.Zmin = oldZmin
    w3Dfrm.W3Dctl1.Zmax = oldZmax
   With w3Dfrm.W3Dctl1
     .show3DplaneXY = Oldshow3DplaneXY
     .show3Dboundaries = oldshow3Dboundaries
     .drawXYZproportional2Ranges = olddrawXYZproportional2Ranges
     .show3Daxes = oldshow3Daxes
     .isPerspective = OldshowIsPerspective
     .show3DaxesNames = oldshow3DaxesNames
     .SelectPointByMouse = oldSelectPointByMouse
     .SelectLineByMouse = oldSelectLineByMouse
     .Show3D True
   End With
   wproperties.Hide
End Sub