I am trying to bold just certain lines in the textbox, not all of the output. And also am trying to pad a couple of lines all the way to the far right of the textbox, not all of the lines, to make it look cleaner.
I am trying to bold all of the (txtBoxCourse textboxes) and trying to indent all of the (txtBoxGrades textboxes) to the right.
Thanks for any help!
I am trying to bold all of the (txtBoxCourse textboxes) and trying to indent all of the (txtBoxGrades textboxes) to the right.
Code:
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim semester, Newline As String
Dim totalGPA As Double = QualityPoints / txtBoxTotalHours.Text
Newline = System.Environment.NewLine
semester = CStr(txtBoxResults.Text)
txtBoxTotalGPA.Text = CStr(totalGPA)
txtBoxTotalGPA.Text = Math.Round(totalGPA, 3)
If radButtonFall.Checked Then
semester = "Fall"
ElseIf radButtonSpring.Checked Then
semester = "Spring"
ElseIf radButtonSummer.Checked Then
semester = "Summer"
End If
txtBoxResults.Text = (semester & " " & "Semester : ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & "Total Hours : " & txtBoxTotalHours.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & "Total Qualit Points : " & txtBoxTotalQualityPoints.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & "Total " & semester & " " & "GPA : " & txtBoxTotalGPA.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & "Enrolled Courses : ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse1.Text & " " & txtBoxGrade1.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse2.Text & " " & txtBoxGrade2.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse3.Text & " " & txtBoxGrade3.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse4.Text & " " & txtBoxGrade4.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse5.Text & " " & txtBoxGrade5.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse6.Text & " " & txtBoxGrade6.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse7.Text & " " & txtBoxGrade7.Text)
txtBoxResults.Text = (txtBoxResults.Text & Newline & " ")
txtBoxResults.Text = (txtBoxResults.Text & Newline & txtBoxCourse8.Text & " " & txtBoxGrade8.Text)
End Sub