Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú For Each ele As HtmlElement In WebBrowser1.Document.Links
Dim eletarget As String = ele.GetAttribute("href")
ListBox1.Items.Add(eletarget)
Next
Imports System.IO
Imports System.Net
Imports System.Text
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
LoadWebImageToPictureBox(PictureBox1, "https://encrypted-tbn0.google.com/images?q=tbn:ANd9GcTtN-EfxQPzx5ZJNoxOgZW14Pnml5-JYaI_ZheLQcBiOPcMqNgP6w")
End Sub
Public Function LoadWebImageToPictureBox(ByVal pb As PictureBox, ByVal ImageURL As String) As Boolean
Dim objImage As MemoryStream
Dim objwebClient As WebClient
Dim sURL As String = Trim(ImageURL)
Dim bAns As Boolean
Try
If Not sURL.ToLower().StartsWith("https://") Then sURL = "https://" & sURL
objwebClient = New WebClient()
objImage = New _
MemoryStream(objwebClient.DownloadData(sURL))
pb.Image = Image.FromStream(objImage)
bAns = True
Catch ex As Exception
MsgBox(ex.Message)
bAns = False
End Try
Return bAns
End Function