Miscellany

Public Class oef9


    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("www.lordoftherings.net")
    End Sub

    Private Sub AchtergrondkleurFormuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AchtergrondkleurFormuToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        Me.BackColor = ColorDialog1.Color()
    End Sub

    Private Sub ToonEenFiguurVanLOTRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToonEenFiguurVanLOTRToolStripMenuItem.Click
        OpenFileDialog1.filter = "jpeg figuur|*.jpg"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PicLOTR.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
        End If
        SluitDeFiguurToolStripMenuItem1.Enabled = True
    End Sub



    Private Sub Rbtn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbtn1.Click

        picDapMan.Image = System.Drawing.Image.FromFile("E:\Vakken\Vb\Fotos_LordOfTheRing\Aragorn.jpg")

    End Sub


    Private Sub Rbtn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbtn2.Click

        picDapMan.Image = System.Drawing.Image.FromFile("E:\Vakken\Vb\Fotos_LordOfTheRing\Gandalf.jpg")

    End Sub

    Private Sub Rbtn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbtn3.Click

        picDapMan.Image = System.Drawing.Image.FromFile("E:\Vakken\Vb\Fotos_LordOfTheRing\Frodo.jpg")

    End Sub

    Private Sub CmbLOTR_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbLOTR.SelectedIndexChanged
        Try
            Dim index As Integer
            index = CmbLOTR.SelectedIndex
            If index = 0 Then
                picDapVrouw.Image = System.Drawing.Image.FromFile("E:\Vakken\Vb\Fotos_LordOfTheRing\Arven.jpg")
            ElseIf index = 1 Then
                picDapVrouw.Image = System.Drawing.Image.FromFile("E:\Vakken\Vb\Fotos_LordOfTheRing\Eowyn.jpg")
            ElseIf index = 2 Then
                picDapVrouw.Image = System.Drawing.Image.FromFile("E:\Vakken\Vb\Fotos_LordOfTheRing\Lothlorien.jpg")
            End If
        Catch ex As Exception
            MessageBox.Show("Fout,Kan bestand niet laden", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ' Finally
            '     MessageBox.Show("Einde van try", "Boodschap")
        End Try
    End Sub

    Private Sub btnWeekdagGeboorte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeekdagGeboorte.Click
        Dim Dagen(7) As String
        Dagen(1) = "Maandag"
        Dagen(2) = "Dinsdag"
        Dagen(3) = "Woendag"
        Dagen(4) = "Donderdag"
        Dagen(5) = "Vrijdag"
        Dagen(6) = "Zaterdag"
        Dagen(0) = "Zondag"

        MessageBox.Show("De weekdag waarop u geboren bent" & vbCrLf & "is een " & Dagen(DateTimePicker1.Value.DayOfWeek), "Boodschap")

    End Sub
    Dim iklik As Integer = 0
    Private Sub BtnTeller_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTeller.Click

        iklik += 1
        If iklik = 5 Then
            MessageBox.Show("Hebt gij nu echt niets beters te doen?!", "Al 5 keer geklikt!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            iklik = 0
        End If
    End Sub


    Private Sub AantalMinutenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AantalMinutenToolStripMenuItem.Click

        Dim deEinde As Date
        Dim aantalMin As Integer
        Dim eindeString As String

        eindeString = InputBox("Om hoelaat stopt de les? hh:mm")

        If Date.TryParse(eindeString, deEinde) Then
            aantalMin = Integer.Parse(DateDiff(DateInterval.Minute, Now, deEinde))
            Label1.Text = aantalMin
        End If
    End Sub

    Private Sub SluitDeFiguurToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SluitDeFiguurToolStripMenuItem1.Click
        PicLOTR.Image = Nothing
    End Sub

    Private Sub DatumToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatumToolStripMenuItem.Click
        Label1.Text = Format(Today(), " dddd dd MMMM yyyy")

    End Sub

    Private Sub TijdToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TijdToolStripMenuItem.Click
        Label1.Text = Format(Now, "hh:mm:ss")
    End Sub

    Private Sub TheFellowshipOfTheRingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheFellowshipOfTheRingToolStripMenuItem.Click
        MessageBox.Show(TheFellowshipOfTheRingToolStripMenuItem.Text, "Boodschap")
    End Sub

    Private Sub TheTwoTowersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheTwoTowersToolStripMenuItem.Click
        MessageBox.Show(TheTwoTowersToolStripMenuItem.Text, "Boodschap")
    End Sub

    Private Sub TheReturnOfTheKingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheReturnOfTheKingToolStripMenuItem.Click
        MessageBox.Show(TheReturnOfTheKingToolStripMenuItem.Text, "Boodschap")
    End Sub

    Private Sub IkVindDieHypeZwaarOverdrevenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IkVindDieHypeZwaarOverdrevenToolStripMenuItem1.Click
        MessageBox.Show(IkVindDieHypeZwaarOverdrevenToolStripMenuItem1.Text, "Boodschap")
    End Sub
End Class