home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F41362_frmSelInfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  1.6 KB  |  42 lines

  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelInfo 
  3.    Caption         =   "Extended Selection Information"
  4.    ClientHeight    =   3765
  5.    ClientLeft      =   48
  6.    ClientTop       =   336
  7.    ClientWidth     =   8424
  8.    OleObjectBlob   =   "frmSelInfo.frx":0000
  9.    StartUpPosition =   1  'CenterOwner
  10. Attribute VB_Name = "frmSelInfo"
  11. Attribute VB_GlobalNameSpace = False
  12. Attribute VB_Creatable = False
  13. Attribute VB_PredeclaredId = True
  14. Attribute VB_Exposed = False
  15. '******************************************************************'
  16. '*                                                                *'
  17. '*                      TurboCAD for Windows                      *'
  18. '*                   Copyright (c) 1993 - 2001                    *'
  19. '*             International Microcomputer Software, Inc.         *'
  20. '*                            (IMSI)                              *'
  21. '*                      All rights reserved.                      *'
  22. '*                                                                *'
  23. '******************************************************************'
  24. Option Explicit
  25. Private Sub btnCleanUp_Click()
  26.     On Error Resume Next
  27.     ClearInfoLayer
  28. End Sub
  29. Private Sub btnDrawVerts_Click()
  30.     On Error Resume Next
  31.     ClearInfoLayer
  32.     DrawVertices chkAll.Value
  33. End Sub
  34. Private Sub btnDump_Click()
  35.     On Error Resume Next
  36.     PrintInfoToFile Trim(txtFilename.Text), chkAll.Value
  37. End Sub
  38. Private Sub btnGetInfo_Click()
  39.     On Error Resume Next
  40.     AddDrawingNodes tvwResults.Nodes, chkAll.Value
  41. End Sub
  42.