Twoforms project

Public Class frmOne

Inherits System.Windows.Forms.Form Private Sub btnOnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnOne.Click

Dim newVerTwo As New frmTwo

MsgBox("Display before going to Form #2")

newVerTwo.ShowDialog()

MsgBox("Display after Form #2 has been closed")

End Sub

End Class

Public Class frmTwo

Inherits System.Windows.Forms.Form

Private Sub btnOnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnTwo.Click

Dim newVerOne As New frmOne

newVerOne.ShowDialog()

End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Me.Close()

End Sub

End Class

Twoformsmodeless Project

Public Class frmOne

Inherits System.Windows.Forms.Form

Private Sub btnOnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnOne.Click

Dim newVerTwo As New frmTwo

MsgBox("Display before going to Form #2")

newVerTwo.Show()

MsgBox("Display from form #1 after form #2 is open")

MsgBox("Another post form #2 open")

End Sub

Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click

Dim newVerTwo As New frmTwo

newVerTwo.Show()

End Sub

Private Sub frmOne_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If MessageBox.Show("Click Yes to confirm closing", "Confirm", _

MessageBoxButtons.YesNo) = DialogResult.Yes Then

e.Cancel = False

Else

e.Cancel = True

End If

End Sub

End Class

Public Class frmTwo

Inherits System.Windows.Forms.Form

Private Sub btnOnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnTwo.Click

Dim newVerOne As New frmOne

newVerOne.Show()

End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Me.Close()

End Sub

Private Sub btnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHide.Click

Me.Hide()

End Sub

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

lblHello.Text = "Hello"

End Sub

Private Sub frmTwo_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated

lblHello.Text = lblHello.Text & " World!"

End Sub

End Class

CalcPay2Forms Project

Public Class frmGetInfo

Inherits System.Windows.Forms.Form

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

Me.Close()

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtId.Clear()

txtHrs.Clear()

txtPayHr.Clear()

End Sub

Private Sub btnCalcPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcPay.Click

Dim wkPay As Single

Dim showPayForm As New frmShowPay

showPayForm.txtIdReceived.Text = txtId.Text

If txtHrs.Text > 40 Then

wkPay = CDec(txtPayHr.Text) * 40 + CDec(txtHrs.Text) - 40 * CDec(txtPayHr.Text) * 1.5

Else

wkPay = CDec(txtPayHr.Text) * CDec(txtHrs.Text)

End If

showPayForm.txtPay.Text = wkPay

showPayForm.ShowDialog()

End Sub

End Class

Public Class frmShowPay

Inherits System.Windows.Forms.Form

Private Sub btnReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReturn.Click

Me.Close()

End Sub

End Class

CalcPaySecond2Forms Project

Public Class frmGetInfo

Inherits System.Windows.Forms.Form

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

Me.Close()

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtId.Clear()

txtHrs.Clear()

txtPayHr.Clear()

End Sub

Private Sub btnCalcPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcPay.Click

Dim showPayForm As New frmShowPay

showPayForm.txtIdReceived.Text = txtId.Text

If txtHrs.Text > 40 Then

wkPay = CDec(txtPayHr.Text) * 40 + ((CDec(txtHrs.Text) - 40) * CDec(txtPayHr.Text) * 1.5)

Else

wkPay = CDec(txtPayHr.Text) * CDec(txtHrs.Text)

End If

showPayForm.ShowDialog()

End Sub

End Class

Public Class frmShowPay

Inherits System.Windows.Forms.Form

Private Sub btnReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReturn.Click

Me.Close()

End Sub

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

txtPay.Text = FormatCurrency(wkPay)

End Sub

End Class

Module modInfo

Public wkPay As Single

End Module

CalcPayMenu Project

Public Class frmGetInfo

Inherits System.Windows.Forms.Form

Private Sub mnuCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCalculate.Click

Dim showPayForm As New frmShowPay

showPayForm.txtIdReceived.Text = txtId.Text

If txtHrs.Text > 40 Then

wkPay = CDec(txtPayHr.Text) * 40 + ((CDec(txtHrs.Text) - 40) * CDec(txtPayHr.Text) * 1.5)

Else

wkPay = CDec(txtPayHr.Text) * CDec(txtHrs.Text)

End If

showPayForm.ShowDialog()

End Sub

Private Sub mnuReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuReset.Click

txtId.Clear()

txtHrs.Clear()

txtPayHr.Clear()

End Sub

Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click

Me.Close()

End Sub

End Class

Public Class frmShowPay

Inherits System.Windows.Forms.Form

Private Sub btnReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReturn.Click

Me.Close()

End Sub

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

txtPay.Text = FormatCurrency(wkPay)

End Sub

End Class

Module modInfo

Public wkPay As Single

End Module

Mathmenu Project

Public Class frmMath

Inherits System.Windows.Forms.Form

Private Sub mnuAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAdd.Click

txtAns.Text = CInt(txtFirst.Text) + CInt(txtSecond.Text)

End Sub

Private Sub mnuSubtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSubtract.Click

txtAns.Text = CInt(txtFirst.Text) - CInt(txtSecond.Text)

End Sub

Private Sub mnuMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuMultiply.Click

txtAns.Text = CInt(txtFirst.Text) * CInt(txtSecond.Text)

End Sub

Private Sub mnuDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDivide.Click

txtAns.Text = CInt(txtFirst.Text) / CInt(txtSecond.Text)

End Sub

Private Sub mnuAnsRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAnsRed.Click

txtAns.ForeColor = Color.Red

End Sub

Private Sub mnuPopupAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPopupAdd.Click

txtAns.Text = CInt(txtFirst.Text) + CInt(txtSecond.Text)

End Sub

Private Sub mnuPopupSubtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPopupSubtract.Click

txtAns.Text = CInt(txtFirst.Text) - CInt(txtSecond.Text)

End Sub

Private Sub mnuPopupMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPopupMultiply.Click

txtAns.Text = CInt(txtFirst.Text) * CInt(txtSecond.Text)

End Sub

Private Sub mnuPopupDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPopupDivide.Click

txtAns.Text = CInt(txtFirst.Text) / CInt(txtSecond.Text)

End Sub

End Class