Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / win3 / programr / vbasic / loanapp.exe / LOANF5.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-22 | 12.3 KB | 385 lines

VERSION 2.00 Begin Form Form5 BackColor = &H00808080& ClientHeight = 2655 ClientLeft = 270 ClientTop = 2100 ClientWidth = 8880 ControlBox = 0 'False Height = 3060 Left = 210 LinkMode = 1 'Source LinkTopic = "Form5" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 2655 ScaleWidth = 8880 Top = 1755 Width = 9000 Begin CommandButton Command3 Caption = "Cancel" Height = 300 Left = 4995 TabIndex = 19 Top = 2145 Width = 3000 End Begin CommandButton Command1 Caption = "OK" Height = 300 Left = 885 TabIndex = 18 Top = 2145 Width = 3000 End Begin PictureBox Picture6 Height = 900 Left = 5685 ScaleHeight = 870 ScaleWidth = 3120 TabIndex = 5 Top = 1035 Width = 3150 Begin VBedit BEditF5 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 6 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 210 TabIndex = 17 Top = 330 Version = 268435458 Width = 2895 End Begin Label Label11 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 Left = 30 TabIndex = 24 Top = 495 Width = 165 End Begin Label Label6 Caption = "Total (a+b):" Height = 210 Left = 45 TabIndex = 14 Top = 45 Width = 1065 End End Begin PictureBox Picture5 Height = 900 Left = 3270 ScaleHeight = 870 ScaleWidth = 2310 TabIndex = 4 Top = 1035 Width = 2340 Begin VBedit BEditF5 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 480 Index = 5 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 270 TabIndex = 16 Top = 345 Version = 268435458 Width = 1890 End Begin Label Label10 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 Left = 120 TabIndex = 23 Top = 495 Width = 165 End Begin Label Label5 Caption = "(b) Improvement Costs:" Height = 225 Left = 45 TabIndex = 13 Top = 45 Width = 2040 End End Begin PictureBox Picture4 Height = 900 Left = 45 ScaleHeight = 870 ScaleWidth = 3120 TabIndex = 3 Top = 1035 Width = 3150 Begin VBedit BEditF5 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 480 Index = 4 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 210 TabIndex = 15 Top = 345 Version = 268435458 Width = 2895 End Begin Label Label9 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Left = 30 TabIndex = 22 Top = 495 Width = 150 End Begin Label Label4 Caption = "(a) Present Value:" Height = 225 Left = 30 TabIndex = 12 Top = 45 Width = 1560 End End Begin PictureBox Picture3 Height = 900 Left = 5415 ScaleHeight = 870 ScaleWidth = 3390 TabIndex = 2 Top = 60 Width = 3420 Begin VBedit BEditF5 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 3 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 330 TabIndex = 11 Top = 330 Version = 268435458 Width = 2925 End Begin Label Label8 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Left = 150 TabIndex = 21 Top = 480 Width = 180 End Begin Label Label3 Caption = "Amount of Existing Liens:" Height = 240 Left = 45 TabIndex = 8 Top = 45 Width = 2235 End End Begin PictureBox Picture2 Height = 900 Left = 1920 ScaleHeight = 870 ScaleWidth = 3390 TabIndex = 1 Top = 60 Width = 3420 Begin VBedit BEditF5 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 2 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 300 TabIndex = 10 Top = 345 Version = 268435458 Width = 2925 End Begin Label Label7 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 Left = 135 TabIndex = 20 Top = 465 Width = 180 End Begin Label Label2 Caption = "Original Cost:" Height = 210 Left = 75 TabIndex = 7 Top = 75 Width = 1305 End End Begin PictureBox Picture1 Height = 900 Left = 45 ScaleHeight = 870 ScaleWidth = 1770 TabIndex = 0 Top = 60 Width = 1800 Begin VBedit BEditF5 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 1 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 45 TabIndex = 9 Top = 330 Version = 268435458 Width = 1710 End Begin Label Label1 Caption = "Year Acquired:" Height = 225 Left = 45 TabIndex = 6 Top = 45 Width = 1290 End End Sub BEditF5_LostFocus (Index As Integer) If (Index = 4) Or (Index = 5) Or (Index = 6) Then BEditF5(6).Text = LTrim$(Str$(Val(BEditF5(4).Text) + Val(BEditF5(5).Text))) End If End Sub Sub Command1_Click () MainRec.D.D1 = Form5.BEditF5(1).Text MainRec.D.D2 = Form5.BEditF5(2).Text MainRec.D.D3 = Form5.BEditF5(3).Text MainRec.D.D4 = Form5.BEditF5(4).Text MainRec.D.D5 = Form5.BEditF5(5).Text MainRec.D.D6 = Form5.BEditF5(6).Text UpdateLabelD Form5.Hide End Sub Sub Command3_Click () Form5.Hide End Sub Sub Form_Load () Form5.Left = 300 Form5.Top = (Screen.Height - Form5.Height) / 2 End Sub