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
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
我想做个用vb6做的程序，可以控制GPRS MODEM拨号，如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下，不过在宁波
可惜我也不在杭州
北京的行不？
我在苏州， ......
