Scribd
Upload
22 views

Captura Antes de Ejecutar

The document contains code for a program with menus to count and display the number of clients and vendors in data tables, show and hide the client and vendor lists, and exit the program. The code includes event handler subroutines for menu click events to perform these actions.

Uploaded by

Magali Freire
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
22 views

Captura Antes de Ejecutar

The document contains code for a program with menus to count and display the number of clients and vendors in data tables, show and hide the client and vendor lists, and exit the program. The code includes event handler subroutines for menu click events to perform these actions.

Uploaded by

Magali Freire
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 5

Captura antes de ejecutar

Captura despues de ejecutar









Durante ejecucion



















































Private Sub NumeroDeCLientesToolStripMenuItem_Click(sender As Object, e As
EventArgs) Handles NumeroDeCLientesToolStripMenuItem.Click
Clientes.Visible = False
Dim c As Integer
c = Clientes.RowCount - 1
MsgBox("El numero de clientes es " & c)

End Sub

Private Sub NumeroDeVendedoresToolStripMenuItem_Click(sender As Object, e As
EventArgs) Handles NumeroDeVendedoresToolStripMenuItem.Click
Vendedores.Visible = False
Dim v As Integer
v = Vendedores.RowCount - 1
MsgBox("El numero de vendedores es " & v)

End Sub

Private Sub ListadoVendedoresToolStripMenuItem_Click(sender As Object, e As
EventArgs) Handles ListadoVendedoresToolStripMenuItem.Click
Vendedores.Visible = True
End Sub

Private Sub ListadoDeClientesToolStripMenuItem_Click(sender As Object, e As
EventArgs) Handles ListadoDeClientesToolStripMenuItem.Click
Clientes.Visible = True
End Sub


Private Sub VendedoresToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles VendedoresToolStripMenuItem.Click
Clientes.Visible = False
End Sub

Private Sub SalirToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles SalirToolStripMenuItem.Click
End
End Sub

Private Sub ClientesToolStripMenuItem_Click(sender As Object, e As EventArgs)
Handles ClientesToolStripMenuItem.Click
Vendedores.Visible = False
End Sub
End Class

You might also like