home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / cssProject190224302001.psc / Misc / ProjectAnalyzer / frmThreats.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-04-30  |  3.5 KB  |  105 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmThreats 
  4.    BorderStyle     =   5  'Sizable ToolWindow
  5.    Caption         =   "Threats found"
  6.    ClientHeight    =   4245
  7.    ClientLeft      =   60
  8.    ClientTop       =   585
  9.    ClientWidth     =   4440
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4245
  14.    ScaleWidth      =   4440
  15.    ShowInTaskbar   =   0   'False
  16.    Begin MSComctlLib.ListView lstThreat 
  17.       Height          =   4335
  18.       Left            =   90
  19.       TabIndex        =   0
  20.       Top             =   90
  21.       Width           =   4245
  22.       _ExtentX        =   7488
  23.       _ExtentY        =   7646
  24.       View            =   3
  25.       LabelEdit       =   1
  26.       LabelWrap       =   -1  'True
  27.       HideSelection   =   0   'False
  28.       FullRowSelect   =   -1  'True
  29.       _Version        =   393217
  30.       ForeColor       =   -2147483640
  31.       BackColor       =   -2147483643
  32.       BorderStyle     =   1
  33.       Appearance      =   1
  34.       NumItems        =   3
  35.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  36.          Text            =   "Lvl"
  37.          Object.Width           =   706
  38.       EndProperty
  39.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  40.          SubItemIndex    =   1
  41.          Text            =   "Word(s)"
  42.          Object.Width           =   2293
  43.       EndProperty
  44.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  45.          SubItemIndex    =   2
  46.          Text            =   "Location"
  47.          Object.Width           =   4233
  48.       EndProperty
  49.    End
  50.    Begin VB.Menu mnuPopup 
  51.       Caption         =   "Popup"
  52.       Begin VB.Menu mnuJump 
  53.          Caption         =   "&Jump to Procedure"
  54.       End
  55.       Begin VB.Menu SEP1 
  56.          Caption         =   "-"
  57.       End
  58.       Begin VB.Menu mnuCancel 
  59.          Caption         =   "Cancel"
  60.       End
  61.    End
  62. Attribute VB_Name = "frmThreats"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Option Explicit
  68. Private Sub Form_Load()
  69.     mnuPopup.Visible = False
  70.     If GetINIData("ThreatWords", "WindowLocation") = 0 Then
  71.         Me.Left = frmMain.Left
  72.         Me.Top = frmMain.Height + frmMain.Top
  73.         Me.Width = frmMain.Width
  74.         Me.Height = 2500
  75.     Else
  76.         If frmMain.Left > 0 Then
  77.             frmMain.Left = Me.Width / 2
  78.             Me.Left = frmMain.Width + frmMain.Left
  79.             Me.Top = frmMain.Top
  80.             Me.Height = frmMain.Height
  81.         End If
  82.     End If
  83. End Sub
  84. Private Sub Form_Resize()
  85.     On Error Resume Next
  86.     With lstThreat
  87.         .Width = Me.Width - 270
  88.         .Height = Me.Height - 540
  89.         .ColumnHeaders(2).Width = .Width * 0.31
  90.         .ColumnHeaders(3).Width = .Width * 0.57
  91.     End With
  92. End Sub
  93. Private Sub lstThreat_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  94.     If Button = 2 Then Me.PopupMenu mnuPopup
  95. End Sub
  96. Private Sub mnuJump_Click()
  97.     Dim strTemp As String
  98.     strTemp = Mid(lstThreat.SelectedItem.Key, 2, InStr(1, lstThreat.SelectedItem.Key, "X") - 2)
  99.     With frmMain
  100.         .trvView.Nodes("PP" & strTemp).Selected = True
  101.         .txtCode.Text = colProcedures(Val(strTemp)).ProcCode
  102.         .MapProcedure (Val(strTemp))
  103.     End With
  104. End Sub
  105.