Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click
- 'Print the form
- PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
- PrintForm1.Print()
- End Sub
- Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
- 'Close the program
- Me.Close()
- End Sub
- Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
- 'Clear the previous values from the form
- NameTextBox.Clear()
- AddressTextBox.Clear()
- CityTextBox.Clear()
- StateTextBox.Clear()
- ZipTextBox.Clear()
- BeginOdoTextBox.Clear()
- EndOdoTextBox.Clear()
- NumberOfDaysTextBox.Clear()
- MilesDrivenTextBox.Clear()
- TotalChargeTextBox.Clear()
- End Sub
- Private Sub CalculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click
- 'Calculate the total amount owed
- Dim NumberOfDays As Integer
- Dim milesDriven, beginningOdometer, endingOdometer As Decimal
- End Sub
- End Class
Add Comment
Please, Sign In to add comment