Visual Basic - ¿Resumir código que se repite?

Life is soft - evento anual de software empresarial
 
Vista:

¿Resumir código que se repite?

Publicado por Álvaro (10 intervenciones) el 07/04/2015 13:25:40
Buenas tardes.

Soy autodidacta con el Visual Basic y he aprendido bastante en el último año, pero hay una funcionalidad que no consigo enterarme de cómo va. Esto es el código que se repite.
Según he leído puedo crear "clases" o "funciones" o algo así, una estructura de código que se repite. De esta forma escribo el código en ese lugar una única vez, y cada vez que quiera ejecutarlo tan solo debo "llamarlo" desde otro lugar y se ejecutará.

¿Cómo puedo hacer esto en el Visual Studio 2008?

¡Gracias por vuestro tiempo y ayuda!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

¿Resumir código que se repite?

Publicado por Pedro Luis (56 intervenciones) el 08/04/2015 13:13:37
Este es un ejemplo de Funcion que centra un formulario, lo cual se usa mucho.
Yo tengo un modulo que se llama Inicio donde meto todos estos programas utiles .

Function Centrar(Formulario)
Formulario.Move (Screen.Width - Formulario.Width) / 2, _
(Screen.Height - Formulario.Height) / 2
End Function

Y esta funcion se llama asi

Centrar Me

Claro que es en Visal Basic XP y ya ha llovido desde entonces.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de LUIS FRANCO

¿Resumir código que se repite?

Publicado por LUIS FRANCO (93 intervenciones) el 08/04/2015 16:18:52
Alvaro buen dia

Si efectivamente para no estar escribiendo lo mismo en varios lugares, este metodo es facil y nos evita contratiempos.

Lo que haces es crear un private sub con lo que deseas ejecutar y haces el llamado a ese private sub por su nombre, abajo te dejo una muestra para que le des un vistazo, todos los botones de comando hacen lo mismo.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
Adodc1.Refresh
Do While Adodc1.Recordset.EOF = False
    If Adodc1.Recordset!Item = "" Or IsNull(Adodc1.Recordset!Item) Then
 
    Else
        Adodc2.Refresh
        Adodc2.Recordset.AddNew
        Adodc2.Recordset!Item = Adodc1.Recordset!Item
        Adodc2.Recordset.Update
    End If
Adodc1.Recordset.MoveNext
Loop
 
End Sub
 
Private Sub Command2_Click()
      Command1_Click
End Sub
 
Private Sub Command3_Click()
      Command1_Click
End Sub
 
Private Sub Command4_Click()
      Command1_Click
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar