怎样让图片在调用时放大或缩小

[VbKing]

我做程序时把一张二进制的800X600图片放到数据库中，我想在1024X768的分辨率的显示器用时，用PictureBOX控件让图片放大1.28倍。怎样实现？

[lxcc]

Declare Function StretchBlt Lib "gdi32" (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

Private Sub Command1_Click()
Dim w As Integer, h As Integer

Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height

StretchBlt Me.hdc, 0, 0, w * 1.28, h * 1.28, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub

[射天狼]

PAINTPICTURE函数也可以实现~~