O TIPO [Ô]PICTUREBOX[Ô] NÃO ESTÁ DEFINIDO

 Tópico anterior Próximo tópico Novo tópico

O TIPO [Ô]PICTUREBOX[Ô] NÃO ESTÁ DEFINIDO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#485492 - 19/11/2018 21:11:50

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


Última edição em 19/11/2018 21:12:45 por ELMO01

Pessoal, necessito novamente a ajuda de vocês, achei esta função Captcha na rede, mais está em C# e converti para VB.NET. Após a conversão de C# para VB apresentou o seguinte erro:

"O tipo "PICTUREBOX" não está definido

Abaixo está a função. Onde está em negrito é aonde está aparecendo o erro.

Public Shared Function GetCaptcha(ByVal picLetras As PictureBox) As Boolean
        Dim htmlResult As String = ""

        Using wc = New CookieAwareWebClient()

            Try
                picLetras.Image = Nothing
                wc.SetCookieContainer(_cookies)
                wc.Headers(HttpRequestHeader.UserAgent) = "Mozilla/4.0 (compatible; Synapse)"
                wc.Headers(HttpRequestHeader.KeepAlive) = "300"
                htmlResult = wc.DownloadString(urlBaseReceitaFederal + paginaPrincipal)
            Catch __unusedException1__ As Exception
                Mensagem = "Não foi possível carregar a imagem de validação." & vbLf & "Serviço da Receita Federal fora do ar ou bloqueado. Tente novamente mais tarde"
                Return False
            End Try
        End Using

        If htmlResult.Length > 0 Then
            Dim wc2 = New CookieAwareWebClient()
            wc2.SetCookieContainer(_cookies)
            wc2.Headers(HttpRequestHeader.UserAgent) = "Mozilla/4.0 (compatible; Synapse)"
            wc2.Headers(HttpRequestHeader.KeepAlive) = "300"
            Dim data As Byte() = wc2.DownloadData(urlBaseReceitaFederal + paginaCaptcha)
            Dim bit As Bitmap = New Bitmap(New MemoryStream(data))

            If bit IsNot Nothing Then
                picLetras.Image = bit
                Return True
            Else
                Mensagem = "Não foi possível carregar a imagem de validação. Tente novamente mais tarde"
                Return False
            End If
        Else
            Return False
        End If
    End Function

Alguém ai pode me ajudar nesta questão?

Obrigado.


elmo

Resposta escolhida #485494 - 20/11/2018 09:53:14

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Você ainda tem dificuldade com entendimento de tipagem...
PictureBox é uma classe de System.Windows.Forms

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#485539 - 22/11/2018 19:35:05

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


KERPLUNK obrigado por ter respondido, mais já arrumei o erro acima.

elmo

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ELMO01 em 22/11/2018 19:35:14