Dim webrq As System.Net.WebRequest
Dim mycallback As System.Drawing.Image.GetThumbnailImageAbort
Dim picOriginalHeight, picOriginalWidth As Double
Dim picNewHeight, picNewWidth As Double
webrq = System.Net.WebRequest.Create("[URL unfurl="true"]http://200.0.0.85/cgi-bin/outjpeg?szA&"[/URL] & Math.Floor(Rnd() * 100000000) & "&1280&960&&100&100")
Me.frmTempImage.Image = Image.FromStream(webrq.GetResponse().GetResponseStream())
Me.frmTempImage.picImage.Visible = True
Me.dtAnalysis.Rows(0).Item("path image fiber") = Docmd.CaseDirectory(cmbcasenumber.Text) & "Microscopie\" & TxtOs_Id.Text.Replace("/", "_") & ".jpg"
PictureBox1.Visible = True
picOriginalHeight = Me.frmTempImage.Image.Height
picOriginalWidth = Me.frmTempImage.Image.Width
If picOriginalHeight > picOriginalWidth Then
If picOriginalHeight > 150 Then
picNewHeight = 150
picNewWidth = picOriginalWidth / picOriginalHeight * 150
End If
Else
If picOriginalWidth > 150 Then
picNewWidth = 150
picNewHeight = picOriginalHeight / picOriginalWidth * 150
End If
End If
PictureBox1.Image = Me.frmTempImage.Image.GetThumbnailImage(Int(picNewWidth), Int(picNewHeight), mycallback, System.IntPtr.Zero)
PictureBox1.Image = PictureBox1.Image
PictureBox1.Top = (150 - picNewHeight) / 2
Local_BolChange(True)