CONSULTA COMPLETA NFE
Opa blz DS2T fiz conforme voce falou mais recebo erro de overload nessa linha
Private Shared Sub PassaValorPropriedade(ByRef objeto As Object, posicaoInicial As Integer, html As String)
Dim tipoObjeto As Type = objeto.GetType
Dim propriedades As PropertyInfo() = tipoObjeto.GetProperties()
Dim atributosPropriedades As Object()
For Each propriedade As PropertyInfo In propriedades
atributosPropriedades = propriedade.GetCustomAttributes(True)
Dim atributoElem As AtributoIdentificacaoElemento = Nothing
For Each obj As Object In atributosPropriedades
If obj.GetType = GetType(AtributoIdentificacaoElemento) Then
atributoElem = obj
Exit For
End If
Next
If Not atributoElem Is Nothing Then
Dim valor As String = RetornaSpanApos(atributoElem.Identificador, html,
atributoElem.Tipo = enumTipoIdentificador.Label, posicaoInicial)
[txt-color=#e80000] propriedade.SetValue(objeto, valor)[/txt-color]
End If
Next
End Sub
erro............Error 1 Overload resolution failed because no accessible [ô]SetValue[ô] accepts this number of arguments. C:\Users\Dario Ferreira F\Desktop\ConsultaNFE\ConsultaNFE\HtmlReader.vb 89 21 ConsultaNFE
Private Shared Sub PassaValorPropriedade(ByRef objeto As Object, posicaoInicial As Integer, html As String)
Dim tipoObjeto As Type = objeto.GetType
Dim propriedades As PropertyInfo() = tipoObjeto.GetProperties()
Dim atributosPropriedades As Object()
For Each propriedade As PropertyInfo In propriedades
atributosPropriedades = propriedade.GetCustomAttributes(True)
Dim atributoElem As AtributoIdentificacaoElemento = Nothing
For Each obj As Object In atributosPropriedades
If obj.GetType = GetType(AtributoIdentificacaoElemento) Then
atributoElem = obj
Exit For
End If
Next
If Not atributoElem Is Nothing Then
Dim valor As String = RetornaSpanApos(atributoElem.Identificador, html,
atributoElem.Tipo = enumTipoIdentificador.Label, posicaoInicial)
[txt-color=#e80000] propriedade.SetValue(objeto, valor)[/txt-color]
End If
Next
End Sub
erro............Error 1 Overload resolution failed because no accessible [ô]SetValue[ô] accepts this number of arguments. C:\Users\Dario Ferreira F\Desktop\ConsultaNFE\ConsultaNFE\HtmlReader.vb 89 21 ConsultaNFE
Criou o projeto na versão Framework 4.5?
criei no 4.0 irei mudar para o 4.5...
resolvido vlw...
Não havendo mais comentários até amanhã, estarei fechando o tópico.
Tópico encerrado.
Tópico encerrado , respostas não são mais permitidas