Saludos al forum
Segun este Ejemplo de dicho codigo , lo tome de los ejemplos de harbour. Using Harbour Class HBClass
s_oClass:AddMethod( "New", @New() )
como lo defino
CLASS TApp01
METHOD EntraDat @EntraDat()
ENDCLASS
Ayuda con esta clase
Moderador: Moderadores
4 Mensagens • Página 1 de 1
Ayuda con esta clase
por Ruben Dario » 09 Mar 2020 16:56
-
Ruben Dario Usuário NÃvel 3 
- Mensagens: 115
- Data de registro: 14 Jun 2015 23:19
- Cidade/Estado: Colombia
- Curtiu: 3 vezes
- Mens.Curtidas: 0 vez
-
alxsts Colaborador 
- Mensagens: 2945
- Data de registro: 12 Ago 2008 15:50
- Cidade/Estado: São Paulo-SP-Brasil
- Curtiu: 21 vezes
- Mens.Curtidas: 248 vezes
Ayuda con esta clase
por bencz » 10 Mar 2020 09:00
Você quer criar classes em tempo de execução ?
-
bencz Usuário NÃvel 4 
- Mensagens: 517
- Data de registro: 28 Abr 2012 17:36
- Curtiu: 6 vezes
- Mens.Curtidas: 34 vezes
Ayuda con esta clase
por bencz » 10 Mar 2020 09:14
Seria isso ?
As funções que você busca, estão definidas neste arquivo fonte: https://github.com/vszakats/hb/blob/669f310ff44fc7a11158d7583aaad6db673e1c62/src/rtl/objfunc.prg
LOCAL oHappy := HBClass():New( "THappy" )
__objAddMethod( oHappy, "Smile", @MySmile() ) // Adiciona um metodo
__objAddData( oHappy, "lHappy" ) // Adiciona um field ( uma variavel )
oHappy:lHappy := .T.
? CSTR(oHappy:lHappy ) // --> .T.
? oHappy:Smile( 1 ) // --> :)
? oHappy:Smile( 2 ) // --> ;)
? oHappy:Smile( 3 ) // --> *SMILE*
STATIC FUNCTION MySmile( nType )
IF HB_ISNUMERIC( nType )
SWITCH nType
CASE 1 ; RETURN ":)"
CASE 2 ; RETURN ";)"
CASE 3 ; RETURN "*SMILE*"
ENDSWITCH
ENDIF
RETURN NIL
As funções que você busca, estão definidas neste arquivo fonte: https://github.com/vszakats/hb/blob/669f310ff44fc7a11158d7583aaad6db673e1c62/src/rtl/objfunc.prg
-
bencz Usuário NÃvel 4 - Mensagens: 517
- Data de registro: 28 Abr 2012 17:36
- Curtiu: 6 vezes
- Mens.Curtidas: 34 vezes
Ver tópicos ativos •
4 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
