gabrixl
Goto Top

Wieso wird das Bild in der PictureBox nicht angezeigt?

Hallo Zusammen

Folgendes Problem:
Bin momentan mit VB.net am rumexperimentieren und habe folgenden Code geschrieben:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Ping.Click
        Try
            Dim success = My.Computer.Network.Ping(txtb_Device.Text)
            If success = True Then
                pb_Ping.Image = Image.FromFile(path & "\PictureSrc\Success.ico")  
                Dim strIPAdress = System.Net.Dns.GetHostByName(txtb_Device.Text).AddressList(0).ToString()
                lbl_IP.Text = strIPAdress
            End If
        Catch
            pb_Ping.Image = Image.FromFile(path & "\PictureSrc\Failed.ico")  
            lbl_IP.Text = "Failed"  
        End Try
    End Sub

Soweit funktioniert alles, nur im "Catch" wird das Bild nicht gesetzt oder geändert. Das Label "lbl_IP" wird wie gewollt auf "Failed" gesetzt und im "Try" wird das Bild ebenfalls wie gewollt gesetzt.

Was mache ich falsch? (Pfad stimmt)

Vielen Dank für eure Hilfe


Freundliche Grüsse

Content-Key: 339407

Url: https://administrator.de/contentid/339407

Printed on: April 19, 2024 at 07:04 o'clock

Member: emeriks
emeriks May 31, 2017 at 09:51:00 (UTC)
Goto Top
Hi,
woher kommt "path"?

Und mit welcher Exception landet er im "Catch"?

E.
Member: gabrixl
gabrixl May 31, 2017 at 11:17:13 (UTC)
Goto Top
Hi,
Path ist als globale Variable, also direkt nach dem die Klasse eröffnet wird.

Naja hab einfach bemerkt das es ein Error geben kann wenn er einen Hostnamen pingt welchen er nicht finden kann,
also dachte ich mir ich mach ein Try Catch darum (ohne bestimmte Parameter) da ich keine Ahnung hab davon...

Freundliche Grüsse
Member: emeriks
emeriks May 31, 2017 updated at 11:22:51 (UTC)
Goto Top
Mach doch mal um Zeile 10 nochmal eine Try-Catch. Bringt er dort eine Exception?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Ping.Click
        Try
            Dim success = My.Computer.Network.Ping(txtb_Device.Text)
            If success = True Then
                pb_Ping.Image = Image.FromFile(path & "\PictureSrc\Success.ico")  
                Dim strIPAdress = System.Net.Dns.GetHostByName(txtb_Device.Text).AddressList(0).ToString()
                lbl_IP.Text = strIPAdress
            End If
        Catch
            Try
               pb_Ping.Image = Image.FromFile(path & "\PictureSrc\Failed.ico")  
            Catch Ex as Exception
               Msgbox Ex.ToString
            End Try
            lbl_IP.Text = "Failed"  
        End Try
    End Sub
Member: gabrixl
gabrixl May 31, 2017 at 11:54:13 (UTC)
Goto Top
Nein..
Mitglied: 133417
Solution 133417 May 31, 2017 updated at 11:57:27 (UTC)
Goto Top
Icon kaputt/inkompatibel ?!

Was sagt ein
  • pb_Ping.Refresh()
oder
  • pb_Ping.Update()
nach dem Setzen?

Gruß v.
Member: gabrixl
gabrixl May 31, 2017 at 12:06:39 (UTC)
Goto Top
Hat nichts gebracht, lag aber anscheinend an der Datei, das Icon zuvor hatte die selben Eigenschaften, wollte aber irgendwie nicht... Habe jetzt ein anderes genommen welches das genau gleiche Format hat... Seltsam.

Danke an euch beiden für die Hilfe

Gruss