Hallo,
ich bin grade dabei meinem Programm den letzten schliff zu verpassen (AutoUpdate etc.), dabei will ich
meine Application.Productversion in einem Label ausgeben. Funktioniert auch ganz gut nur gibt er diese als ganze Zahl (1000) aus und nicht wie ich sie will als 1.0.0.0.
Lg
hablais
ich bin grade dabei meinem Programm den letzten schliff zu verpassen (AutoUpdate etc.), dabei will ich
meine Application.Productversion in einem Label ausgeben. Funktioniert auch ganz gut nur gibt er diese als ganze Zahl (1000) aus und nicht wie ich sie will als 1.0.0.0.
VB.NET-Quellcode
- My.Computer.Network.DownloadFile("***Censored by Online Link Zensur***", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\version.ini", "", "", False, 60000, True)
- Dim MeineVersion As Integer = CInt(Application.ProductVersion)
- Dim ServerVersion As Integer = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\version.ini")
- If ServerVersion > MeineVersion Then
- Me.Label2.Text = "Es ist ein Update Verfügbar"
- End If
- If ServerVersion <= MeineVersion Then
- Me.Label2.Text = "Es ist kein Update Verfügbar"
- End If
- If ServerVersion <= MeineVersion Then
- Button1.Enabled = False
- End If
- Me.Label1.Text = MeineVersion 'hier schreibt er anstatt 1.0.0.0 , 1000 hin
- End Sub
Lg
hablais