你的意思是不是要保存在picturebox控件 上啊Private Sub Command1_Click() Dim i As Integer Set Picture1.Picture = LoadPicture("f:\YourFriendship.JPG") Picture1.AutoRedraw = True For i = 0 To 10 Picture1.Print "asdfasdf" Next Set Picture1.Picture = Picture1.Image Picture1.AutoRedraw = False End Sub
Dim i As Integer
Set Picture1.Picture = LoadPicture("f:\YourFriendship.JPG")
Picture1.AutoRedraw = True
For i = 0 To 10
Picture1.Print "asdfasdf"
Next
Set Picture1.Picture = Picture1.Image
Picture1.AutoRedraw = False
End Sub
MSDN都有的啊。