Ta上传的资源 (0)

vb镜像处理DimcAsLong,xAsInteger,yAsIntegerPrivateSubcommand1_Click()Picture2.ClsFori=0ToPicture1.ScaleWidth-1Forj=0ToPicture1.ScaleHeight-1c=Picture1.Poin