Visual Basic

Private Sub btnProfile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProfile.Click<br />
        Dim Response As DialogResult<br />
        Dim Age As String<br />
        Dim MyString, MidString, MidString2 As String<br />
        'get first leter in upper case for text box for name <br />
        txtName.Text = StrConv(txtName.Text, VbStrConv.ProperCase)<br />
        If Trim(txtName.Text) = "" Then<br />
            Response = MessageBox.Show("Please enter your name", "Error", MessageBoxButtons.OK, _<br />
            MessageBoxIcon.Error)<br />
            If Response = DialogResult.OK Then<br />
                txtName.Focus()<br />
                Exit Sub<br />
            End If<br />
        End If<br />
        Age = Str(DateDiff("yyyy", DOB, Now))<br />
        Message = "Your profile was created on    " + ((Format(DateTime, "d  MMMM  yyyy") + _<br />
           " at " + Format(DateTime, "hh : mm tt" + ControlChars.Cr)))<br />
        Message += "" + ControlChars.Cr<br />
        Message += txtName.Text + " is  a  student  in  the  " + cboGrade.Text + "  grade " + ControlChars.Cr<br />
        If rdoMale.Checked Then<br />
            Message += "He  is  " + Age + "  years  old" + ControlChars.Cr<br />
        ElseIf rdoFemale.Checked Then<br />
            Message += "She  is  " + Age + "  years  old" + ControlChars.Cr<br />
        End If<br />
        If picStudent.Image Is Nothing Then<br />
            Message += "" + ControlChars.Cr<br />
            Message += "No picture added " + ControlChars.Cr<br />
        Else<br />
            Message += "" + ControlChars.Cr<br />
            Message += "Your picture was also added in your profile" + ControlChars.Cr<br />
        End If<br />
        Response = MessageBox.Show(Message, "Student Profile", MessageBoxButtons.OKCancel, _<br />
        MessageBoxIcon.Information)<br />
        'Add data in to student data file<br />
        Call AddStudentData()<br />
        'Add student name in to cobmobox<br />
        Call AddDataToCombo()<br />
        If Response = DialogResult.OK Then<br />
            Response = MessageBox.Show("Would you like to creat another profile", "New profile", _<br />
            MessageBoxButtons.YesNo, MessageBoxIcon.Question)<br />
            'if cancel then reset form<br />
        ElseIf Response = DialogResult.Cancel Then<br />
            txtName.Text = ""<br />
            cboGrade.SelectedIndex = 0<br />
            txtName.Focus()<br />
            nudDay.Value = 1<br />
            dudMonth.SelectedIndex = 0<br />
            nudYear.Value = 1951<br />
            picStudent.Image = Nothing<br />
            Exit Sub<br />
        End If<br />
        'if new profile and yes then reset form<br />
        If Response = DialogResult.Yes Then<br />
            txtName.Text = ""<br />
            cboGrade.SelectedIndex = 0<br />
            txtName.Focus()<br />
            nudDay.Value = 1<br />
            dudMonth.SelectedIndex = 0<br />
            nudYear.Value = 1951<br />
            picStudent.Image = Nothing<br />
            Exit Sub<br />
        End If<br />
        If Response = DialogResult.OK Then<br />
            txtName.Text = ""<br />
            cboGrade.SelectedIndex = 0<br />
            txtName.Focus()<br />
            picStudent.Image = Nothing<br />
        Else : Me.Close()<br />
        End If<br />
    End Sub

Private Sub btnPicture_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPicture.Click<br />
        'load picture of student<br />
        If dlgOpen.ShowDialog = DialogResult.OK Then<br />
            picStudent.Image = Image.FromFile(dlgOpen.FileName)<br />
        End If<br />
    End Sub

Private Sub AddStudentData()<br />
        Dim DataWriter As StreamWriter<br />
        FileName = Trim(txtName.Text) + ".txt"<br />
        DataWriter = File.CreateText("StudentData\" + FileName)<br />
        DataWriter.WriteLine(Message)<br />
        DataWriter.Close()<br />
        cboData.Items.Add(FileName)<br />
<br />
    End Sub<br />
    Private Sub AddDataToCombo()<br />
        cboData.Items.Clear()<br />
        Dim files() As String = Directory.GetFiles(Application.StartupPath + "\StudentData")<br />
        For i As Integer = 0 To files.Length - 1<br />
            cboData.Items.Add(Path.GetFileNameWithoutExtension(files(i)))<br />
        Next<br />
        If files.Length = 0 Then<br />
            cboData.Text = "Empty Student Database"<br />
        Else<br />
            cboData.Text = "Select name to display profile"<br />
        End If<br />
    End Sub<br />
    Private Sub DisplayData()<br />
        Dim DataReader As StreamReader<br />
        DataReader = File.OpenText("StudentData\" + cboData.SelectedItem.ToString + ".txt")<br />
        FileName = DataReader.ReadToEnd<br />
        MessageBox.Show(FileName, "Student Database", MessageBoxButtons.OK, MessageBoxIcon.Information)<br />
        DataReader.Close()<br />
    End Sub