home *** CD-ROM | disk | FTP | other *** search
VERSION 2.00 Begin Form Errors BorderStyle = 3 'Fixed Double ClientHeight = 3180 ClientLeft = 1695 ClientTop = 1485 ClientWidth = 6720 ControlBox = 0 'False ForeColor = &H00FFFFFF& Height = 3585 Icon = ERRORS.FRX:0000 Left = 1635 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 212 ScaleMode = 3 'Pixel ScaleWidth = 448 Top = 1140 Visible = 0 'False Width = 6840 Begin PictureBox Picture2 BorderStyle = 0 'None Height = 372 Left = 2280 ScaleHeight = 375 ScaleWidth = 4455 TabIndex = 7 Top = 2760 Width = 4452 Begin CommandButton cmdAction Caption = "&More Info..." Height = 372 Index = 2 Left = 3000 TabIndex = 8 Top = 0 Width = 1212 End Begin CommandButton cmdAction Caption = "&Cancel" Height = 372 Index = 1 Left = 1320 TabIndex = 9 Top = 0 Width = 1212 End Begin CommandButton cmdAction Caption = "&OK" Default = -1 'True Height = 372 Index = 0 Left = 0 TabIndex = 10 Top = 0 Width = 1212 End End Begin PictureBox Picture1 BorderStyle = 0 'None Height = 1572 Left = 120 ScaleHeight = 1575 ScaleWidth = 6495 TabIndex = 5 Top = 3240 Width = 6492 Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "21" Height = 252 Index = 9 Left = 4560 TabIndex = 31 Top = 240 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "3186" Height = 252 Index = 8 Left = 4560 TabIndex = 30 Top = 480 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "21" Height = 252 Index = 7 Left = 4560 TabIndex = 29 Top = 720 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "0.94.2" Height = 252 Index = 6 Left = 4560 TabIndex = 28 Top = 960 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "True" Height = 252 Index = 5 Left = 4560 TabIndex = 27 Top = 1200 Width = 1812 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "ErrCount%" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 5 Left = 3240 TabIndex = 26 Top = 240 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "Err_Num" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 6 Left = 3240 TabIndex = 25 Top = 480 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "Mod" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 7 Left = 3240 TabIndex = 24 Top = 720 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "Rev_Code" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 8 Left = 3240 TabIndex = 23 Top = 960 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "GDEBUG%" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 9 Left = 3240 TabIndex = 22 Top = 1200 Width = 1212 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "9/15/93 9:30:03 am" Height = 252 Index = 4 Left = 1320 TabIndex = 11 Top = 1200 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "J. Eckart" Height = 252 Index = 3 Left = 1320 TabIndex = 12 Top = 960 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "4" Height = 252 Index = 2 Left = 1320 TabIndex = 13 Top = 720 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "Charles A. Gallo" Height = 252 Index = 1 Left = 1320 TabIndex = 14 Top = 480 Width = 1812 End Begin Label lblData BorderStyle = 1 'Fixed Single Caption = "CGALLO" Height = 252 Index = 0 Left = 1320 TabIndex = 15 Top = 240 Width = 1812 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "Date/Time" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 4 Left = 0 TabIndex = 16 Top = 1200 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "User_Mgr" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 3 Left = 0 TabIndex = 17 Top = 960 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "Security_Level%" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 2 Left = 0 TabIndex = 18 Top = 720 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "User_Name" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 1 Left = 0 TabIndex = 19 Top = 480 Width = 1212 End Begin Label lblLabel Alignment = 1 'Right Justify Caption = "User_ID" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Index = 0 Left = 0 TabIndex = 20 Top = 240 Width = 1212 End Begin Label Label6 Caption = "(This information is useful for tech support.)" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 252 Left = 1320 TabIndex = 21 Top = 0 Width = 3132 End Begin Label zCaption Alignment = 1 'Right Justify Caption = "Variables:" Height = 252 Left = 120 TabIndex = 6 Top = 0 Width = 1092 End End Begin Image imgPicture Height = 570 Left = 480 Picture = ERRORS.FRX:0302 Top = 90 Width = 585 End Begin Image imgStorage Height = 570 Index = 3 Left = 720 Picture = ERRORS.FRX:097C Top = 2520 Visible = 0 'False Width = 585 End Begin Image imgStorage Height = 585 Index = 2 Left = 720 Picture = ERRORS.FRX:0FF6 Top = 1920 Visible = 0 'False Width = 600 End Begin Image imgStorage Height = 570 Index = 1 Left = 120 Picture = ERRORS.FRX:1698 Top = 2520 Visible = 0 'False Width = 585 End Begin Image imgStorage Height = 540 Index = 0 Left = 120 Picture = ERRORS.FRX:1D12 Top = 1920 Visible = 0 'False Width = 570 End Begin Line Line1 X1 = 416 X2 = 80 Y1 = 36 Y2 = 36 End Begin Label lblHeadline Caption = "DBA VB Error Handler" Height = 255 Left = 1200 TabIndex = 4 Top = 240 Width = 4335 End Begin Label lblResponse Caption = "When you're done, click on the Cancel button to quit." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 975 Left = 2160 TabIndex = 3 Top = 1710 Width = 3975 End Begin Label Label3 Alignment = 1 'Right Justify Caption = "What to Do:" Height = 255 Left = 240 TabIndex = 2 Top = 1710 Width = 1815 End Begin Label Label2 Alignment = 1 'Right Justify Caption = "What Happened:" Height = 255 Left = 240 TabIndex = 1 Top = 720 Width = 1815 End Begin Label lblProblem Caption = "To test the error handler, double-click on the Error icon--you can then enter an error number and see what happens. (Don't know any errors off hand? Try 3197, 3186, or 3101.)" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 975 Left = 2160 TabIndex = 0 Top = 720 Width = 3975 End Sub cmdAction_Click (Index As Integer) ' Maintenance Header ============================================ ' Version Date Coder Action ' 1 11/16/93 Murdoch Initial keyin ' Calls: ' Purpose: ' HEADS UP!!! Here's where I leave you high and dry. ' You're going to have to determine, based on how your ' program functions, what the effect of OK and Cancel will ' be. If you give the user the ability to view more data, ' you will have to be sure that the ErrorStruct data in- ' cludes information for the Data display. Select Case Index Case 0 ' OK ' This command is here for the demo only--be sure ' to remove it from your application! If cmdAction(2).Enabled = False Then If cmdAction(2).Visible = True Then Me.Height = 3400 cmdAction(2).Enabled = True End If End If Case 1 ' Cancel ' This command is here for the demo only--be sure ' to remove it from your application! Case 2 ' More Info Me.Height = 5235 cmdAction(2).Enabled = False End Select End Sub Sub imgPicture_DblClick () Dim ErrorStruct As ErrorType Msg$ = "Enter an error number:" Default$ = "3197" Title$ = "DBA VB Error Handler" Response$ = InputBox$(Msg$, Title$, Default$) ' This is a test--so I'm not going to bother trapping ' for the possibility that the user gets cute and enters ' non-numeric data. I'll let the app blow up instead.... On Error GoTo Chump ErrorStruct.ErrNum = Val(Response$) ErrorStruct.Label01 = "Module:" ErrorStruct.Label02 = "Author:" ErrorStruct.Label03 = "Dev'p For:" ErrorStruct.Label04 = "Issue Date:" ErrorStruct.Label05 = "Editor:" ErrorStruct.Data01 = "ERRORS.BAS" ErrorStruct.Data02 = "John Murdoch" ErrorStruct.Data03 = "Data Based Advisor" ErrorStruct.Data04 = "January, 1994" ErrorStruct.Data05 = "Barb Cole" ErrorStruct.Bitmap = 3 ErrorStruct.MoreInfoVisible = True Answer% = ErrorHandler(ErrorStruct) Exit Sub Chump: Msg$ = "You have to enter an error NUMBER. Reload and try again." MsgBox Msg$, 16, "Oops! Try Again!" Resume End Sub 
(.txt)