VB.NET Syntax (Toggle Plain Text)

Private Sub btnEnter_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles btnEnter.Click
 
        Dim values As String() = GetTextBoxValues()
 
        Dim record As New GradeBookDataCollector()
 
        Me.SetTextBoxValues(GetTextBoxValues)
        If values(TextBoxIndices.txtFirstName) <> "" Then
 
            Try
                Dim strFirstName As String = _
                    values(TextBoxIndices.txtFirstName)
 
                If strFirstName <> "" Then
                    record.strFirstName = values(TextBoxIndices.txtFirstName)
                    record.strLastName = values(TextBoxIndices.txtLastName)
                    record.strCourseName = values(ComboBoxIndices.cboCourseName)
                    record.strStudentId = values(TextBoxIndices.txtStudentId)
                    record.strGrade = values(ComboBoxIndices.cboGrade)
 
                    fileWriter.WriteLine( _
                    record.strFirstName.ToString & "," & record.strLastName.ToString & "," & _
                    record.strStudentId.ToString & "," & record.strCourseName.ToString & "," & _
                    record.strGrade.ToString)
 
 
                Else
                    MessageBox.Show("Invalid First Name", "Error", _
                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
 
            Catch ex As IOException
                MessageBox.Show("Error Writing to File", "Error", _
                MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Catch ex As FormatException
                MessageBox.Show("Invalid Format", "Error", _
               MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            End Try
        End If
 
        Me.SetTextBoxValues(GetTextBoxValues)
        Me.ClearFormDataEntryBoxes()
 
    End Sub 
 (Rate)

Private Sub btnEnter_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnEnter.Click Dim values As String() = GetTextBoxValues() Dim record As New GradeBookDataCollector() Me.SetTextBoxValues(GetTextBoxValues) If values(TextBoxIndices.txtFirstName) <> "" Then Try Dim strFirstName As String = _ values(TextBoxIndices.txtFirstName) If strFirstName <> "" Then record.strFirstName = values(TextBoxIndices.txtFirstName) record.strLastName = values(TextBoxIndices.txtLastName) record.strCourseName = values(ComboBoxIndices.cboCourseName) record.strStudentId = values(TextBoxIndices.txtStudentId) record.strGrade = values(ComboBoxIndices.cboGrade) fileWriter.WriteLine( _ record.strFirstName.ToString & "," & record.strLastName.ToString & "," & _ record.strStudentId.ToString & "," & record.strCourseName.ToString & "," & _ record.strGrade.ToString) Else MessageBox.Show("Invalid First Name", "Error", _ MessageBoxButtons.OK, MessageBoxIcon.Error) End If Catch ex As IOException MessageBox.Show("Error Writing to File", "Error", _ MessageBoxButtons.OK, MessageBoxIcon.Error) Catch ex As FormatException MessageBox.Show("Invalid Format", "Error", _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End If Me.SetTextBoxValues(GetTextBoxValues) Me.ClearFormDataEntryBoxes() End Sub (Rate)