home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F37778_frmBoltNut.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  4.5 KB  |  139 lines
  1. VERSION 5.00
  2. Begin VB.Form frmBoltNut 
  3.    Caption         =   "Bolt-Nut"
  4.    ClientHeight    =   2955
  5.    ClientLeft      =   6435
  6.    ClientTop       =   2910
  7.    ClientWidth     =   3465
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   2955
  13.    ScaleWidth      =   3465
  14.    Begin VB.ListBox ListDiam 
  15.       Height          =   2010
  16.       ItemData        =   "frmBoltNut.frx":0000
  17.       Left            =   1920
  18.       List            =   "frmBoltNut.frx":0049
  19.       TabIndex        =   8
  20.       Top             =   240
  21.       Width           =   1452
  22.    End
  23.    Begin VB.Frame Frame2 
  24.       Caption         =   "NutType"
  25.       Height          =   1092
  26.       Left            =   240
  27.       TabIndex        =   5
  28.       Top             =   1320
  29.       Width           =   1452
  30.       Begin VB.OptionButton NutType 
  31.          Caption         =   "Crown Nut"
  32.          Height          =   372
  33.          Index           =   1
  34.          Left            =   120
  35.          TabIndex        =   7
  36.          Top             =   600
  37.          Width           =   1092
  38.       End
  39.       Begin VB.OptionButton NutType 
  40.          Caption         =   "Hex Nut"
  41.          Height          =   252
  42.          Index           =   0
  43.          Left            =   120
  44.          TabIndex        =   6
  45.          Top             =   240
  46.          Width           =   1215
  47.       End
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       Caption         =   "BoltType"
  51.       Height          =   1092
  52.       Left            =   240
  53.       TabIndex        =   2
  54.       Top             =   120
  55.       Width           =   1455
  56.       Begin VB.OptionButton BoltType 
  57.          Caption         =   "Hex Bolt"
  58.          Height          =   252
  59.          Index           =   1
  60.          Left            =   120
  61.          TabIndex        =   4
  62.          Top             =   720
  63.          Width           =   1095
  64.       End
  65.       Begin VB.OptionButton BoltType 
  66.          Caption         =   "Slotted  Bolt"
  67.          Height          =   252
  68.          Index           =   0
  69.          Left            =   120
  70.          TabIndex        =   3
  71.          Top             =   240
  72.          Width           =   1215
  73.       End
  74.    End
  75.    Begin VB.CommandButton cmdOK 
  76.       Caption         =   "OK"
  77.       Height          =   375
  78.       Left            =   360
  79.       TabIndex        =   0
  80.       Top             =   2520
  81.       Width           =   1335
  82.    End
  83.    Begin VB.CommandButton cmdCancel 
  84.       Caption         =   "Cancel"
  85.       Height          =   375
  86.       Left            =   2040
  87.       TabIndex        =   1
  88.       Top             =   2520
  89.       Width           =   1215
  90.    End
  91.    Begin VB.Label Label1 
  92.       Caption         =   "Diameter"
  93.       Height          =   252
  94.       Left            =   2160
  95.       TabIndex        =   9
  96.       Top             =   0
  97.       Width           =   852
  98.    End
  99. Attribute VB_Name = "frmBoltNut"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = False
  102. Attribute VB_PredeclaredId = True
  103. Attribute VB_Exposed = False
  104. Option Explicit
  105. '/******************************************************************/
  106. '/*                                                                */
  107. '/*                      TurboCAD for Windows                      */
  108. '/*                   Copyright (c) 1993 - 2001                    */
  109. '/*             International Microcomputer Software, Inc.         */
  110. '/*                            (IMSI)                              */
  111. '/*                      All rights reserved.                      */
  112. '/*                                                                */
  113. '/******************************************************************/
  114. ' Storage for read-only property indicating whether
  115. ' or not the dialog box was cancelled. Default is
  116. ' False. Note that the declaration is Private, so
  117. ' that the value cannot be set from the OLE client
  118. ' application. The client reads the value using the
  119. ' DialogCancelled property.
  120. Private blnDialogCanceled As Boolean
  121. ' Read-only property indicating cancellation of the
  122. ' dialog.
  123. Property Get DialogCanceled() As Boolean
  124.     DialogCanceled = blnDialogCanceled
  125. End Property
  126. Private Sub cmdCancel_Click()
  127.     ' Set the value of the read-only property that
  128.     ' tells the caller the dialog was cancelled.
  129.     blnDialogCanceled = True
  130.     Me.Hide
  131. End Sub
  132. Private Sub cmdOK_Click()
  133.     Me.Hide
  134. End Sub
  135. Private Sub Form_Load()
  136. End Sub
  137. Private Sub ListDiam_Click()
  138. End Sub
  139.