Scribd
Upload
3 views2 pages

Main Form Source Code Overview

This document contains code for a main form class in VB.NET. When the form loads, it initializes variables, shows a splash screen, sets various child forms as MDI children, and shows a login form. If login is successful, it makes the main form visible and starts a timer that updates date and time labels. It also contains event handler subs for a help menu item that shows an about form, and menu items that show employee and attendance forms maximized.

Uploaded by

Cwithoo Zee
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
3 views2 pages

Main Form Source Code Overview

This document contains code for a main form class in VB.NET. When the form loads, it initializes variables, shows a splash screen, sets various child forms as MDI children, and shows a login form. If login is successful, it makes the main form visible and starts a timer that updates date and time labels. It also contains event handler subs for a help menu item that shows an about form, and menu items that show employee and attendance forms maximized.

Uploaded by

Cwithoo Zee
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Sourcecode Form Utama

Public Class frmUtama Private Sub frmUtama_Load(sender As [Link], e As [Link]) Handles [Link] [Link] = False InitVar() [Link](Me) [Link] = Me [Link] = Me [Link] = Me [Link] = Me [Link] = Me [Link] = True [Link](Me) If Not g_bLogin Then [Link]() [Link]() End If End Sub Private Sub tmrUtama_Tick(sender As [Link], e As [Link]) Handles [Link] [Link] = Format(Now, "dd MMM yyyy") [Link] = Format(Now, "HH:mm:ss") End Sub Private Sub mnuBantuan_Click(sender As [Link], e As [Link]) Handles [Link] [Link](Me) End Sub Private Sub mnuTampPresensi_Click(sender As [Link], e As [Link]) Handles [Link] [Link]() [Link] = [Link] End Sub Private Sub mnuTampKaryawan_Click(sender As [Link], e As [Link]) Handles [Link] [Link]() [Link] = [Link] End Sub

You might also like