zskllj进来，简单小问题！

Question

改成
    Me.PaintPicture Picture1.Picture, px + 10, py + 10, Picture1.ScaleWidth, Picture1.ScaleHeight, vbBlackness

Answer 1

Private Sub Form_Paint()
Form1.PaintPicture Picture1, px + 10, py + 10, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, , , vbBlackness   '  ****抱错行~~~~*****End Sub

Answer 2

Form1.PaintPicture 的第一个参数应该是
Dim aaa As New StdPicture
的对象

Answer 3

to gump2000(阿甘) (  ) and vivan19781111(vivan kaizi)
虽然你的运行对了，却不是我要得效果~zskllj(我爱豆豆) ,不懂~~~~
讲明白点。呵呵，你的信誉值才90，比我还低，乐死了~~~~`：）

Answer 4

Dim aa As New StdPicture
Set aa = Picture1.Picture
Form1.PaintPicture aa, px + 10, py + 10, , , , , , , vbSrcCopy
最后一个参数应该是位图的操作方式

Answer 5

Dim aa As New StdPicture
Set aa = Picture1.Picture
Form1.PaintPicture aa, px + 10, py + 10, , , 0, 0, , , vbSrcCopy
最后一个参数是位图的操作方式
如:
vbSrcCopy
vbSrcAnd
...
等

Answer 6

看我的
Dim px As Single
Dim py As Single
Private Sub Form_Load()
px = Picture1.Left
py = Picture1.Top
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim aa As New StdPicture
Set aa = Picture1.Picture
Picture1.PaintPicture aa, 0, 0, , , , , , , vbSrcCopy
End SubPrivate Sub Picture1_Click()
MsgBox "The bottom is already clicked"
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height), , BF
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim aa As New StdPicture
Set aa = Picture1.Picture
Picture1.PaintPicture aa, 0, 0, , , 10, 10, , , vbSrcCopyEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height), , BF
End Sub

Answer 7

你的程序是运行正常，可是和书上讲的效果不一样~~~~
不过到和gump2000(阿甘) (  ) and vivan19781111(vivan kaizi)改的效果一样`~~~~~~~`：（