form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      AutoRedraw      =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "买房贷款"
      ClientHeight    =   4065
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   7290
      FillColor       =   &H00C0C0C0&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      ScaleHeight     =   4065
      ScaleWidth      =   7290
      StartUpPosition =   2  '屏幕中心
      Begin VB.ListBox 列表单价
         Height          =   1020
         Left            =   3600
         TabIndex        =   10
         Top             =   840
         Width           =   1455
      End
      Begin VB.ListBox 列表房型
         Height          =   1020
         Left            =   240
         TabIndex        =   9
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton Command1
         Caption         =   "显示房型平面图"
         Height          =   855
         Left            =   5640
         TabIndex        =   8
         Top             =   2880
         Width           =   1335
      End
      Begin VB.TextBox 文本按揭
         Height          =   735
         Left            =   1920
         TabIndex        =   5
         Top             =   3000
         Width           =   855
      End
      Begin VB.TextBox 文本首付
         Height          =   735
         Left            =   360
         TabIndex        =   4
         Top             =   3000
         Width           =   975
      End
      Begin VB.Label 标签显示月付
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Height          =   735
         Left            =   4320
         TabIndex        =   7
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label 标签显示年利率
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Height          =   735
         Left            =   3120
         TabIndex        =   6
         Top             =   3000
         Width           =   855
      End
      Begin VB.Label Label4
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "首付/万年   按揭/年   年利率%  月付元"
         Height          =   240
         Left            =   480
         TabIndex        =   3
         Top             =   2520
         Width           =   4440
      End
      Begin VB.Label 标签显示总价
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Height          =   735
         Left            =   5640
         TabIndex        =   2
         Top             =   960
         Width           =   1095
      End
      Begin VB.Label 标签显示面积
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Height          =   855
         Left            =   1920
         TabIndex        =   1
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "房型       面积          单价元/m2         总价"
         Height          =   240
         Left            =   720
         TabIndex        =   0
         Top             =   360
         Width           =   5640
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit
Dim 面积(3) As Integer, indexi As Integer

'******************************************************************
'************** 过程名称：Command1_Click
'************** 参数： 无
'******************************************************************
Private Sub Command1_Click()
  Select Case indexi
    Case 0
      Form2.Picture = LoadPicture(App.Path + "\3_1.jpg")
    Case 1
      Form2.Picture = LoadPicture(App.Path + "\3_2.jpg")
    Case 2
      Form2.Picture = LoadPicture(App.Path + "\3_3.jpg")
  End Select
  Form2.Caption = Form1.列表房型
  Form2.Show
  
End Sub
  
'******************************************************************
'************** 过程名称：Form_Load
'************** 参数： 无
'******************************************************************
Private Sub Form_Load()
  列表房型.AddItem "三室一厅"
  列表房型.AddItem "二室一厅"
  列表房型.AddItem "一室一厅"
  面积(0) = 130: 面积(1) = 100: 面积(2) = 80
  列表单价.AddItem "2500"
  列表单价.AddItem "3500"
  列表单价.AddItem "4500"
  列表单价.AddItem "5500"
End Sub
  
'******************************************************************
'************** 过程名称：列表单价_Click
'************** 参数： 无
'******************************************************************
Private Sub 列表单价_Click()
  标签显示总价.Caption = Val(面积(indexi)) * Val(列表单价)
  
End Sub
  
'******************************************************************
'************** 过程名称：列表房型_Click
'************** 参数： 无
'******************************************************************
Private Sub 列表房型_Click()
  indexi = 列表房型.ListIndex
  标签显示面积.Caption = 面积(indexi)
End Sub
  
'******************************************************************
'************** 过程名称：文本按揭_Change
'************** 参数： 无
'******************************************************************
Private Sub 文本按揭_Change()
  Dim rate As Single, nper As Integer, pv As Single
  rate = Val(文本按揭) / 12 / 100
  nper = Val(文本按揭) * 12
  pv = Val(标签显示总价) - Val(文本首付) * 10000
  标签显示年利率 = 文本按揭
  标签显示月付 = Pmt(rate, nper, -pv)
  
End Sub