Tipos de Procedimientos

Subrutinas de código

Se denomina subrutina o procedimiento a una porción de código que tiene como principal función ejecutar una determinada tarea. Estas tienen un nombre para poder identificarlas y luego poder llamarlas para poder utilizarlas.


Las subrutinas tienen un principio y un fin y estas pueden tener distinto tipo de alcance, o sea pueden ser de tipo privadas o públicas.
En el siguiente ejemplo se muestra una subrutina que crea visual basic automáticamente cuando en un formulario insertamos un botón llamado Command1 y desde la ventana de eventos seleccionamos el evento click del mismo

Private Sub cmdlimpiar_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlimpiar.Click

        txtcodigo.Clear()

        txtnombre.Clear()

        txtedad.Clear()

        txtcurso.Clear()

    End Sub

En este ejemplo tenemos una subrutina o procedimiento de tipo Privado, esto quiere decir que la podemos utilizar solo en el formulario o módulo donde está declarada o escrita
La palabra sub le sigue el nombre de la rutina que la identifica. En este caso cmdlimpiar_Click
Si quisiéramos que estos procedimientos se puedan llamar desde otro formulario, lo que tendríamos que hacer es cambiar el alcance del procedimiento, en vez de Private Sub cambiarlo por Public Sub. si hacemos esto, ese procedimiento de código puede ser utilizado desde cualquier parte del proyecto.

Subrutinas y Procedimientos propios

También podemos crear nuestros propios Procedimientos y Subrutinas de código para ejecutar una determinada tarea.
Para crear un procedimiento de código se debe escribir la palabra Private sub o Public sub (depende el alcance), seguida del nombre del procedimiento (un nombre que queramos) y los parámetros, si es que le enviaremos parámetros (los parámetros son opcionales). Además el procedimiento debe ser escrito en un lugar vacío de la ventana de código, es decir nno se puede crear un procedimiento dentro de otro
Un ejemplo para crear un procedimiento:

Private Sub ProcedimientoBorrar()

               label1.clear
               label2.clear
              label3..clear

End Sub

Private Sub command1_click()

            ProcedimientoBorrar

End Sub