mortgageclient.aspx.vb

来自「Programming Web and Desktop Applications」· VB 代码 · 共 43 行

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
    Protected WithEvents txtPrincipal As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtInterest As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPeriod As System.Web.UI.WebControls.TextBox
    Protected WithEvents lblPayment As System.Web.UI.WebControls.Label

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        'Create Proxy class instance and consume Web service
        Dim clsMortgage As New localhost.Mortgage()

        lblPayment.Text = "Monthly Payment " + "<Font color=Red>" + _
        FormatCurrency(clsMortgage.MonthlyPayment(CSng(txtPrincipal.Text), CSng(txtInterest.Text), CInt(txtPeriod.Text))) + _
        "</Font>"

        clsMortgage = Nothing
    End Sub
End Class