用vb对图像进行 镜像处理

3星(超过75%的资源)
所需积分/C币:10 2011-06-11 16:39:08 67KB APPLICATION/X-RAR
25
收藏 收藏
举报

vb 镜像处理 Dim c As Long, x As Integer, y As Integer Private Sub command1_Click() Picture2.Cls For i = 0 To Picture1.ScaleWidth - 1 For j = 0 To Picture1.ScaleHeight - 1 c = Picture1.Point(i, j) x = i y = Picture1.ScaleHeight - j Picture2.PSet (x, y), c Next j Next i End Sub Private Sub Command2_Click() Picture2.Cls For i = 0 To Picture1.ScaleWidth - 1 For j = 0 To Picture1.ScaleHeight - 1 c = Picture1.Point(i, j) x = Picture1.ScaleWidth - i y = j Picture2.PSet (x, y), c Next j Next i End Sub Private Sub Command3_Click() Picture2.Cls For i = 0 To Picture1.ScaleWidth - 1 For j = 0 To Picture1.ScaleHeight - 1 c = Picture1.Point(i, j) Picture2.PSet (Picture1.ScaleWidth - i, Picture1.ScaleHeight - j), c Next j Next i End Sub Private Sub Form_Load() Picture1.ScaleMode = 3 Picture2.ScaleMode = 3 End Sub

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
cch900122 还行,可以借鉴!
2013-12-06
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
关注 私信
上传资源赚钱or赚积分
最新推荐
用vb对图像进行 镜像处理 10积分/C币 立即下载
1/0