PARAMETROS VB6
Olá galera. Estou iniciando em VB6 e preciso da ajuda de vocês ;x ...
Criei uma Class Module, com uma Sub que pega três valores, Exemplo: [Ô]ByVal avDados As Variant, ByVal strCampo As String, ByVal strValor As String[Ô]
Até aqui ok.
Instanciei o objeto, chamei o método e passei os parâmetros, Exemplo: [Ô]oclsCliente.getDados(avNewDados, strNewCampo, strNewValor)
Porém acontece um erro: [Ô]Expected: = [Ô]. é meio obvio, mas a declaração não está certa? Preciso passar três valores por parâmetro, como faço? Tem como passar três parâmetros diferentes? Eu não vejo problema Oo ..
Agradeço desde já.
Abraço
Criei uma Class Module, com uma Sub que pega três valores, Exemplo: [Ô]ByVal avDados As Variant, ByVal strCampo As String, ByVal strValor As String[Ô]
Até aqui ok.
Instanciei o objeto, chamei o método e passei os parâmetros, Exemplo: [Ô]oclsCliente.getDados(avNewDados, strNewCampo, strNewValor)
Porém acontece um erro: [Ô]Expected: = [Ô]. é meio obvio, mas a declaração não está certa? Preciso passar três valores por parâmetro, como faço? Tem como passar três parâmetros diferentes? Eu não vejo problema Oo ..
Agradeço desde já.
Abraço
posta esta sub em que o erro ocorre
Olha só.
No button está assim:
Private Sub Command1_Click()
ReDim avTeste(1)
avTeste(0) = [Ô]Teste[Ô]
avTeste(1) = [Ô]Nome[Ô]
strTeste = [Ô]Ronaldo[Ô]
strTeste2 = [Ô]Silva[Ô]
Set clsClass = New Class1
clsClass.getTeste(avTeste, strTeste, strTeste2)
End Sub
Na Class Module Está assim:
Option Explicit
Private avTeste As Variant
Private strTeste As String
Private strTeste2 As String
Public Sub getTeste(avT, strT, strT)
avTeste = avT
strTeste = strT
strTeste2 = strT2
MsgBox avTeste(0) & [Ô] [Ô] & avTeste(1)
End Sub
O erro acontece no button, e a linha do erro é a do objeto oclsCliente.getDados...
Eu não consigo entender o problema de não passar 3 valores como parâmetro.
No button está assim:
Private Sub Command1_Click()
ReDim avTeste(1)
avTeste(0) = [Ô]Teste[Ô]
avTeste(1) = [Ô]Nome[Ô]
strTeste = [Ô]Ronaldo[Ô]
strTeste2 = [Ô]Silva[Ô]
Set clsClass = New Class1
clsClass.getTeste(avTeste, strTeste, strTeste2)
End Sub
Na Class Module Está assim:
Option Explicit
Private avTeste As Variant
Private strTeste As String
Private strTeste2 As String
Public Sub getTeste(avT, strT, strT)
avTeste = avT
strTeste = strT
strTeste2 = strT2
MsgBox avTeste(0) & [Ô] [Ô] & avTeste(1)
End Sub
O erro acontece no button, e a linha do erro é a do objeto oclsCliente.getDados...
Eu não consigo entender o problema de não passar 3 valores como parâmetro.
antes de:
Set clsClass = New Class1
Coloque:
Dim clsClass = new Class1
Set clsClass = New Class1
Coloque:
Dim clsClass = new Class1
Já fiz isso KERPLUNK, é que não postei com o código, mas mesmo assim, continua dando erro, [Ô]Syntax Error[Ô]
Tente assim:
clsClass.getTeste(avTeste(0), strTeste, strTeste2)
clsClass.getTeste(avTeste(0), strTeste, strTeste2)
Erro [Ô]Expected: = [Ô]
Já tentei de tudo ;/ ...
Já tentei de tudo ;/ ...
Sem os parênteses; getTeste, é uma sub, não retorna nada, por isso, se você colocar os parênteses, espera-se que use um retorno:
clsClass.getTeste avTeste(0), strTeste, strTeste2
clsClass.getTeste avTeste(0), strTeste, strTeste2
Assim deve funcionar:
JSFF77
www.visualgria.com.br
clsClass.getTeste(avTeste(), strTeste, strTeste2)JSFF77
www.visualgria.com.br
Tópico encerrado , respostas não são mais permitidas