Mi primera DLL
Posted: Sat Oct 06, 2007 10:27 am
Me gustaría saber cómo puedo crear una simple DLL. Por ejemplo, una que contenga solamente una clase a la que pasar un array y que lo presente en pantalla. Algo más o menos así:
¿Alguien podría darme una idea de cómo hacerlo? He buscado en diversos posts, pero no me aclaro al respecto. Una vez compuesta la DLL, para usarla ¿tengo que registrarla en mi programa o algo así?
Perdón por una pregunta tan compleja pero la solución quizás le sea útil a otros.
Saludos,
Rafael
Code: Select all
CLASS Test FROM TDialog
export:
METHOD New(aTxt) CONSTRUCTOR
hidden:
METHOD Controles()
ENDCLASS
//────────────────────────────────────────────────────METHOD New(aTxt) CLASS Test
Default aTxt := {"Hello World!", "Hello again"}
Super():New(0,0,60,80)
ACTIVATE DIALOG Self CENTER ON INIT ::Controles(aTxt)
RETURN Self
//────────────────────────────────────────────────────
METHOD Controles(aTxt) CLASS Test
@ 20, 0 SAY "Tu mensaje dice: "+aTxt[1] SIZE ::nWidth, 20 PIXEL
@ 50, 0 SAY "Segunda linea: "+aTxt[2] SIZE ::nWidth, 20 PIXEL
RETURN NILPerdón por una pregunta tan compleja pero la solución quizás le sea útil a otros.
Saludos,
Rafael