COMPARAR OS VALORES NAS VARIAVEIS [Ô]NAME[Ô] E [Ô]

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

COMPARAR OS VALORES NAS VARIAVEIS [Ô]NAME[Ô] E [Ô]

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#429377 - 28/09/2013 17:21:07

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 28/09/2013 17:25:25 por PROGRAMADORVB6

Olá galera, boa noite.
Fiz este código há já algum tempo, mas agora tive que fazer uma revisão nele, porque tenho que comparar dois valores se são iguais ao fazer o varrimento por uma página HTML, estou a usar o comando [  Select Case .. ] para fazer essa comparação ("rápida")  entre valores, mas não estou conseguindo.
Estou a fazer alguma coisa mal, ou existe outro processo?
Deixo aqui o código.
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        Dim objIE As SHDocVw.InternetExplorer
        Dim htmlDoc As mshtml.HTMLDocument
        Dim DocElements As mshtml.IHTMLElementCollection = Nothing
        Dim url As String
        Dim VerCampo_Nulo As Boolean = False
        url = Me.TextBox3.Text
        objIE = New SHDocVw.InternetExplorer
        With objIE
            .Navigate(url)
            .Visible = True
            While .Busy = True
                Threading.Thread.Sleep(2000)
            End While
            htmlDoc = .Document
            DocElements = htmlDoc.getElementsByTagName("input")
            While .Busy = True
                Threading.Thread.Sleep(2000)
            End While
            For Each i As mshtml.IHTMLElement In DocElements
                If i.getAttribute("name") IsNot Nothing AndAlso i.getAttribute("type") IsNot Nothing Then
                    Dim NameStr As String = i.getAttribute("name") ' Busca valor no atributo: "name"
                    Dim Name_type As String = i.getAttribute("type") '' Busca valor no atributo: "type"

                    Select Case NameStr
                        Case Me.TextBox2.Text, Me.TextBox4.Text ' Tenta comparar os valores alojados nas variáveis com os das TextBox

                            MsgBox("valor name_1 e type_1 iguais ás Textbox")
                        Case Me.TextBox6.Text, Me.TextBox5.Text

                            MsgBox("valor name_1 e type_1 iguais ás Textbox")


                    End Select
                End If
            Next
        End With
    End Sub  


Grato desde já pela vossa atenção.
Programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


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


Tópico encerrado, respostas não sao permitidas
Encerrado por PROGRAMADORVB6 em 14/07/2014 16:46:03