none
RECONHECIMENTO DE IMAGEM ERRO! RRS feed

  • Pergunta

  • Marquei as linha com o erro -->Exception thrown: 'System.ArgumentException' in System.Drawing.dll ("Parâmetro inválido.")

    É um script para detectar imagem e retornar sua posiçao so que depois de alguns minutos ocorre um erro nao sei mais o que fazer para funcionar

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Try
                '=========== procurar=================
               If MList.SelectedIndex < 0 Then
                    MList.SelectedIndex = 0
                End If
                MList.SelectedItem = MList.GetSelected(MList.SelectedIndex)
                Dim bmpSource2 As Bitmap = New Bitmap(strPath + "\Mpasta\" + MList.SelectedItem.ToString + ".bmp")

                Dim bmpScreen2 As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)  --> Exception thrown: 'System.ArgumentException' in System.Drawing.dll ("Parâmetro inválido.")

                Dim clrScreen, clrUL, clrUR, clrLL, clrLR As Color

                'capture screen

                Using g As Graphics = Graphics.FromImage(bmpScreen2)
                    g.CopyFromScreen(0, 0, 0, 0, bmpScreen2.Size) -->Exception thrown: 'System.ArgumentException' in System.Drawing.dll ("Parâmetro inválido.")
                End Using


                clrUL = bmpSource2.GetPixel(0, 0)
                clrUR = bmpSource2.GetPixel(bmpSource2.Width - 1, 0)
                clrLL = bmpSource2.GetPixel(0, bmpSource2.Height - 1)
                clrLR = bmpSource2.GetPixel(bmpSource2.Width - 1, bmpSource2.Height - 1)

                For x = RCM1X To RCM2X
                    For y = RCM1Y To RCM2Y

                        clrScreen = bmpScreen2.GetPixel(x, y)

                        If clrScreen = clrUL Then
                            'found the upperleft pixel check upper right
                            clrScreen = bmpScreen2.GetPixel(x + bmpSource2.Width - 1, y)
                            If clrScreen = clrUR Then
                                clrScreen = bmpScreen2.GetPixel(x, y + bmpSource2.Height - 1)
                                If clrScreen = clrLL Then
                                    clrScreen = bmpScreen2.GetPixel(x + bmpSource2.Width - 1, y + bmpSource2.Height - 1)

                                    If clrScreen = clrLR Then
                                        'Se achar
                                        mX = x
                                        mY = y
                                        MR = True
                                        Exit For
                                    Else
                                        MR = False
                                        Exit For
                                    End If
                                End If
                            End If
                        End If
                    Next
                Next       
        End Sub

    domingo, 5 de novembro de 2017 01:00

Respostas

Todas as Respostas

  • Bom dia, MatheusCasalechi. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Dá uma olhada nesse link: https://social.msdn.microsoft.com/Forums/office/pt-BR/75a69485-6acb-4f0f-b113-710b6fbc885f/erro-ao-carregar-imagem-num-picturebox?forum=vscsharppt

    Veja se te ajuda.

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 7 de novembro de 2017 12:04
    Moderador
  • Bom dia,

    Por falta de retorno essa thread está encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 20 de novembro de 2017 12:42
    Moderador