请问如何让图片来适应picturebox的大小...

Question

用api函数stretchblt(),具体参数查查MSDN

Answer 1

你可以将picturebox的autosize属性设为true
试试看把
good luck to you

Answer 2

PaintPicture
也可以用StretchBlt，不过记得要SetStretchMode
【函数】
StretchBlt【操作系统】
Win9X:Yes
WinNT:Yes【声明】
StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long【说明】  将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容。这个函数会在设备场景中定义一个目标矩形，并在位图中定义一个源图象。源矩形会根据需要进行伸缩，以便与目标矩形的大小相符 【返回值】  Long，非零表示成功，零表示失败。会设置GetLastError 【其它】  可用GetDeviceCaps函数判断特定的设备场景是否支持此函数
  不可选择对源位图进行剪切或旋转处理，源位图也不能是一个图元文件设备场景【参数表】
  hdc ------------  Long，目标设备场景  x,y ------------  Long，目标矩形左上角的x,y坐标，以逻辑坐标表示  nWidth,nHeight -  Long，目标矩形的宽度和高度，以逻辑坐标表示  hSrcDC ---------  Long，源设备场景。如光栅运算未指定一个源，则这个参数应为零  xSrc,ySrc ------  Long，用源DC的逻辑坐标表示的源矩形左上角位置  nSrcWidth,nSrcHeight -  Long，分别指定用逻辑单位（以源DC为基础）传输的一幅图象的宽度和高度。如其中有一个参数的符号（指正负号）与对应的目标参数不符，位图就会在对应的轴上作镜像转换处理  dwRop ----------  Long，传输过程中进行的光栅运算。如刷子属于光栅运算的一部分，就使用选入目标DC的刷子
--------------------------------------------------------------------
【函数】
SetStretchBltMode【操作系统】
Win9X:Yes
WinNT:Yes【声明】
SetStretchBltMode Lib "gdi32" Alias "SetStretchBltMode" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long【说明】  指定StretchBlt 和 StretchDIBits函数的伸缩模式。这种伸缩模式定义了Windows如何对伸缩过程中剔除的扫描线进行控制。对于VB窗体和控件，倘若在API绘图过程中使用这个函数，建议恢复原来的StretchBlt模式 【返回值】  Long，上一次伸缩模式的值，零表示失败 【其它】  如果要对伸缩模式有一个更深刻的印象，可想象一下对白色图象中的一条白色细线进行压缩。压缩过程中，像素会从图象中删去。为避免线段消失，在删除它们之前，有必要先对线段中的像素与邻近像素进行AND运算。为达到这个目的，应考虑选用STRETCH_ANDSCANS伸缩模式【参数表】
  hdc ------------  Long，设备场景的句柄  nStretchMode ---  Long，新伸缩模式建立在下述任何一个常数的基础上，它们均在API32.TXT文件中得到了定义：
  STRETCH_ANDSCANS
  默认设置。剔除的线段与剩下的线段进行AND运算。这个模式通常应用于采用了白色背景的单色位图
  STRETCH_DELETESCANS
  剔除的线段被简单的清除。这个模式通常用于彩色位图
  STRETCH_ORSCANS
  剔除的线段与剩下的线段进行OR运算。这个模式通常应用于采用了白色背景的单色位图
  STRETCH_HALFTONE
  目标位图上的像素块被设为源位图上大致近似的块。这个模式要明显慢于其他模式
--------------------------------------------------------------------
欢迎使用Fantasia Photo(http://3rdapple.51.net/FantasiaPhoto.htm)
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)

Answer 3

Call StretchBlt(frmView.Picture1.hdc, 0, 0, Lw, Lh, hDc5, Lt / xRate / pChangeType, Ll / yRate / pChangeType, Lw, Lh, SRCCOPY)
        frmView.Picture1.Refresh
hDc5：内存图象，别的就不用说了

Answer 4

Private TempPic as IPictureDispPrivate Sub Form_Load()
    Set TempPic=LoadPicture(……)
End SubPrivate Sub Form_UnLoad()
    Set TempPic=Nothing
End Sub
Private Sub Picture1_Paint()
    Picture1.PaintPicture TempPic, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
    
End Sub