vb的识别像素点颜色

絮语y 2019-06-16 03:42:45
VB用point识别picture像素点颜色,需要调整哪些属性? picture控件的高和宽是以像素点为单位的么?
...全文
356 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
脆皮大雪糕 2019-06-17
  • 打赏
  • 举报
回复
给你个案例,对一张图片的左半边进行处理


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

笨狗先飞 2019-06-16
  • 打赏
  • 举报
回复
默认以缇为单位,15缇=1像素 ScaleHeight和ScaleWidth是内部可用区域的高和宽 Height和Width是外部整体的高和宽 两者区别就是边框大小是否考虑进来。

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧