home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / vbrig / vbrigstd.fr_ / vbrigstd.fr
Text File  |  1994-09-01  |  5KB  |  199 lines
  1. VERSION 2.00
  2. Begin Form frmVBRig 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "(vb/rig)"
  5.    ClientHeight    =   3795
  6.    ClientLeft      =   1800
  7.    ClientTop       =   1485
  8.    ClientWidth     =   5910
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   4200
  12.    Left            =   1740
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3795
  17.    ScaleWidth      =   5910
  18.    Top             =   1140
  19.    Width           =   6030
  20.    Begin TextBox txtStack 
  21.       BorderStyle     =   0  'None
  22.       Enabled         =   0   'False
  23.       FontBold        =   0   'False
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   195
  30.       Left            =   1380
  31.       MultiLine       =   -1  'True
  32.       TabIndex        =   6
  33.       Text            =   "(headings)"
  34.       Top             =   1800
  35.       Width           =   4335
  36.    End
  37.    Begin CommandButton cmdClose 
  38.       Cancel          =   -1  'True
  39.       Caption         =   "&Close"
  40.       Default         =   -1  'True
  41.       Height          =   375
  42.       Left            =   180
  43.       TabIndex        =   0
  44.       Top             =   3240
  45.       Width           =   1035
  46.    End
  47.    Begin ListBox lstStack 
  48.       FontBold        =   0   'False
  49.       FontItalic      =   0   'False
  50.       FontName        =   "MS Sans Serif"
  51.       FontSize        =   8.25
  52.       FontStrikethru  =   0   'False
  53.       FontUnderline   =   0   'False
  54.       Height          =   1590
  55.       Left            =   1380
  56.       MultiSelect     =   1  'Simple
  57.       TabIndex        =   1
  58.       Top             =   2040
  59.       Width           =   4335
  60.    End
  61.    Begin Label lblStack2 
  62.       Alignment       =   1  'Right Justify
  63.       Caption         =   "Stack"
  64.       Height          =   195
  65.       Left            =   60
  66.       TabIndex        =   7
  67.       Top             =   2220
  68.       Width           =   1155
  69.    End
  70.    Begin Label lblStack1 
  71.       Alignment       =   1  'Right Justify
  72.       Caption         =   "Procedure"
  73.       Height          =   195
  74.       Left            =   60
  75.       TabIndex        =   8
  76.       Top             =   2040
  77.       Width           =   1155
  78.    End
  79.    Begin Label lblErrMsg 
  80.       Caption         =   "(error message)"
  81.       FontBold        =   0   'False
  82.       FontItalic      =   0   'False
  83.       FontName        =   "MS Sans Serif"
  84.       FontSize        =   8.25
  85.       FontStrikethru  =   0   'False
  86.       FontUnderline   =   0   'False
  87.       Height          =   1035
  88.       Left            =   1380
  89.       TabIndex        =   5
  90.       Top             =   480
  91.       Width           =   4335
  92.    End
  93.    Begin Label lblErr 
  94.       Caption         =   "(error number)"
  95.       FontBold        =   0   'False
  96.       FontItalic      =   0   'False
  97.       FontName        =   "MS Sans Serif"
  98.       FontSize        =   8.25
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       Height          =   195
  102.       Left            =   1380
  103.       TabIndex        =   3
  104.       Top             =   180
  105.       Width           =   1035
  106.    End
  107.    Begin Label lblExplanation 
  108.       Alignment       =   1  'Right Justify
  109.       Caption         =   "Explanation:"
  110.       Height          =   195
  111.       Left            =   60
  112.       TabIndex        =   4
  113.       Top             =   480
  114.       Width           =   1155
  115.    End
  116.    Begin Label lblError 
  117.       Alignment       =   1  'Right Justify
  118.       Caption         =   "Error:"
  119.       Height          =   195
  120.       Left            =   60
  121.       TabIndex        =   2
  122.       Top             =   180
  123.       Width           =   1155
  124.    End
  125. End
  126. '==========================================
  127. 'VB/Rig 1.0a - Copyright PC HELP-LINE, 1994
  128. '==========================================
  129.  
  130. 'VBRIGSTD.FRM - Standard Edition
  131.  
  132. 'This form module must be included in every VB
  133. 'project that has been rigged for error trapping.
  134. 'It is used to display the text of error messages
  135. 'and the state of the procedure stack when a runtime
  136. 'error occurs.
  137.  
  138. 'You are NOT licensed to re-distribute this module
  139. 'as source code, either in its original form or in
  140. 'modified form.
  141.  
  142.  
  143. Option Explicit
  144.  
  145. Sub cmdClose_Click ()
  146.  
  147. Hide
  148.  
  149. End Sub
  150.  
  151. Sub Form_Load ()
  152.  
  153. Beep
  154.  
  155. End Sub
  156.  
  157. Sub lstStack_Click ()
  158.  
  159. 'The following code is used to short-circuit any
  160. 'attempts to change the .Selected state of the
  161. 'procedure names displayed in the listbox.  It would
  162. 'have been simpler to just disable the listbox, but
  163. 'that would have disabled the scroll bars, as well.
  164.  
  165. Dim nSub As Integer, nTop As Integer
  166. Static tfRecursion As Integer
  167.  
  168.  
  169. If tfRecursion Then
  170. Else
  171.    tfRecursion = True
  172.  
  173.    nTop = lstStack.TopIndex
  174.  
  175.    For nSub = 0 To lstStack.ListCount - 1
  176.       If lstStack.ItemData(nSub) = True Then
  177.          lstStack.Selected(nSub) = True
  178.       Else
  179.          lstStack.Selected(nSub) = False
  180.       End If
  181.    Next
  182.  
  183.    lstStack.ListIndex = -1
  184.    lstStack.TopIndex = nTop
  185.  
  186.    tfRecursion = False
  187. End If
  188.  
  189. End Sub
  190.  
  191. Sub lstStack_GotFocus ()
  192.  
  193. If Visible Then
  194.    cmdClose.SetFocus
  195. End If
  196.  
  197. End Sub
  198.  
  199.