Form Menu

Public Class Form_Menu
    Dim tulisan(2) As String
    Dim i, j As Integer
    Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbahPass.Click

    End Sub

    Private Sub BtnBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBarang.Click
        Form_Barang.ShowDialog()

    End Sub

    Private Sub BtnTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTrans.Click
        Form_Transaksi.ShowDialog()
    End Sub

    Private Sub BtnCus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCus.Click
        Form_Customer.ShowDialog()
    End Sub

    Private Sub BtnSupplier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupplier.Click
        Form_Supplier.ShowDialog()
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Me.Close()

    End Sub

    Private Sub Form_Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolTip1.SetToolTip(BtnBarang, "Barang")
        ToolTip1.SetToolTip(BtnCus, "Customer")
        ToolTip1.SetToolTip(BtnStock, "Stock")
        ToolTip1.SetToolTip(BtnSupplier, "Supplier")
        ToolTip1.SetToolTip(BtnTrans, "Transaksi")
        ToolTip1.SetToolTip(BtnUbahPass, "Change Password")
        ToolTip1.SetToolTip(BtnExit, "Exit")
        LblTgl.Text = Date.Now.ToString("dd/MM/yyyy")
        Timer1.Enabled = True
        LblWaktu.Text = Date.Now.ToString("hh:mm:ss")

        tulisan(0) = "SELAMAT DATANG DI SHOWROOM CAR LINDA"
        tulisan(1) = "SELAMAT DATANG DI SHOWROOM CAR LINDA"
        tulisan(2) = "SELAMAT DATANG DI SHOWROOM CAR LINDA"
        Label19.Text = tulisan(j)
        Timer2.Start()
        userlogin.Text = gl_user_login
        level.Text = gl_level_login

    End Sub

    Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label19.Click

    End Sub

    Private Sub BtnUpdateStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form_Update_Stock.ShowDialog()

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If i.Equals(tulisan(j).Length) Then
            Me.Label19.Text = ""
            If j < tulisan.Length - 1 Then
                j = j + 1
                Me.Label19.Text = tulisan(j)
            Else
                j = 0

            End If
            i = 0


        End If
        Label19.Text = tulisan(j).Substring(0, i)
        i = i + 1
    End Sub

    Private Sub BtnStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStock.Click
        Form_Update_Stock.ShowDialog()

    End Sub

    Private Sub LblWaktu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblWaktu.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    End Sub
End Class