Codigo De Fuente

codigo fuente

/* modulo del programa muestra en pantalla el resultado*/

Module Module1

Public numero_elementos As Integer

Public Sub Escribe_totales()

Form1.LblElementos.Text = Form1.lista_elementos.Items.Count.ToString

End Sub

End Module

/* una clase publica del formulario principal

Public Class Form1

/* un boton de salida */

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

End

End Sub

/* boton de apilar o añadir va insertando un dato*/

Private Sub btnAñadir_Click(sender As Object, e As EventArgs) Handles btnAñadir.Click

If Me.txt_nuevo.Text <> "" Then

inserta_elemento(Me.txt_nuevo.Text)

numero_elementos += 1

Me.txt_nuevo.Text = ""

Me.LblElementos.Text = "Elementos: " & numero_elementos

End If

End Sub

Sub inserta_elemento(ByVal valor As String)

Me.lista_elementos.Items.Add(valor)

End Sub

/* carga el fomrulario y muestra en un control cuantos elementos hay

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

numero_elementos = 0

End Sub

/* al selecionar un dato se puede eliminar

Private Sub btneliminar_Click(sender As Object, e As EventArgs) Handles btneliminar.Click

If Me.lista_elementos.SelectedItem <> "" Then

elimina_elemento(Me.lista_elementos.SelectedItem)

numero_elementos -= 1

Me.LblElementos.Text = "Elementos: " & numero_elementos

End If

End Sub

Sub elimina_elemento(ByVal elemento As Object)

Me.lista_elementos.Items.Remove(elemento)

End Sub

End Class

...