Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Form1

a guest Apr 16th, 2018 63 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  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