纵向扫描图像 Private Sub Command2 Click On Error resume next Picture2 CIs Dim cstep, 1, cnum As Long Picture2 Width= Picture1 Width Picturel. Height- Picture l Height cstep=20 cnum=Picture l ScaleHeight/cstep For i=0 To cnum Step 2 Picture2 PaintPicture Picture1,, i*cstep, Picture1 Width, cstep, 0 i*cStep, Picture l Width, cstep, VBSrcCopy Forj=0 To 50000 Next ext 1 For i=I To cnum Step 2 Picture2 PaintPicture Picture1,, 1*cstep, Picture1 Width, cstep, O 1*cStep, Picturel Width, cstep, VBSrcCopy For j=0 To 50000 Next End Sub‘纵向扫描图像 Private Sub Command2_Click() On Error Resume Next Picture2.Cls Dim cstep, i, cnum As Long Picture2.Width = Picture1.Width Picture1.Height = Picture1.Height cstep = 20 cnum = Picture1.ScaleHeight / cstep For i = 0 To cnum Step 2 Picture2.PaintPicture Picture1, 0, i * cstep, Picture1.Width, cstep, 0,_ i * cstep, Picture1.Width, cstep, VBSrcCopy For j = 0 To 50000 Next j Next i For i = 1 To cnum Step 2 Picture2.PaintPicture Picture1, 0, i * cstep, Picture1.Width, cstep, 0,_ i * cstep, Picture1.Width, cstep, VBSrcCopy For j = 0 To 50000 Next j Next i End Sub