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的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了 ......
VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
在vb中怎么判断,插入到数据库中的值是重复的,本人才刚接触VB语言,甚是有好多地方还不懂,还请各位大侠们给出代码,谢谢了呀!!!
插入之前select一下阿。
或者写一个组合SQL插入语句,例如
IF not Exist(
& ......