Code Snippet
Public Sub printPic(ByVal response As SearchResponse)
' Create a new StringBuilder to accumulate the text to be displayed in the WebBrowser
' control when the search is complete and all results are returned.
Dim sb As New StringBuilder()
sb.EnsureCapacity(8000)
Dim result As ImageResult
' Set up the HTML tags for the output returned from the search.
sb.Append(
"<HTML><BODY>")
sb.Append(
"<style>body {margin: 0px; padding: 0px; left: 0px; top: 0px; font-size:13px; font-family: Verdana, Arial, Helvetica, sans-serif;}")
sb.Append(
"a {font-family: Verdana; color: #006699; text-decoration: none; }")
sb.Append(
"a:hover {text-decoration: underline;}")
sb.Append(
"IMG {border:0px;}")
sb.Append(
"</style>")
With response
' Using foreach, loop through all the SourceResponses in the SearchResponse.
For Each result In response.Image.Results
With result
sb.Append(
"<CENTER>" + .MediaUrl + "</CENTER><br>")
sb.Append(
"<CENTER><IMG SRC=""" + .MediaUrl + """/></CENTER>")
imgurl = .MediaUrl
myImage = LoadImageFromUrl(imgurl)
End With
Next
End With
' Close the BODY and HTML tags.
sb.Append(
"</BODY></HTML>")
' Set the text of the WebBrowser control to the HTML contained in the StringBuilder.
WebBrowser1.DocumentText = sb.ToString
End Sub
