Guest User

Untitled

a guest
May 26th, 2018
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.25 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click
  4. 'Print the form
  5.  
  6. PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
  7. PrintForm1.Print()
  8. End Sub
  9.  
  10. Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
  11. 'Close the program
  12.  
  13. Me.Close()
  14. End Sub
  15.  
  16. Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
  17. 'Clear the previous values from the form
  18.  
  19. NameTextBox.Clear()
  20. AddressTextBox.Clear()
  21. CityTextBox.Clear()
  22. StateTextBox.Clear()
  23. ZipTextBox.Clear()
  24. BeginOdoTextBox.Clear()
  25. EndOdoTextBox.Clear()
  26. NumberOfDaysTextBox.Clear()
  27. MilesDrivenTextBox.Clear()
  28. TotalChargeTextBox.Clear()
  29. End Sub
  30.  
  31. Private Sub CalculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click
  32. 'Calculate the total amount owed
  33.  
  34. Dim NumberOfDays As Integer
  35. Dim milesDriven, beginningOdometer, endingOdometer As Decimal
  36.  
  37. End Sub
  38. End Class
Add Comment
Please, Sign In to add comment