home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / EventTrace89098612002.psc / dlgRemove.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-24  |  7.8 KB  |  225 lines
  1. VERSION 5.00
  2. Begin VB.Form dlgRemove 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Delete Trc Commands"
  5.    ClientHeight    =   4230
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3615
  8.    ClientWidth     =   2835
  9.    BeginProperty Font 
  10.       Name            =   "Arial"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "dlgRemove.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   4230
  23.    ScaleWidth      =   2835
  24.    ShowInTaskbar   =   0   'False
  25.    Begin VB.CommandButton CancelButton 
  26.       Caption         =   "Cancel"
  27.       BeginProperty Font 
  28.          Name            =   "Arial"
  29.          Size            =   9
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   320
  37.       Left            =   487
  38.       TabIndex        =   7
  39.       Top             =   3615
  40.       Width           =   1860
  41.    End
  42.    Begin VB.CommandButton OKButton 
  43.       Caption         =   "Okay"
  44.       BeginProperty Font 
  45.          Name            =   "Arial"
  46.          Size            =   9
  47.          Charset         =   0
  48.          Weight          =   400
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       Height          =   320
  54.       Left            =   487
  55.       TabIndex        =   6
  56.       Top             =   3300
  57.       Width           =   1860
  58.    End
  59.    Begin VB.Frame fraRemoveOptions 
  60.       Caption         =   " Select Items to Delete "
  61.       BeginProperty Font 
  62.          Name            =   "Arial"
  63.          Size            =   9
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H00FF0000&
  71.       Height          =   2640
  72.       Left            =   75
  73.       TabIndex        =   0
  74.       Top             =   300
  75.       Width           =   2680
  76.       Begin VB.CheckBox chkRemove 
  77.          Caption         =   "modEventTracer  (module)"
  78.          BeginProperty Font 
  79.             Name            =   "Arial"
  80.             Size            =   9
  81.             Charset         =   0
  82.             Weight          =   400
  83.             Underline       =   0   'False
  84.             Italic          =   0   'False
  85.             Strikethrough   =   0   'False
  86.          EndProperty
  87.          Height          =   315
  88.          Index           =   4
  89.          Left            =   75
  90.          TabIndex        =   5
  91.          Top             =   2100
  92.          Width           =   2490
  93.       End
  94.       Begin VB.CheckBox chkRemove 
  95.          Caption         =   "All   ""NoTrc""  commands"
  96.          BeginProperty Font 
  97.             Name            =   "Arial"
  98.             Size            =   9
  99.             Charset         =   0
  100.             Weight          =   400
  101.             Underline       =   0   'False
  102.             Italic          =   0   'False
  103.             Strikethrough   =   0   'False
  104.          EndProperty
  105.          Height          =   315
  106.          Index           =   2
  107.          Left            =   75
  108.          TabIndex        =   4
  109.          Top             =   1200
  110.          Width           =   2490
  111.       End
  112.       Begin VB.CheckBox chkRemove 
  113.          Caption         =   "All   ""Trc [Exit ]   procedure""  "
  114.          BeginProperty Font 
  115.             Name            =   "Arial"
  116.             Size            =   9
  117.             Charset         =   0
  118.             Weight          =   400
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          Height          =   315
  124.          Index           =   1
  125.          Left            =   75
  126.          TabIndex        =   3
  127.          Top             =   750
  128.          Width           =   2520
  129.       End
  130.       Begin VB.CheckBox chkRemove 
  131.          Caption         =   "All   ""Trc""   commands"
  132.          BeginProperty Font 
  133.             Name            =   "Arial"
  134.             Size            =   9
  135.             Charset         =   0
  136.             Weight          =   400
  137.             Underline       =   0   'False
  138.             Italic          =   0   'False
  139.             Strikethrough   =   0   'False
  140.          EndProperty
  141.          Height          =   315
  142.          Index           =   0
  143.          Left            =   75
  144.          TabIndex        =   2
  145.          Top             =   300
  146.          Width           =   2490
  147.       End
  148.       Begin VB.CheckBox chkRemove 
  149.          Caption         =   "All   ""TrcV""   commands"
  150.          BeginProperty Font 
  151.             Name            =   "Arial"
  152.             Size            =   9
  153.             Charset         =   0
  154.             Weight          =   400
  155.             Underline       =   0   'False
  156.             Italic          =   0   'False
  157.             Strikethrough   =   0   'False
  158.          EndProperty
  159.          Height          =   315
  160.          Index           =   3
  161.          Left            =   75
  162.          TabIndex        =   1
  163.          Top             =   1650
  164.          Width           =   2490
  165.       End
  166.    End
  167. Attribute VB_Name = "dlgRemove"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  173. '       This project was written in, and formatted for, Courier New font.
  174. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  175. '  Author:  Clayton Parman
  176. '    Date:  April 03, 2001
  177. '    Desc:  Options for removing various Trace commands from Project.
  178. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  179. Option Explicit
  180. Const ModuleName    As String = "dlgRemove"
  181. Private Sub Form_Activate()
  182.    chkRemove(0).Value = vbChecked
  183.    chkRemove(1).Value = vbChecked
  184.    chkRemove(2).Value = vbUnchecked
  185.    chkRemove(3).Value = vbUnchecked
  186.    chkRemove(4).Value = vbUnchecked
  187.    CancelButton.SetFocus
  188. End Sub
  189. Private Sub OKButton_Click()
  190.    Me.Hide
  191. End Sub
  192. Private Sub CancelButton_Click()
  193.    Dim iCnt As Integer
  194.    For iCnt = 0 To 4
  195.       chkRemove(iCnt).Value = vbUnchecked
  196.    Next
  197.    Me.Hide
  198. End Sub
  199. Private Sub OKButton_GotFocus()
  200.    CursorToFocus -3, 20
  201. End Sub
  202. Private Sub CancelButton_GotFocus()
  203.    CursorToFocus -3, 30
  204. End Sub
  205. Private Sub CursorToFocus(Down As Long, Over As Long)
  206.   'Moves the Mouse cursor to the current control with the Focus.
  207.    Dim x As Long, y As Long, xy As Long
  208.    If Me.BorderStyle = 0 Then
  209.      x = Me.ActiveControl.Left / Screen.TwipsPerPixelX + _
  210.        ((Me.ActiveControl.Width / 2) / Screen.TwipsPerPixelX) + _
  211.         (Me.Left / Screen.TwipsPerPixelX)
  212.      y = Me.ActiveControl.Top / Screen.TwipsPerPixelY + _
  213.        ((Me.ActiveControl.Height / 2) / Screen.TwipsPerPixelY) + _
  214.         (Me.Top / Screen.TwipsPerPixelY)
  215.    Else
  216.      x = Me.ActiveControl.Left / Screen.TwipsPerPixelX + _
  217.        ((Me.ActiveControl.Width / 2 + 60) / Screen.TwipsPerPixelX) + _
  218.         (Me.Left / Screen.TwipsPerPixelX)
  219.      y = Me.ActiveControl.Top / Screen.TwipsPerPixelY + _
  220.        ((Me.ActiveControl.Height / 2 + 360) / Screen.TwipsPerPixelY) + _
  221.         (Me.Top / Screen.TwipsPerPixelY)
  222.    End If
  223.     xy = SetCursorPos((x + Over), (y + Down))
  224. End Sub
  225.