COMO RESOLVER ESSES WARNING ?

KERPLUNK 17/05/2012 15:17:46
#402159 Resposta escolhida

Esses warnings dizem: A função [Ô]XXX[Ô] não retorna um valor em todos os caminhos de código uma exceção de null pode ocorrer e talz e talz...

O que está acontecendo:
Na sua função, em alguns pontos, você tem algo como NomeFuncao = [Ô]XXX[Ô] dentro de um if, por exemplo. Nesse caso o Visual Studio avisa que existe a possibilidade de algum caso não entrar nesse If e a função, não ter retorno, gerando a exceção de null

Solução:
Toda e qualquer Function, DEVE retornar alguma coisa. Logo, o melhor a fazer é usar uma variável interna na function, fazer tudo que a function deve fazer e atribuir o retorno sempre à essa variável, retornando-a:
Function XXX(parametro as Integer) as Boolean
Dim _return As Boolean = False [ô]valor default da função é FALSE

If Cliente <> [Ô]casas bahia[Ô] Then
_return = True
ElseIf PlanetasAlinhadosCorretamente = False Then
_return = False
End If
[ô]Coloque aqui toda e qualquer funcionalidade que você queira e sempre atribua o resultado que a function deve ter à variável [Ô]_return[Ô]

XXX = _return
End Function

F001E 17/05/2012 15:33:21
#402169

KERPLUNK...Tenho essa segunte função....e como ela ficaria com isso que vc falou ?

Function SoLetras(ByVal KeyAscii As Integer) As Integer
Try
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If InStr([Ô]AÃÁBCÇDEéÊFGHIÍJKLMNOPQRSTUÚVWXYZ[Ô], Chr(KeyAscii)) = 0 Then
SoLetras = 0
Else
SoLetras = KeyAscii
End If
If KeyAscii = 8 Then SoLetras = KeyAscii
If KeyAscii = 13 Then SoLetras = KeyAscii
If KeyAscii = 32 Then SoLetras = KeyAscii
Catch ex As Exception
TratarErro([Ô]Modulo Geral[Ô], [Ô]SoLetras[Ô], Err.Number, Err.Description, Erl)
End Try
End Function

KERPLUNK 17/05/2012 15:56:09
#402179

Mais ou menos assim:

Function SoLetras(ByVal KeyAscii As Integer) As Integer
Dim _return As Integer = 0 [ô]retorna 0 por default, mude para o valor que você quiser caso não queira 0
Try
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If InStr([Ô]AÃÁBCÇDEéÊFGHIÍJKLMNOPQRSTUÚVWXYZ[Ô], Chr(KeyAscii)) = 0 Then
_return = 0
Else
_return = KeyAscii
End If
If KeyAscii = 8 Then _return= KeyAscii
If KeyAscii = 13 Then _return= KeyAscii
If KeyAscii = 32 Then _return= KeyAscii
Catch ex As Exception
TratarErro([Ô]Modulo Geral[Ô], [Ô]SoLetras[Ô], Err.Number, Err.Description, Erl)
_return = 0
End Try
SoLetras = _return
End Function

F001E 17/05/2012 16:37:45
#402189

blz KERPLUNK ..deu certo....valews...