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:
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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 339407
Url: https://administrator.de/contentid/339407
Ausgedruckt am: 23.11.2024 um 21:11 Uhr
6 Kommentare
Neuester Kommentar
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
Icon kaputt/inkompatibel ?!
Was sagt ein
Gruß v.
Was sagt ein
- pb_Ping.Refresh()
- pb_Ping.Update()
Gruß v.