VB Example 4

Work Examples

Home Return Next Example Previous ExampleCert/Awards Courses About

VB Example 4

DayCare Menu

Public Class Form1

Private Sub ButtonClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonClient.Click

Me.Hide()

Try

If rdbUpdate.Checked Then

frmUpdateClient.ShowDialog()

ElseIf rdoAdd.Checked Then

Dim frm As New FormClient()

frm.ShowDialog()

End If

Catch ex As Exception

Me.Show()

End Try

Me.Show()

End Sub

Private Sub ButtonQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonQuery.Click

Me.Hide()

Dim frm As New frmQuery()

frm.ShowDialog()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close()

End Sub

Private Sub ButtonChild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonChild.Click

Me.Hide()

If rdoUpdateApp.Checked Then

frmUpdateCheckIn.ShowDialog()

ElseIf rdoAddApp.Checked Then

Dim frm As New frmChildCheckIn

frm.ShowDialog()

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

Dim frm As New frmEmployee

frm.ShowDialog()

End Sub

Private Sub ButtonBilling_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonBilling.Click Dim frm As New frmBilling

Me.Hide()

frm.ShowDialog()

End Sub

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

End Sub

Private Sub rdbUpdate_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

rdbUpdate.CheckedChanged

End Sub

End Class