https://foro.gambas-es.org/viewtopic.php?f=1&t=2078&p=12043#p12043
-----------------------------------
jsbsan
Viernes, 09 Diciembre 2011, 22:02

Re: ¿Cómo Se Hace?
-----------------------------------
Creo que ya lo tengo.

He hecho un componente "password", con una clase "password" que tiene una propiedad ".devolver" y un metodo ".iniciar" que muestra un formulario "Ftest"

[code linenumbers=false syntax=gambas]
' Gambas class file

EXPORT

PROPERTY devolver AS String
PRIVATE hdevolver AS String

PRIVATE FUNCTION devolver_Read() AS String

RETURN hdevolver
END

PRIVATE SUB devolver_Write(Value AS String)

hdevolver = value

END

PUBLIC SUB iniciar()
  
  FTest.Showmodal
  hdevolver = var.valor
  
END
[/code]

El formulario Ftest tiene el siguiente codigo:
[code linenumbers=false syntax=gambas]' Gambas class file

PUBLIC SUB Form_Open()
END

PUBLIC SUB Button1_Click()
IF TextBoxClave.text = "valido" THEN 
var.valor = "valido"
ELSE 
var.valor = "fallo"
ENDIF
ME.Close
END[/code]

Y hay un módulo "var", con el que se define la variable "valor" que es la que voy a usar para pasar el datos del  formulario y a la clase.
[code linenumbers=false syntax=gambas]' Gambas module file

PUBLIC valor AS String[/code]

Y luego tengo un proyecto que hace uso de ese componente: "comprobarpassword"
Que en su formulario Fmain tiene el siguiente codigo:
[code linenumbers=false syntax=gambas]
PUBLIC SUB Form_Open()
DIM a AS NEW password
a.iniciar()
PRINT a.devolver
END[/code]

Y con la orden print, devuelve "valido" o "fallo"

Creo que es mas o menos lo que quieres hacer...


Te adjunto dos archivos: uno es el componente "password" y otro el programa principal "comprobarpasswod"

[url=http://manualgambasenaleman.googlecode.com/files/comprobarPasword-0.0.1.tar.gz]comprobarPasword-0.0.1.tar.gz
[url=http://manualgambasenaleman.googlecode.com/files/password-0.0.5.tar.gz]password-0.0.5.tar.gz


