Syncfusion Tabbed MDI Manager Visual Basic Net 2017 - Jadwal LRT Terbaru

Syncfusion Tabbed MDI Manager Visual Basic Net 2017

Syncfusion Tabbed MDI Manager Visual Basic Net 2017

Syncfusion Tabbed MDI Manager Visual Basic Net 2017

Syncfusion Tabbed MDI Manager Visual Basic Net 2017

DOWNLOAD PROJECT

Imports Syncfusion.Windows.Forms.Tools
Public Class Form1
    Dim miWindows As ToolStripMenuItem
    Private Sub CustomerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CustomerToolStripMenuItem.Click
        Dim frm As Form2 = New Form2
        ChildOpen(frm)
    End Sub

    Sub ChildOpen(frm As Form)
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub PaymentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PaymentToolStripMenuItem.Click
        Dim Frm As Form3 = New Form3
        ChildOpen(Frm)
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        Dim Child As Form() = MDIManager.MdiChildren
        Dim i As Integer = 0
        Do While i < Child.Length
            Child(i).Close()
            i = i + 1
        Loop
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        miWindows = MenuStrip1.Items(2)
        MDIManager.MdiListToolStripItem = miWindows
    End Sub

    Private Sub BlendDarkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BlendDarkToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererBlendDark)

    End Sub

    Private Sub BlendLightToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BlendLightToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererBlendLight)
    End Sub

    Private Sub VS2008ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VS2008ToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererVS2008)
    End Sub

    Private Sub VS2010ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VS2010ToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererVS2010)
    End Sub

    Private Sub Office2003ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Office2003ToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererOffice2003)
    End Sub

    Private Sub Office2007ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Office2007ToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererOffice2007)
    End Sub

    Private Sub Office2010ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Office2010ToolStripMenuItem.Click
        MDIManager.TabStyle = GetType(TabRendererOffice2010)
    End Sub
End Class

VIDEO TUTORIAL