我有一张表格可以从用户那里获得财务信息,包括贷款金额,费率和期限.我应该打电话给一个班级来完成这项工作,然后将答案返回给表格.但是,出于某种原因,每当我的程序移出类,返回表单,然后返回类,我将类重置为0的变量.我的代码如下.任何帮助都是极好的.
这是我的表格中的代码:
'Preform calculation when button is clicked
Private Sub buttonCalc_Click(sender As Object, e As EventArgs) Handles buttonCalc.Click
Dim loanAmount As New finClass
Dim rate As New finClass
Dim term As New finClass
Dim payment As New finClass
loanAmount.getLoanAmount = textBoxMortgageAmount.Text
rate.getAnnualRate = comboBoxAnnualRate.Text.Replace("%", "")
term.getTermInYears = comboBoxTerm.SelectedItem
textBoxMonthlyPayment.Text = payment.setMonthlyPayment
End Sub
这个代码来自关联类:
Public Class finClass
Private loanAmt As Decimal
Private termValue As Decimal
Private rateValue As Decimal
Public paymentValue As Decimal
Public WriteOnly Property getLoanAmount
Set(value)
If IsNumeric(value) …