1,451
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Picture1.ScaleMode = 3 '把容器内部的坐标系单位设置成像素
Picture1.AutoRedraw = True
Set Picture1.Picture = LoadPicture("B:\test.jpg") '导入一张测试图片
Dim x As Long
Dim y As Long
For x = 0 To Picture1.ScaleWidth / 2 '遍历图片左半边的所有像素
For y = 0 To Picture1.ScaleHeight
'逐个像素取色,然后取反,做出底片效果
Picture1.PSet (x, y), Not Picture1.Point(x, y)
DoEvents
Next
Next
End Sub