home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / _Firewall_1826711272004.psc / frmCol.frm < prev    next >
Text File  |  2004-11-28  |  6KB  |  225 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCol 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Columns"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6600
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2715
  13.    ScaleWidth      =   6600
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdApply 
  16.       Caption         =   "Apply"
  17.       Height          =   375
  18.       Left            =   5640
  19.       TabIndex        =   19
  20.       Top             =   2280
  21.       Width           =   855
  22.    End
  23.    Begin VB.CommandButton cmdDefault 
  24.       Caption         =   "Restore Defaults"
  25.       Height          =   375
  26.       Left            =   4320
  27.       TabIndex        =   18
  28.       Top             =   2280
  29.       Width           =   1335
  30.    End
  31.    Begin VB.CheckBox chk 
  32.       Caption         =   "Process Type"
  33.       Height          =   255
  34.       Index           =   17
  35.       Left            =   4080
  36.       TabIndex        =   17
  37.       Top             =   1920
  38.       Width           =   2055
  39.    End
  40.    Begin VB.CheckBox chk 
  41.       Caption         =   "Creation Time"
  42.       Height          =   255
  43.       Index           =   16
  44.       Left            =   4080
  45.       TabIndex        =   16
  46.       Top             =   1560
  47.       Width           =   2055
  48.    End
  49.    Begin VB.CheckBox chk 
  50.       Caption         =   "Parent Process"
  51.       Height          =   255
  52.       Index           =   3
  53.       Left            =   120
  54.       TabIndex        =   15
  55.       Top             =   1200
  56.       Value           =   1  'Checked
  57.       Width           =   1695
  58.    End
  59.    Begin VB.CheckBox chk 
  60.       Caption         =   "Base Priority"
  61.       Height          =   255
  62.       Index           =   4
  63.       Left            =   120
  64.       TabIndex        =   14
  65.       Top             =   1560
  66.       Width           =   1695
  67.    End
  68.    Begin VB.CheckBox chk 
  69.       Caption         =   "Exe Name"
  70.       Height          =   255
  71.       Index           =   5
  72.       Left            =   120
  73.       TabIndex        =   13
  74.       Top             =   1920
  75.       Value           =   1  'Checked
  76.       Width           =   1695
  77.    End
  78.    Begin VB.CheckBox chk 
  79.       Caption         =   "Process Priority"
  80.       Height          =   255
  81.       Index           =   6
  82.       Left            =   1920
  83.       TabIndex        =   12
  84.       Top             =   120
  85.       Value           =   1  'Checked
  86.       Width           =   1695
  87.    End
  88.    Begin VB.CheckBox chk 
  89.       Caption         =   "Page Faults"
  90.       Height          =   255
  91.       Index           =   7
  92.       Left            =   1920
  93.       TabIndex        =   11
  94.       Top             =   480
  95.       Width           =   1695
  96.    End
  97.    Begin VB.CheckBox chk 
  98.       Caption         =   "Peak Working Set Size"
  99.       Height          =   255
  100.       Index           =   8
  101.       Left            =   1920
  102.       TabIndex        =   10
  103.       Top             =   840
  104.       Width           =   2175
  105.    End
  106.    Begin VB.CheckBox chk 
  107.       Caption         =   "Working Set Size"
  108.       Height          =   255
  109.       Index           =   9
  110.       Left            =   1920
  111.       TabIndex        =   9
  112.       Top             =   1200
  113.       Width           =   1695
  114.    End
  115.    Begin VB.CheckBox chk 
  116.       Caption         =   "Peak Paged Pool Usage"
  117.       Height          =   255
  118.       Index           =   10
  119.       Left            =   1920
  120.       TabIndex        =   8
  121.       Top             =   1560
  122.       Width           =   2055
  123.    End
  124.    Begin VB.CheckBox chk 
  125.       Caption         =   "Paged Pool Usage"
  126.       Height          =   255
  127.       Index           =   11
  128.       Left            =   1920
  129.       TabIndex        =   7
  130.       Top             =   1920
  131.       Width           =   1695
  132.    End
  133.    Begin VB.CheckBox chk 
  134.       Caption         =   "Peak Non Paged Pool Usage"
  135.       Height          =   255
  136.       Index           =   12
  137.       Left            =   4080
  138.       TabIndex        =   6
  139.       Top             =   120
  140.       Width           =   2415
  141.    End
  142.    Begin VB.CheckBox chk 
  143.       Caption         =   "Non Paged Pool Usage"
  144.       Height          =   255
  145.       Index           =   13
  146.       Left            =   4080
  147.       TabIndex        =   5
  148.       Top             =   480
  149.       Width           =   2055
  150.    End
  151.    Begin VB.CheckBox chk 
  152.       Caption         =   "Page File Usage"
  153.       Height          =   255
  154.       Index           =   14
  155.       Left            =   4080
  156.       TabIndex        =   4
  157.       Top             =   840
  158.       Width           =   1695
  159.    End
  160.    Begin VB.CheckBox chk 
  161.       Caption         =   "Peak Page FIle Usage"
  162.       Height          =   255
  163.       Index           =   15
  164.       Left            =   4080
  165.       TabIndex        =   3
  166.       Top             =   1200
  167.       Width           =   1935
  168.    End
  169.    Begin VB.CheckBox chk 
  170.       Caption         =   "Threads"
  171.       Height          =   255
  172.       Index           =   2
  173.       Left            =   120
  174.       TabIndex        =   2
  175.       Top             =   840
  176.       Value           =   1  'Checked
  177.       Width           =   1695
  178.    End
  179.    Begin VB.CheckBox chk 
  180.       Caption         =   "Process ID"
  181.       Height          =   255
  182.       Index           =   1
  183.       Left            =   120
  184.       TabIndex        =   1
  185.       Top             =   480
  186.       Value           =   1  'Checked
  187.       Width           =   1695
  188.    End
  189.    Begin VB.CheckBox chk 
  190.       Caption         =   "Process Name"
  191.       Enabled         =   0   'False
  192.       Height          =   255
  193.       Index           =   0
  194.       Left            =   120
  195.       TabIndex        =   0
  196.       Top             =   120
  197.       Value           =   2  'Grayed
  198.       Width           =   1695
  199.    End
  200. End
  201. Attribute VB_Name = "frmCol"
  202. Attribute VB_GlobalNameSpace = False
  203. Attribute VB_Creatable = False
  204. Attribute VB_PredeclaredId = True
  205. Attribute VB_Exposed = False
  206. Private Sub cmdApply_Click()
  207.    Call updateColArray
  208.    Call frmProc.updateCol
  209.    Call enumProc
  210.    frmCol.Hide
  211. End Sub
  212.  
  213. Private Sub cmdDefault_Click()
  214.     For i = 0 To 17
  215.         chk(i).Value = 0
  216.     Next i
  217.     chk(0).Value = 1
  218.     chk(1).Value = 1
  219.     chk(2).Value = 1
  220.     chk(3).Value = 1
  221.     chk(5).Value = 1
  222.     chk(6).Value = 1
  223. End Sub
  224.  
  225.