picturebox 显示图片?

[lyj0913]

怎样在 把一张图片的左上角显示在 picturebox 中的 (10,10) 这个坐标的位置

[yangzhaoyu]

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
Const SRCCOPY = &HCC0020


Private Sub Command1_Click()
a = BitBlt(Picture1.hDC, 10, 10, 100, 50, Picture2.hDC, 0, 0, SRCCOPY)
End Sub

[lyj0913]

我不想用 Api 函数实现,怎么办?

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-14
'Description:要试用本例请在窗体中填加两个图片框和一个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Picture, 100, 100
End Sub