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
Please also mark the comments that contributed to the solution of the article
Content-Key: 339407
Url: https://administrator.de/contentid/339407
Printed on: April 19, 2024 at 07:04 o'clock
6 Comments
Latest comment
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.