【文件属性】:
文件名称:用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)
网友评论
- 还行,可以借鉴!