Bonjour à Tous,
je suis nouveau et surtout débutant.

je développe un petit programma avec VB .NET (VS 2008), dans le quel j'ai un Form pour la recherche de mise à jour

j'utilise un fichier XML que j'arrive à parser et récupérer la valeur du noeud "Version" que j'assigne à une variable newVer
quand je compare cette variable à celle qui stock la version en cours j'ai toujours le même résultat quelques soient les valeurs (identique ou pas)

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Class Updater
 
    Public curVer As String = My.Application.Info.Version.ToString
 
    Public newVer As String = ""
 
    Public Sub Updater_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getVer(curVer, newVer)
        lblUpdate.Text = "Recherche des mises à jour en cours..."
        okButton.Enabled = False
        majButton.Enabled = False
        Dim r As Boolean = String.Compare(curVer, newVer)
        If r = False Then
            lblUpdate.Text = "Une mise à jour est disponible version:" + newVer
            majButton.Enabled = True
        Else  
            lblUpdate.Text = "Vous disposez déjà de la dernière version:" + curVer
            okButton.Enabled = True
        End If
 
    End Sub
 
    Public Function getVer(ByVal curVer, ByVal newVer)
        Dim XmlDoc As Xml.XmlDocument = New Xml.XmlDocument()
        XmlDoc.Load("http://www.monsite.com/downloads/last_version.xml")
        Dim element As Xml.XmlNodeList
        Dim noeudEnf As Xml.XmlNode
        element = XmlDoc.DocumentElement.GetElementsByTagName("version")
        For Each noeudEnf In element
            If noeudEnf.LocalName = "version" Then
                newVer = noeudEnf.InnerText.ToString
                MsgBox(curVer & "-" & newVer) ' ################# Jusqu'à ici c'est bon, les valeurs affiché son les bons ##############
            End If
        Next
        Return newVer
    End Function
 
    Public Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okButton.Click
        Me.Close()
    End Sub
 
    Public Sub majButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles majButton.Click
        Try
            System.Diagnostics.Process.Start("http://www.monsite.com/downloads/Setup.exe")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Me.Close()
    End Sub
Merci pour la lecture et l’éventuelle aide