PictureBox anzeigen lassen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    PictureBox anzeigen lassen

    Hey Community,

    ich habe eine PictureBox auf meinem Dialog, die auf einen Button-Click gezeitg werden soll, und danach sollen Dateien geschrieben, hochgeladen und gelöscht werden. Leider wird die PictureBox nicht angezeigt, ohne das Uploaden etc. schon. Nun würde ich gerne mal wissen, wie ich das hibekommen kann , dass die PictureBox angezeigt wird.


    Mfg

    El3ctro

    VB.NET-Quellcode

    1. Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. PictureBox1.Visible = False
    3. End Sub
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. PictureBox1.Visible = True
    11. Benutzername = TextBox1.Text
    12. Passwort = TextBox2.Text
    13. Passwort2 = TextBox3.Text
    14. email = TextBox4.Text
    16. ' Prüfen ob alle Felder ausgefüllt sind und Passwort richtig 2 mal eingegeben wurde
    17. If Benutzername = "" Or Passwort = "" Or Passwort2 = "" Or email = "" Then
    18. MsgBox("Sie haben nicht alle Felder ausgefüllt, tun Sie dies bitte!")
    19. Else
    21. If TextBox2.Text = TextBox3.Text Then
    22. Try
    24. ' Schreiben der Daten in einer txt-Datei (lokal)
    25. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", TextBox1.Text, True) ' Benutzername
    26. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", TextBox2.Text, True) ' Passwort
    27. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", TextBox4.Text, True) ' E-Mail Adresse
    28. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "1", True) '
    29. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "****.txt", "offline", True)
    30. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "10000", True)
    31. My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "+.txt", "0", True)
    34. My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "ftp://www14.subdomain.com/" & TextBox1.Text & "*.txt", "", "")
    36. My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "ftp://www14.subdomain.com/" & TextBox1.Text & "*.txt", "", "")
    38. My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "ftp://www14.subdomain.com/" & TextBox1.Text & "*.txt", "", "")
    40. My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "ftp://www14.subdomain.com/" & TextBox1.Text & "*.txt", "", "")
    42. My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt", "ftp://www14.subdomain.com/" & TextBox1.Text & "*.txt", "", "")
    46. ' Löschen der txt-Datei (lokal)
    47. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt")
    48. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "Passwort.txt") ' Passwort - Löschung
    49. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt")
    50. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt")
    51. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt")
    52. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*txt")
    53. My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox1.Text & "*.txt")
    55. 'Dialog schließen
    56. PictureBox1.Visible = False
    57. MsgBox("Account erfolgreich erstellt!")
    58. Me.Close()
    60. Catch ex As Exception
    61. MsgBox("Registrierung fehlgeschlagen! Überprüfen Sie bitte die Aktivität ihrer Internetverbindung! Falls diese besteht, wennden Sie sich bitte an den Support!")
    62. End Try
    63. Else
    64. MsgBox("Die beiden Passwörter stimmen nicht überein!")
    66. End If
    67. End If
    68. End Sub

    In Multi-Tutorial wird MultiThreading mit asynchronen Methoden des WebRequests angewandt - zwar zum Download, aber WebRequest kann auch Upload.
    Auch bei dir käme ForkJoin-Threading in Frage, denn die 5 Dateien könnteste parallel auf den Weg bringen.

    Aber ist ziemlich anspruchsvoll, mit dem ganzen drumrum.

    Ah - ja.

    Den TryCatch müssteste in eine eigene Methode DoUpload() auslagern. die könntestedann so aufrufen:

    VB.NET-Quellcode

    1. dim dlgUpload = Directcast(addressof DoUpload, Action)
    2. dlgUpload.BeginInvoke(addressof dlgUpload.EndInvoke, nothing)
    (ungetestet)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook