Monday, 25 December 2017

Project 2017


Download project reference code


 Download Validation File


Public Class MDI

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label3.Text = "Donor"
        Donor.ShowDialog()


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Panel1.Width <= 78 Then
            Panel1.Width = 78
            Label3.Left = 83
            PictureBox13.Visible = True
            PictureBox14.Visible = True
            PictureBox1.Visible = False

            Timer1.Enabled = False

        Else
            Label3.Left = Label3.Left - 10

            Panel1.Width = Panel1.Width - 10
        End If

    End Sub

    Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click
        Timer1.Enabled = True

    End Sub

    Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click
        Timer2.Enabled = True

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Panel1.Width >= 284 Then
            Panel1.Width = 284
            Label3.Left = 305
            PictureBox13.Visible = False

            PictureBox14.Visible = False
            PictureBox1.Visible = True

            Timer2.Enabled = False

        Else
            Label3.Left = Label3.Left + 10

            Panel1.Width = Panel1.Width + 10
        End If

    End Sub

    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
        End

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DisplayDonors.ShowDialog()

    End Sub
End Class