Error-Meldung bei anderem PC

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von linuxsuse.

    Error-Meldung bei anderem PC

    Hallo! Ich habe ein Problem und zwar: Ich habe ein Programm erstellt und wenn man auf einen Button klickt, wird im Internet in einer Datei auf Dropbox eine Zahlenreihe verglichen. Wenn sie größer als die die auf einem Label ist, kommt eine Meldung das ein Update verfügbar ist und eine neue Form öffnet sich! Wenn sie gleich ist, kommt das die Software auf dem neusten Stand ist!
    Als ich das Programm Debuggt habe, war alles OK und es kam kein Error! Dann Teste ich die Software auf einem anderen Pc (auf diesem war VB10 auch installiert) und alles klappte! Aber als ich die Software auf einem Pc OHNE VB10 startete (.Net-Framework 4.0 ist installiert) kam, als ich auf den Button klickte, eine Errormeldung:
    Was soll ich jetzt machen?
    Code:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. Dim Web As New Net.WebClient
    4. Dim Version As Integer = Web.DownloadString("Hier ist halt ein Dropboxlink")
    5. If Version > CInt(Label3.Text) Then
    6. MsgBox("Neue Version erhältlich!")
    7. Form4.Show()
    8. ElseIf Version = CInt(Label3.Text) Then
    9. MsgBox("Das Programm ist auf dem neusten Stand!")
    10. End If
    12. End Sub

    Kann es auch an den Elementen in der anderen Form liegen?
    Code der Form, die sich öffnet:

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form4
    4. Public WithEvents downloader As WebClient
    5. Private Sub Update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Dim Web As New Net.WebClient
    7. Dim Version As Integer = Web.DownloadString("Dropboxdatei")
    8. Label1.Text = "Sie benutzen momentan die Version " + "<" + Form2.Label3.Text + ">"
    9. Label3.Text = Version
    11. End Sub
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. MsgBox("Ich verbreite diese Programm nicht ohne Erlaubnis weiter")
    15. End Sub
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    18. If RadioButton1.Checked And CheckBox1.Checked Then
    19. Dim theWebSite As String
    20. theWebSite = "Eine Website"
    21. Call Shell("explorer.exe " & theWebSite, vbNormalFocus)
    22. End If
    24. If RadioButton2.Checked And CheckBox1.Checked Then
    26. FolderBrowserDialog1.ShowDialog()
    27. Label6.Text = FolderBrowserDialog1.SelectedPath & "\install.exe"
    28. downloader = New WebClient
    29. downloader.DownloadFileAsync(New Uri(Label7.Text), Label6.Text)
    35. End If
    37. End Sub
    38. Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
    39. ProgressBar1.Value = e.ProgressPercentage
    40. End Sub
    42. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    43. If ProgressBar1.Value = 100 Then
    44. Button3.Visible = True
    45. Button2.Enabled = False
    46. End If
    48. End Sub
    50. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    51. MsgBox("Bevor der Installation bitte beenden!")
    52. Process.Start(FolderBrowserDialog1.SelectedPath & "\install.exe")
    53. End
    54. End Sub
    55. End Class

    linuxsuse schrieb:

    Ich hab mir auch schon ein VB-Einsteiger Buch gekauft!
    (irgend-)ein Einsteigerbuch ist u.U. eine sehr schlechte Wahl. dieses Buch Lesen (am besten die 2005er - Version).

    Es ist so: Wenn Proggen dein Hobby sein soll, dann geht kein Weg vorbei an solidem Grundlagenwissen. "Ich will nur, dasses läuft" - das nennt man quick & dirty - google mal den Begriff.

    Um (neben den sicher gut gemeinten Ratschlägen) mal aufs Thema zurück zu bekommen...

    Du müsstest irgendwann mal gesagt haben "Add Reference", wenn du dies getan hast, kannst du diese in deinem Projekt sehen. Die entsprechende DLL (als Verweiß, nicht einsehbar idR).
    Du musst dann noch sagen, das diese Assembly Lokal kopiert werden soll, so dass diese auch beim Endanwender auf dem Rechner landet.
    Bilder

    • add reference.png

      14,35 kB, 325×380, 91 mal angesehen

    ErfinderDesRades schrieb:

    linuxsuse schrieb:

    Ich hab mir auch schon ein VB-Einsteiger Buch gekauft!
    (irgend-)ein Einsteigerbuch ist u.U. eine sehr schlechte Wahl. dieses Buch Lesen (am besten die 2005er - Version).

    Es ist so: Wenn Proggen dein Hobby sein soll, dann geht kein Weg vorbei an solidem Grundlagenwissen. "Ich will nur, dasses läuft" - das nennt man quick & dirty - google mal den Begriff.


    Ich hab mir das gekauft!

    linuxsuse schrieb:

    Ich hab mir das gekauft!
    Nur vom schnellen Hinsehen:
    Fehlinvestition :?:
    Nachdem Du da 4 Mal reingesehen hast, wirst Du es wohl nicht mehr anfassen. :S
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende