SIMULAR HERANCA EM DLL CRIAR DLL

MAXCIM 29/05/2007 12:17:09
#218672
Olá amigos, estou transformando algumas classes de meus projetos em DLLs (já que as utilizo em todoas as aplicações), e tenho dentro de uma classe uma herança ( simulada... rsrsr declaro uma classe dentro da outra e reutilizo seus controles, apenas referenciando a 1ê classe)
dentro da clase trial tenho:

Public DTS As New Cls_trialdt

oque me dá no form a segunte:
trial.leacesso
trial.Gravaacesso
Trial.DTS.DTExpira
.DTInstal
.TTAcessos

este Dts esta na classe Cls_trialdt
como classes funciona perfeitamente, mas copiando para DLL me dá erro.
"private object modules cannot be used in public object modules as parameters or return types or public procedures, as public data members, or as fields of public user defined types"

"não podem ser usados módulos de objeto privados em módulos de objeto de público como parâmetros ou tipos de retorno ou procedimentos públicos, como sócios de dados públicos, ou como campos de usuário público definiram tipos"



"A verdadeira filosofia é reaprender a ver o mundo " ( Merleau-Ponty )
Kleisson Maximiano de Oliveira
Msn kmxo@hotmail.com
USUARIO.EXCLUIDOS 29/05/2007 13:23:01
#218687 Resposta escolhida
Este erro ocorre quando algum Type ou Enum que você criou está definido como "Private". Se vc chamou algum Type ou Enum privado em uma função publica, deve colocar o Type ou Enum Publico tb. Se vc colocar o código dela aki ou mandar p mim descubro o erro p vc.
MAXCIM 29/05/2007 13:55:54
#218698
código:
classe : clsTrial
Public DTS As Cls_trialdt ' se comento esta linha copila normal
' é aki o erro... usando como classe direto no VB, declarando o DTS como public em clstrial, os comandos do clstrialdt ficam disponiveis....

Public Function Trial_Liberar_acesso(NameProg$) As Integer
  sNomeProjeto = NameProg
  Trial_Ler_Registro_WIN
  Trial_Liberar_acesso = lIBERA_ACESSO
End Function


Public Function Trial_Grava_acesso(NameProg$) As Boolean
sNomeProjeto = NameProg
ultimo_acesso
End Function


classe : clsTrialDT


Public Property Get DTinstal() As String
DTinstal = Trial.DT_instal
End Property
Public Property Get DTinic() As String
DTinic = Trial.DT_inic
End Property
Public Property Get TTAcessos() As String
TTAcessos = Trial.TT_acessos
End Property
Public Property Get DTExpira() As String
DTExpira = Trial.DT_Expira
End Property
MAIGUI 29/05/2007 23:51:20
#218793
você criou a referência à outra dll dentro da clsTrial?
MAXCIM 30/05/2007 08:23:29
#218806
Oi Maigui, não é referencia a outra dll, e sim a outra classe dentro da mesma DLL. isso faria com que eu tivesse subitens dentro da class.
MAXCIM 30/05/2007 08:25:42
#218807
aqui a DLL na 1º tela aparece as funçoes basicas, como visto na imagem anterior a DTS tens sub itens.
MAXCIM 01/06/2007 21:50:47
#219431
up...
MAXCIM 05/06/2007 08:15:11
#219759
alguem...
USUARIO.EXCLUIDOS 05/06/2007 14:47:47
#219861
Sem muitos comentários, o que vc precisa é isto:

http://www.macoratti.net/vb6_sher.htm
MAXCIM 13/06/2007 12:27:50
#221154
oi Emerson, vi o artigo, porem lá todos os itens ficam na rais, não se tem um sub iten.
e o que to tentando criar é justamente um subitens dentro de um iten na DLL.

mesmo assim obrigado.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar