问：如果drPhoto.HasRows = True，则
同时（drPhoto.Read（）= True）将
i
设为整数，对于i = 0到drPhoto.FieldCount-1
如果i = 0，
则将texta设为字符串= Convert.ToString（drPhoto.GetValue（i ）） 如果i = 1则
结束，
则
Dim MS作为System.IO.MemoryStream =新System.IO.MemoryStream（）
Dim binData（）作为System.Byte = CType（drPhoto.GetValue（i），System.Byte（））
MS.Write（binData，0，binData.Length）
imagesrc = System.Drawing.Image.FromStream（MS）
如果System.IO.File.Exists（ImagePath和“ \ imagesrc.bmp”）= True，则
System.IO.File.Delete（ImagePath和“ \ imagesrc.bmp”）
imagesrc.Save（ImagePath和“ \ imagesrc.bmp” ，System.Drawing.Imaging.ImageFormat.Bmp）
否则
imagesrc.Save（的ImagePath＆ “\ imagesrc.bmp”，System.Drawing.Imaging.ImageFormat.Bmp）
结束如果
结束如果
下一页
端，而
否则
ptbEMPPhoto.Image = System.Drawing中.Image.FromFile（ImagePath和“ \ noimage.bmp”）
退出子
结束如果
Dim imgOrg如位图
Dim imgShow如位图
Dim g如图形
Dim splitBy，divideByH，divideByW作为Double
imgOrg = DirectCast（Bitmap.FromFile（ImagePath＆“ \ imagesrc.bmp”），Bitmap）
divideByW = imgOrg.Width /
ptbEMPPhoto.WidthdividlyByH = imgOrg.Height / ptbEMPPhoto.Height
如果dividByW> 1或divideByH> 1，则
如果dividByW> DivyByH，然后
dividBy = dividByW，
否则，
dividBy = dividByH
End如果
imgShow = New Bitmap（CInt（CDnt（CDbl（imgOrg.Width）/ divideBy）），CInt（ CDbl（imgOrg.Height）/ dividBy））
imgShow.SetResolution（imgOrg.HorizontalResolution，imgOrg.VerticalResolution）
g = Graphics.FromImage（imgShow）
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage（imgOrg，New Rectangle（0，0，CInt（CDbl（imgbl）（imgOrg.Width））） /dividBy)、CInt(CDbl(imgOrg.Height)/dividBy))、0、0、imgOrg.Width、imgOrg.Height、GraphicsUnit.Pixel）
g.Dispose（）
其他
imgShow =新的位图（imgOrg.Width，imgOrg。高度）
imgShow.SetResolution（imgOrg.HorizontalResolution，imgOrg.VerticalResolution）
g = Graphics.FromImage（imgShow）
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage（imgOrg，新矩形（0，0，imgOrg.Width，imgOrg.Height），0，0，imgOrg.Width，imgOrg.Height，GraphicsUnit.Pixel）
g.Dispose（）
如果
ptbEMPPhoto.Image = imgShow，则结束
在将要删除图像的代码中，我得到消息“正在被另一个进程使用”，如何关闭文件，以便我可以删除它？
答：删除图片之前，请先将其卸载到图片框中。
