FUNCAO
QUERO SABER SE ALGUéM SABE DE ALGUMA FUNÇÃO NA QUAL EU VERIFICO EM UM TEXTBOX SE CONTEM ALGUM DOS VALORES PRé DEFINIDOS.
EX.:
SE O USUÃ ÂRIO DIGITAR UM VALOR DIFERENTE DE 1,2,3,4 ELE DEVE DAR UMA MENSAGEM.
HOJE EU FAÇO USANDO IF OU SELECT CASE VERIFICADO UM POR UM. NUMA CONSULTA SQL EU POSSO USAR O "IN" OU "NOT IN", QUERO SABER EM UM OBJETO TEXTBOX COMO POSSO FAZER.
EX.:
SE O USUÃ ÂRIO DIGITAR UM VALOR DIFERENTE DE 1,2,3,4 ELE DEVE DAR UMA MENSAGEM.
HOJE EU FAÇO USANDO IF OU SELECT CASE VERIFICADO UM POR UM. NUMA CONSULTA SQL EU POSSO USAR O "IN" OU "NOT IN", QUERO SABER EM UM OBJETO TEXTBOX COMO POSSO FAZER.
Ve se ajuda
Function ConfereValor(Valor as string,ParamAraay Parametros()) as boolean
dim i as integer
for i = 0 to ubound(Parametros)
if valor = Parametros(i) then
Conferevalor = true
exit for
next
end function
Para usar faça
msgbox ConfereValor(Text1.text,1,2,3,4)
Ve se ajuda
Function ConfereValor(Valor as string,ParamAraay Parametros()) as boolean
dim i as integer
for i = 0 to ubound(Parametros)
if valor = Parametros(i) then
Conferevalor = true
exit for
next
end function
Para usar faça
msgbox ConfereValor(Text1.text,1,2,3,4)
Ve se ajuda
Tópico encerrado , respostas não são mais permitidas