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
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
