文件名称：用vb对图像进行 镜像处理
文件大小：67KB
文件格式：RAR
更新时间：2014-07-01 10:25:48
vb 镜像处理
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
【文件预览】：
镜像处理
----Form1.frm(4KB)
----工程1.vbp(610B)
----Form1.frx(31KB)
----镜像图片.jpg(31KB)
----Thumbs.db(6KB)
----工程1.vbw(49B)