Programacion Práctica 7: Uso de MenuStrip

Práctica 7:  Uso  de  MenuStrip

Tenemos que utilizar el control MenuStrip, lo arrastramos y soltamos en el Form1, añadiremos un Label1 y un PictureBox, tal como se desarrolló en clase, luego 6 Forms, 1 Modue1.

[pic 1]

[pic 2]

[pic 3]

[pic 4]

[pic 5]

[pic 6]

El Módulo

------------------------------------------------------------------------------------------------------------------

Module Module1

    Public ID As Single

    Public V As Single

    Public T As Single

    Public n As Single

    Public P As Single

    Public Pc As Single

    Public Tc As Single

    Public A As Single

    Public B As Single

    Public C As Single

    Public Pv As Single

    Public H As Single

    Public pH As Single

    Public pOH As Single

    Public sal As Single

    Public acido As Single

    Public Ka As Single

End Module

------------------------------------------------------------------------------------------------------------------

Public Class Form1

------------------------------------------------------------------------------------------------------------------

    Private Sub GasesIdealesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GasesIdealesToolStripMenuItem.Click

        Me.Hide()

        form2.show()

    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub VDWToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VDWToolStripMenuItem.Click

        Me.Hide()

        Form3.Show()

    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub RedlichKwongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedlichKwongToolStripMenuItem.Click

        Me.Hide()

        Form4.Show()

    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub EcAntoineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EcAntoineToolStripMenuItem.Click

        Me.Hide()

        Form5.Show()

    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub SolucionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SolucionesToolStripMenuItem.Click

        Me.Hide()

        Form6.Show()

    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub BufferToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BufferToolStripMenuItem.Click

        Me.Hide()

        Form7.Show()

    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click

        ID = Shell("C:\Program Files (x86)\Microsoft Office\Office15\winword.exe", 1)

    End Sub

------------------------------------------------------------------------------------------------------------------

...