Public Sub... Optional não funciona!!!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Public Sub... Optional não funciona!!!

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 16/03/2005 11:58 hs

Estou tendo um problema ao declarar procedure...

isso dá errado:

Public Sub InsereNovoServico(ByVal strCodProposta As String, ByVal intQtd As Integer, Optional ByVal lido As Boolean, ByVal intCodUser As Integer, ByVal TipoAviso As Integer)

End Sub

Isso dá certo!!

Public Sub InsereNovoServico(ByVal strCodProposta As String, ByVal intQtd As Integer, ByVal lido As Boolean, ByVal intCodUser As Integer, ByVal TipoAviso As Integer)

End Sub

Já testei a sintaxe assim:

Public Sub A(Optional ByVal lido As Boolean)

End Sub

e dá certo!!

Só qdo insiro o Optional na primeira sub dá errado... não sei se estou comendo bola mas não sei o q é...
Alguém pode me ajudar??

obrigado

TÓPICO EDITADO

AlbertoVasc

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 16/03/2005 12:14 hs

Tente colocar Optional ByVal do que ByVal Optional.

Alberto

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 16/03/2005 12:22 hs

??????

Foi isso q fiz...

Optional ByVal lido As Boolean

Roßerto

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 16/03/2005 12:41 hs

Ghost, eu fiz um teste simples e deu certo da maneira que vc fez acima

Private Sub Form_Load()
Call a("as")
End Sub

Public Sub a(ByVal r As String, Optional ByVal ft As Boolean)
MsgBox r
End Sub

Roberto
roberto@vbweb.com.br

Maxcim

GUARULHOS
SP - BRASIL

ENUNCIADA !

Postada em 16/03/2005 13:05 hs

se o error perssistir tente colocar a variavel que é optional por ultimo

Public Sub InsereNovoServico(ByVal strCodProposta As String, ByVal intQtd As Integer, ByVal intCodUser As Integer, ByVal TipoAviso As Integer, Optional ByVal lido As Boolean)

End Sub

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 16/03/2005 13:50 hs

blz MaxCim... funcionou assim com a optional por último.

obrigado e obrigado ao Roberto e ao AlbertoVasc por tentarem tb

Página(s): 1/1