Answered! Visual Basic How do I get the following text fields to display as Currency?…

Visual Basic

How do I get the following text fields to display as Currency?

Don't use plagiarized sources. Get Your Custom Essay on

GET AN ESSAY WRITTEN FOR YOU FROM AS LOW AS $13/PAGE

Order Essay

txtPhoneSubTotal

txtTax

txtPhoneTotal

txtOptions

txtPackageCharge

txtTotalMonthlyCharge

Here is the code:

‘

Public Class frmIndividualPlan
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim frmCellPhonePackages As New frmCellPhonePackages()
If radModel100.Checked = True Then
txtPhoneSubTotal.Text = frmCellPhonePackages.ModelCost(0)
txtTax.Text = (CDbl(txtPhoneSubTotal.Text) * 0.06)
txtPhoneTotal.Text = txtPhoneSubTotal.Text + txtTax.Text
ElseIf radModel110.Checked = True Then
txtPhoneSubTotal.Text = frmCellPhonePackages.ModelCost(1)
txtTax.Text = (CDbl(txtPhoneSubTotal.Text) * 0.06)
txtPhoneTotal.Text = txtPhoneSubTotal.Text + txtTax.Text
ElseIf radModel200.Checked = True Then
txtPhoneSubTotal.Text = frmCellPhonePackages.ModelCost(2)
txtTax.Text = (CDbl(txtPhoneSubTotal.Text) * 0.06)
txtPhoneTotal.Text = txtPhoneSubTotal.Text + txtTax.Text
End If

If rad800Pack.Checked = True Then
If cboEmail.Checked = True Then
If cboTextMessaging.Checked = True Then
txtOptions.Text = frmCellPhonePackages.OptionCost(0) + frmCellPhonePackages.OptionCost(1)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(0)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
Else
txtOptions.Text = frmCellPhonePackages.OptionCost(0)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(0)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
End If

ElseIf cboTextMessaging.Checked = True Then
txtOptions.Text = frmCellPhonePackages.OptionCost(1)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(0)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
Else
txtOptions.Text = 0
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(0)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
End If
End If

If rad1500Pack.Checked = True Then
If cboEmail.Checked = True Then
If cboTextMessaging.Checked = True Then
txtOptions.Text = frmCellPhonePackages.OptionCost(0) + frmCellPhonePackages.OptionCost(1)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(1)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
Else
txtOptions.Text = frmCellPhonePackages.OptionCost(0)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(1)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
End If
ElseIf cboTextMessaging.Checked = True Then
txtOptions.Text = frmCellPhonePackages.OptionCost(1)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(1)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
Else
txtOptions.Text = “0”
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(1)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
End If
End If

If radUnlimited.Checked = True Then
If cboEmail.Checked = True Then
If cboTextMessaging.Checked = True Then
txtOptions.Text = frmCellPhonePackages.OptionCost(0) + frmCellPhonePackages.OptionCost(1)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(2)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
Else
txtOptions.Text = frmCellPhonePackages.OptionCost(0)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(2)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
End If
ElseIf cboTextMessaging.Checked = True Then
txtOptions.Text = frmCellPhonePackages.OptionCost(1)
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(2)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
Else
txtOptions.Text = “0”
txtPackageCharge.Text = frmCellPhonePackages.PackageCost(2)
txtTotalMonthlyCharge.Text = CDbl(txtOptions.Text) + CDbl(txtPackageCharge.Text)
End If
End If
End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
End Class

Expert Answer

You can display the text field value as currency by two ways :

1. txtPhoneSubTotal.Text = FormatCurrency(txtPhoneSubTotal.Text)

dim val as Decimal

if Decimal.TryParse(txtPhoneSubTotal.Text.Trim(), val) then

txtPhoneSubTotal.Text = val.ToString(“c”)

end if

Apply this techniques in your code. 🙂

Still stressed from student homework?

Get quality assistance from academic writers!

Order now