易截截图软件、单文件、免安装、纯绿色、仅160KB

VB-已经知道不规则图像的坐标,怎么求得边界点

VB-已经知道不规则图像的坐标,怎么求得边界点

我希望对边界点颜色进行处理,需要获得边界1像素的所有点、边界2像素的所有点、边界3像素的所有点、......

请问怎么获取?我大致的思路是:获取图像重心坐标,然后根据其他点的坐标进行判断他们外围点是否为空,但是我发现这种方法好像不是很好,比较慢,特别当2像素和3像素等非常麻烦,请问有什么其他方法,直接获取?

我大致代码大家看看:

VB code:

Form1.ScaleMode = 3
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3

Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

tt = Timer
Do
DoEvents
Loop Until Abs(tt - Timer) > 0.1


myWidth = Picture1.Width
myHeight = Picture2.Height

Dim ys As Long
Dim Pix As Long

ys = Picture1.Point(2, 2)

Dim lin_ys As Long
Dim my_ys()
ReDim my_ys(myWidth + 1000, myHeight + 1000)

qishi_du = 0.2 '边界最开始的透明度,0表示完全透明,1表示不透明
xiangsu_shu = 5 '边界多少像素可以需要透明度

Dim n1, n2
Dim zhongX, zhongY, zongshu '重心点坐标
'一行行处理
For h = 1 To myHeight
'从左边到图片位置
n1 = -1
For w = 1 To myWidth
Pix = Picture1.Point(w, h)
If Pix = -1 Then
ElseIf Pix <> ys Then
n1 = w


相关问答:

asp.net(vb)问题

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

请好心人帮我把VB源码转为VB.NET~

希望大家能够帮我下.感谢了..


源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html

转为VB.NET源码.

小弟完全是新手 不懂的说.麻烦各位帮忙一下

我的EMAIL是:4452 ......

vb查询数据库问题

怎么优化查询的效率,比如我想从100万条记录中每次只查询100条记录的话,那么这条sql语句该怎么实现,注意:语言是VBScript的,
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

涉及到算法,goog ......

VB 请教高手关于用户控件问题

我制作了个用户控件,需要动态加载到窗体上

    Set objExt = Controls.Add("工程1.meActiveX", argName)
    objExt.Visible = True

程序一次能加载N个, 现在想对 ......

vb控制GPRS MODEM拨号

我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习

我来顶

顶贴

LZ好厉害

不顶不行

老是排MP
引用
LZ好厉害
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号