TENTANDO APRENDER USAR CLASSE

USUARIO.EXCLUIDOS 25/03/2005 06:55:10
#74854
To tentando aprender a usar classes, andei lendo tudo por ai no site Macoratti, mas ainda assim nao consigui nao... Se alguem puder me ajudar no que eu to tentando fazer ai abaixa axo que a partir dai eu posso entender o resto... assim; so pra ver se aprendo, num form botei um text e dois botoes; no botao 1 eu mando um valor qquer pra minha classe e no 2 eu pego o valor q mandei e mostro no text. Mas num funciona eu num entendi direito.

Aluem pode me dizer como fazer isso; onde to errando? Vejam meu codigo...

'A Classe...
'-------------
Private sTeste As String

Public Property Get Teste() As String
    Teste = sTeste
End Property

Public Property Let Teste(NewVal As String)
    sTeste = NewVal
End Property
'-------------

'Num Form...
'-------------
	'Botao 1 envia valor...
Private Sub Command1_Click()

  Dim classe As Object
  Set classe = New clsMyClass

  classe.Teste = "Teste123"
  
End Sub
	'Botao 2 pega o resultado e mostra no Text1
Private Sub Command2_Click()

  Dim classe As Object
  Set classe = New clsMyClass

  Text2.Text = classe.Teste

End Sub
'-------------
WEBMASTER 25/03/2005 07:51:42
#74855 Resposta escolhida
_Mauricio,

O problema é o seguinte, você está criando uma nova classe em cada botão em
vez de apenas acessá-la.

Correção:

Citação:


'Num Form...
'-------------

Dim classe As New clsmyclass
Private Sub Command1_Click()
classe.Teste = "Teste123"
End Sub

private Sub Command2_Click()
text2.Text = classe.Teste
End Sub
USUARIO.EXCLUIDOS 25/03/2005 12:37:29
#74887
Hummm. entendi;

Legal valeu amigao!!!
Vou mexer agora pra ver se eu vou aprendendo um pouco mais sobre isso.
Valeu mesmo!
Tópico encerrado , respostas não são mais permitidas
Voltar