daily pastebin goal
68%
SHARE
TWEET

Form1

a guest Apr 16th, 2018 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim Grade_Set As New Main.Grades
  3.     Dim Cert As New Main.Certificate
  4.  
  5.     Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
  6.         SaveData()
  7.         Cert.CheckDetails()
  8.         Cert.Calculate()
  9.         Cert.GradeCalculate()
  10.     End Sub
  11.  
  12.     Private Sub brnPrint_Click(sender As Object, e As EventArgs) Handles brnPrint.Click
  13.         CheckPaid()
  14.         Cert.PayCheck()
  15.     End Sub
  16.  
  17.     Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
  18.         HelpMessage()
  19.         CheckResult()
  20.     End Sub
  21.     Private Sub SaveData()
  22.  
  23.         Cert.StudentName = txtStName.Text
  24.         Cert.Company = txtCmName.Text
  25.         Cert.CourseDate = dtpCourse.Text
  26.  
  27.         Cert.CheckTests(0, cboTest1.Text)
  28.         Cert.CheckTests(1, cboTest2.Text)
  29.         Cert.CheckTests(2, cboTest3.Text)
  30.         Cert.CheckTests(3, cboTest4.Text)
  31.         Cert.CheckTests(4, cboTest5.Text)
  32.         Cert.CheckTests(5, cboTest6.Text)
  33.         Cert.CheckTests(6, cboTest7.Text)
  34.         Cert.CheckTests(7, cboTest8.Text)
  35.         Cert.CheckTests(8, cboTest9.Text)
  36.     End Sub
  37.     Public Sub HelpMessage()
  38.         Cert.Result = MessageBox.Show("Important!", "If you leave this page your data may be lost.", MessageBoxButtons.YesNo)
  39.     End Sub
  40.     Public Sub CheckResult()
  41.         If Cert.Result = DialogResult.No Then
  42.  
  43.         ElseIf Cert.Result = DialogResult.Yes Then
  44.             SwapForm()
  45.         End If
  46.     End Sub
  47.     Public Sub SwapForm()
  48.         Me.Hide()
  49.         Help.Show()
  50.     End Sub
  51. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top