Imports System.Windows.Forms


Public Class frmStudentenAdmin
    Inherits Form


    Dim frmLogon = New frmLogon()
    Dim frmHelp = New frmHelp()

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Bij het opstarten van onze form deze menu intializeren door disabled
        mnuitmView.Enabled() = False

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents mnuMain As System.Windows.Forms.MainMenu
    Friend WithEvents mnuitmFile As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmLogon As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmHelp As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmAbout As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmExit As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmStudent As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmWindow As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmhor As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmver As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmcas As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmarr As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmupdate As System.Windows.Forms.MenuItem
    Friend WithEvents mnuitmstud As System.Windows.Forms.MenuItem
    Public WithEvents mnuitmView As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.mnuMain = New System.Windows.Forms.MainMenu()
        Me.mnuitmFile = New System.Windows.Forms.MenuItem()
        Me.mnuitmLogon = New System.Windows.Forms.MenuItem()
        Me.mnuitmExit = New System.Windows.Forms.MenuItem()
        Me.mnuitmView = New System.Windows.Forms.MenuItem()
        Me.mnuitmstud = New System.Windows.Forms.MenuItem()
        Me.mnuitmWindow = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.mnuitmhor = New System.Windows.Forms.MenuItem()
        Me.mnuitmver = New System.Windows.Forms.MenuItem()
        Me.mnuitmcas = New System.Windows.Forms.MenuItem()
        Me.mnuitmarr = New System.Windows.Forms.MenuItem()
        Me.mnuitmHelp = New System.Windows.Forms.MenuItem()
        Me.mnuitmAbout = New System.Windows.Forms.MenuItem()
        Me.mnuitmStudent = New System.Windows.Forms.MenuItem()
        Me.mnuitmupdate = New System.Windows.Forms.MenuItem()
        '
        'mnuMain
        '
        Me.mnuMain.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuitmFile, Me.mnuitmView, Me.mnuitmWindow, Me.mnuitmHelp})
        '
        'mnuitmFile
        '
        Me.mnuitmFile.Index = 0
        Me.mnuitmFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuitmLogon, Me.mnuitmExit})
        Me.mnuitmFile.Text = "&File"
        '
        'mnuitmLogon
        '
        Me.mnuitmLogon.Index = 0
        Me.mnuitmLogon.Text = "&Logon"
        '
        'mnuitmExit
        '
        Me.mnuitmExit.Index = 1
        Me.mnuitmExit.Text = "&Exit"
        '
        'mnuitmView
        '
        Me.mnuitmView.Index = 1
        Me.mnuitmView.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuitmstud})
        Me.mnuitmView.Text = "&View"
        '
        'mnuitmstud
        '
        Me.mnuitmstud.Index = 0
        Me.mnuitmstud.Text = "&Student"
        '
        'mnuitmWindow
        '
        Me.mnuitmWindow.Index = 2
        Me.mnuitmWindow.MdiList = True
        Me.mnuitmWindow.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.mnuitmcas, Me.mnuitmarr})
        Me.mnuitmWindow.Text = "&Window"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 0
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuitmhor, Me.mnuitmver})
        Me.MenuItem4.Text = "&Tile"
        '
        'mnuitmhor
        '
        Me.mnuitmhor.Index = 0
        Me.mnuitmhor.Text = "&Horizontal"
        '
        'mnuitmver
        '
        Me.mnuitmver.Index = 1
        Me.mnuitmver.Text = "&Vertical"
        '
        'mnuitmcas
        '
        Me.mnuitmcas.Index = 1
        Me.mnuitmcas.Text = "&Cascade"
        '
        'mnuitmarr
        '
        Me.mnuitmarr.Index = 2
        Me.mnuitmarr.Text = "&Arrange Icons"
        '
        'mnuitmHelp
        '
        Me.mnuitmHelp.Index = 3
        Me.mnuitmHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuitmAbout})
        Me.mnuitmHelp.Text = "&Help"
        '
        'mnuitmAbout
        '
        Me.mnuitmAbout.Index = 0
        Me.mnuitmAbout.Text = "&About"
        '
        'mnuitmStudent
        '
        Me.mnuitmStudent.Index = -1
        Me.mnuitmStudent.Text = "&Student"
        '
        'mnuitmupdate
        '
        Me.mnuitmupdate.Index = -1
        Me.mnuitmupdate.Text = "Update"
        '
        'frmStudentenAdmin
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(892, 453)
        Me.IsMdiContainer = True
        Me.Menu = Me.mnuMain
        Me.Name = "frmStudentenAdmin"
        Me.Text = "Studenten Administratie"

    End Sub

#End Region

    Public Sub mnuitemLogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmLogon.Click

        frmLogon.mdiParent = Me
        frmLogon.Show()

    End Sub

    Private Sub mnuitmAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmAbout.Click

        frmHelp.Show()
    End Sub

    Private Sub mnuitmExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmExit.Click
        Application.Exit()

    End Sub

    Private Sub mnuitmstud_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmstud.Click
        Dim frmStudent = New frmStudent()
        frmStudent.mdiParent = Me
        frmStudent.Show()
    End Sub

    Private Sub mnuitemhor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmhor.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)


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

        Me.LayoutMdi(MdiLayout.TileVertical)


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

        Me.LayoutMdi(MdiLayout.ArrangeIcons)




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

        Me.LayoutMdi(MdiLayout.Cascade)


    End Sub


    Private Sub mnuitmupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmupdate.Click

    End Sub
    'indien het venster actief gemaakt wordt door bv op te klikken
    Private Sub frmStudenten_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        If frmLogon.controle = True Then
            mnuitmView.Enabled = True
        Else
            mnuitmView.Enabled = False
        End If
    End Sub





    'Public Sub zetaan()
    '   If frmLogon.controle = True Then
    '     mnuitmView.Enabled() = True

    '  Else : mnuitmView.Enabled() = False

    'End If


    'End Sub

    ''  Private Sub mnuitmActiveer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuitmactiveer.Click
    '   zetaan()
    ' End Sub

    Private Sub frmStudentenAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
