Spanish ¿Cómo usar procedimientos declarados en un Class Module?

[supercoco81]

Hola,

mi duda es la siguiente:

Tengo en la activity principal una llamada al procedimiento "Realizar_operacion", que se encuentra en un Class Module que he llamado "operaciones".

¿Qué tengo que hacer para poder usar el procedimiento sin tener que escribirlo en cada Activity y usar el implementado en Class Module "operaciones"?

Gracias

Saludos

 

[IdasI4A]

Meparece que tienes que poner nombre del modulo punto y el nombre del procedimiento. En tu caso operaciones.Realizar_Operacion.

 

[supercoco81]

Gracias por tu respuesta.

Ya lo había intentado, pero al compilar me da este error.

Error description: Undeclared variable 'operaciones' is used before it was assigned any value.

Es como si tuviera que declarar el procedimiento pero no sé como. :S

 

[IdasI4A]

Pues yo lo uso así y a mi me funciona.
¿No usarás una variable 'operaciones' dentro del procedimiento?
Recuerda que si vienes de VB6 los procedimientos devuelve el valor con return y no con el nombre del procedimiento, te los comento por que a mi me pasó.

 

[supercoco81]

Este es el código que da error. Gracias

Hola otra vez,

la verdad es que vengo de .NET, jejej

El caso es este...

En el Main tengo...

Sub Mostrar_datos (team As Int)
Procedimientos_generales.Mostrar_foto (id, foto)
Procedimientos_generales.Mostrar_nombre (id, Label5)
End Sub


Y aparte en la clase "Procedimientos_generales" tengo:

'Class module

Sub Class_Globals

End Sub

Sub Mostrar_escudo (eq As Int, imagen As ImageView)
If eq=1 Then imagen.Bitmap = LoadBitmap(File.DirAssets, "001.jpg")
If eq=2 Then imagen.Bitmap = LoadBitmap(File.DirAssets, "002.jpg")
If eq=3 Then imagen.Bitmap = LoadBitmap(File.DirAssets, "003.jpg")

End Sub

Sub Mostrar_nombre (eq As Int, Lab As Label)
If eq=1 Then Lab.Text="Director"
If eq=2 Then Lab.Text="Empleado"
If eq=3 Then Lab.Text="Externo"

End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize

End Sub


Esto al compilar da el error:

Error description: Undeclared variable 'procedimientos_generales' is used before it was assigned any value.

 

[IdasI4A]

Perdona, pensaba que había añadido un "Code Module", cuando tú lo que has añadido es un "Class Module",o sea una clase, entonces antes de usarla la tienes que declarar :

Dim PG as Procedimientos_Generales

y luego ya la puedes usar

PG.Mostrar_Foto(id,foto)

De todas formas echale un vistazo a
http://www.b4x.com/forum/basic4andr...orials/18626-classes-tutorial.html#post106825

Un saludo

 

[supercoco81]

Al contrario. Muchas gracias. Solucionado