vb.net中边缘检测边缘检测函数

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.NET鼠标拖动无边框窗体改变窗体大小

在VB中，BorderStyle属性为0的窗体没有边框，并且也没有与边框相关的元素。这种窗体具有简洁、占用空间少等优点，用它可以设计出某些富有个性的窗体。但是，由于它没有标题栏，窗体不能移动，同时也不能改变大小，在某些情况下会给使用者造成一定的麻烦。本文介绍在VB中如何用API函数操作无边框窗体。

移动窗体

新建一标准工程，设置Form1的BorderStyle属性为0。此时运行程序后，无法移动窗体。为能移动窗体，在Form1的代码窗口声明下列函数和常数：

Option Explicit

Private Declare Function ReleaseCapture Lib “user32” ()AsLong

Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long,

ByVal wParam As Long, lParam As Any) As Long

Const WM_SYSCOMMAND = H112

Const SC_MOVE = HF012

在Form_MouseDown事件中输入以下代码：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer,XAs Single, Y As Single)

按下鼠标左键

If Button = vbcenterButton Then

为当前的应用程序释放鼠标捕获

ReleaseCapture

移动窗体

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

End If

End Sub

注意：此时窗体上不能放置除Shape控件以外的任何控件，否则，在被控件遮住的地方点按鼠标还是无法移动窗体。要使点按控件也能移动窗体，需再添加一个该控件的MouseDown事件过程，代码与上述过程代码相似。

改变窗体的大小

为了改变窗体的大小，需要添加一个Timer控件，以定时捕获鼠标在窗体中的位置。当鼠标位于窗体边缘时，改变鼠标的形状，以通知用户可以进行改变大小的操作。为此，将Timer控件的Interval属性设为100（即每过100毫秒检测一下鼠标位置），其他取默认值。

在Form1的代码窗口中再添加下列两个函数，并定义两个自定义变量和一个字符串变量：

取得窗体位置的函数

Private Declare Function GetWindowRect Lib “user32” (ByVal hwndAsLong, lpRect As RECT) As Long

取得鼠标位置的函数

Private Declare Function GetCursorPos Lib “user32” (lpPointAsPOINTAPI) As Long

鼠标位置变量

Private Type POINTAPI

x As Long

y As Long

End Type

窗体位置变量

Private Type RECT

center As Long

Top As Long

center As Long

Bottom As Long

End Type

所要执行的动作变量，是移动还是改变大小及从哪个方向改变大小

Dim Action As String

在Timer1控件的Timer事件过程中添加以下代码：

Private Sub Timer1_Timer()

Dim MyRect As RECT

Dim MyPoint As POINTAPI

MyRect返回当前窗口位置

Call GetWindowRect(Me.hwnd, MyRect)

MyPoint返回当前鼠标位置

Call GetCursorPos(MyPoint)

Select Case True

鼠标位于窗体左上方

Case MyPoint.x MyRect.center ＋ 5 And MyPoint.y ="" p=""

Screen.MousePointer = vbSizeNWSE

Action = “centerUp”

鼠标位于窗体右下方

Case MyPoint.x MyRect.center － 5 And MyPoint.yMyRect.Bottom － 5

Screen.MousePointer = vbSizeNWSE

Action = “centerDown”

鼠标位于窗体右上方

Case MyPoint.x MyRect.center － 5 And MyPoint.y="" p="" ＋=""

’45度双向鼠标指针

Screen.MousePointer = vbSizeNESW

Action = “centerUp”

鼠标位于窗体左下方

Case MyPoint.x MyRect.center ＋ 5 And MyPoint.yMyRect.Bottom － 5

Screen.MousePointer = vbSizeNESW

Action = “centerDown”

鼠标位于窗体左边

Case MyPoint.x MyRect.center ＋ 5

水平双向鼠标指针

Screen.MousePointer = vbSizeWE

Action = “center”

鼠标位于窗体右边热门推荐： C++程序设计之四书五经谈谈JAVA程序的反编译1 2

MyRect.center － 5

Screen.MousePointer = vbSizeWE

Action = “center”

鼠标位于窗体上方

Case MyPoint.y MyRect.Top ＋ 5

垂直双向鼠标指针

Screen.MousePointer = vbSizeNS

Action = “Up”

鼠标位于窗体下方

Case MyPoint.y MyRect.Bottom － 5

Screen.MousePointer = vbSizeNS

Action = “Down”

鼠标位于窗体其他位置

Case Else

默认鼠标指针

Screen.MousePointer = 0

Action = “Move”

End Select

End Sub

当利用SendMessage函数由系统向窗口发送改变大小的信息时，只要将上面移动窗体的语句“SendMessageMe.hwnd,WM_SYSCOMMAND, SC_MOVE, 0”中的第3个参数改为相应的常数即可。

VB中HF001～HF008分别是从左、右、上、左上、右上、下、左下、右下8个方向改变窗体大小的常数。结合移动窗体的代码，将上述Form_MouseDown事件的代码综合如下（也可以把这8个常数声明为自定义常数）：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer,xAs Single, y As Single)

按下鼠标左键

If Button = vbcenterButton Then

为当前的应用程序释放鼠标捕获

ReleaseCapture

Select Case Action

Case “center”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF001, 0

Case “center”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF002, 0

Case “Up”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF003, 0

Case “centerUp”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF004, 0

Case “centerUp”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF005, 0

Case “Down”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF006, 0

Case “centerDown”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF007, 0

Case “centerDown”

SendMessage Me.hwnd, WM_SYSCOMMAND, HF008, 0

Case “Move”

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

End Select

End If

End Sub

相关问答

Q1: vb.netme.containskey方法

vb.netme.containskey方法

作用是判断Map中是否有所需要vb.net中边缘检测的键值vb.net中边缘检测，下面是具体vb.net中边缘检测的代码：

复制代码

public static void main(String[] args) {

MapString, String map = new HashMapString, String();

map.put("sf2", "111111");

map.put("s3f", "111111");

map.put("s4f", "111111");

map.put("s5f", "111111");

Boolean is = map.containsKey("f2");

if(is){

System.out.println("是有这个值的");

}else{

System.out.println("没有的");

}

Q2: 在vb.net的编程过程中,产生的错误有三种类型,分别是哪三种

vb.net的编程过程中有三种错误类型分为：

语法错误，

运行错误，

逻辑错误，

三大类情况。

Q3: vb.net高手请帮帮我看看下面这代码什么意思，详解哦，先谢了，Handles 作用是什么

在VB.Net当中,事件的"关联"是需要明显标志的,不像vb6当中,声明一个过程就是事件执行过程了

Handles用来静态"关联"一个或多个事件到一个过程

"关联"时,过程的签名必须与事件的签名相同(签名的意义请查看相关文档)

在VB.Net当中,事件也是一个对象(VB.Net当中一切皆为对象)

使用Handles时实际就相当于创建了一个对委托的实现(委托的意义请查看相关文档)

可以简单的认为,当事件被触发时,被Handles"关联"了的那些过程代码将被执行

而且,被"关联"的过程可以任意起名,不需要与事件和对象的名称相对应

上述代码如果去掉Handles 及其后面的内容,它将是一个最普通不过的过程,与其它过程没有两样,也不会有任何事件被触发时去执行这段代码,正因为加入了Handles 及其后面的一堆事件,它才会因事件被触发而被执行

说得再简单一点: 当PictureBox1.DoubleClick, PictureBox4.DoubleClick, PictureBox3.DoubleClick,PictureBox2.DoubleClick当中的任何一个事件被触发时,上述这个过程的代码都将被执行

再说说参数: sender表示触发了此事件的对象,在这里就是PictureBox1/PictureBox2/PictureBox3/PictureBox4当中的某一个,利用它能知道到底是哪个对象触发了此事件,e在这里没有用处,利用不到什么,之所以有它,是因为Object/EventArgs是.Net事件的基本签名方式,它的好处在你以后对.Net深入之后能体会到.

这些参数的值都是通过被触发的事件传递过来的,可以简单的认为[事件调用了此过程并为参数赋了值]

Q4: ASP.NET 或 PHP 图象高手来

1、首先不知道你所谓的卡通是什么样子的？

2、经过PS后（你提到了卡通效果）应该在饱和度、某点的颜色值都发生了变化，当然色深度也有可能变了。

提供一个思路：将两张图片在内存中都转化为，相同色深的位图，然后灰度处理，再然后利用边缘检测法判断边缘（这里是有局限性的，需要背景比较明显，如果背景也是图像效果不好，此法的代码在网上应该可以找到）。然后记录边缘的矩阵值，把两个做比较，设置允许差错范围（比如100边缘数据里有90个以上的值一致就认为是同一张图）

当然，在处理速度上你自己再看看二次样条、傅利叶、插值等算法吧…

哥们，你这个项目不是个小项目呀！如果真是个本科生的毕设，那个学校的老师也太牛了！如果有这个学校，我希望到那里上研！强……

补充：轮廓提取算法

/*************************************************************************

* 函数名称：

* ContourDIB()

* 参数:

* LPSTR lpDIBBits - 指向源DIB图像指针

* LONG lWidth - 源图像宽度（象素数，必须是4的倍数）

* LONG lHeight - 源图像高度（象素数）

* 返回值:

* BOOL - 运算成功返回TRUE，否则返回FALSE。

* 说明:

* 该函数用于对图像进行轮廓提取运算。

* 要求目标图像为只有0和255两个灰度值的灰度图像。

************************************************************************/

BOOL WINAPI ContourDIB(LPSTR lpDIBBits, LONG lWidth, LONG lHeight)

{

// 指向源图像的指针

LPSTR lpSrc;

// 指向缓存图像的指针

LPSTR lpDst;

// 指向缓存DIB图像的指针

LPSTR lpNewDIBBits;

HLOCAL hNewDIBBits;

//循环变量

long i;

long j;

unsigned char n,e,s,w,ne,se,nw,sw;

//像素值

unsigned char pixel;

// 暂时分配内存，以保存新图像

hNewDIBBits = LocalAlloc(LHND, lWidth * lHeight);

if (hNewDIBBits == NULL)

{

// 分配内存失败

return FALSE;

}

// 锁定内存

lpNewDIBBits = (char * )LocalLock(hNewDIBBits);

// 初始化新分配的内存，设定初始值为255

lpDst = (char *)lpNewDIBBits;

memset(lpDst, (BYTE)255, lWidth * lHeight);

for(j = 1; j lHeight-1; j++)

{

for(i = 1;i lWidth-1; i++)

{

// 指向源图像倒数第j行，第i个象素的指针

lpSrc = (char *)lpDIBBits + lWidth * j + i;

// 指向目标图像倒数第j行，第i个象素的指针

lpDst = (char *)lpNewDIBBits + lWidth * j + i;

注意要转换为unsigned char型

pixel = (unsigned char)*lpS

//取得当前指针处的像素值，rc;

//目标图像中含有0和255外的其它灰度值

// if(pixel != 255 pixel != 0)

// return FALSE;

if(pixel == 0)

{

*lpDst = (unsigned char)0;

nw = (unsigned char)*(lpSrc + lWidth -1);

n = (unsigned char)*(lpSrc + lWidth );

ne = (unsigned char)*(lpSrc + lWidth +1);

w = (unsigned char)*(lpSrc -1);

e = (unsigned char)*(lpSrc +1);

sw = (unsigned char)*(lpSrc - lWidth -1);

s = (unsigned char)*(lpSrc - lWidth );

se = (unsigned char)*(lpSrc - lWidth +1);

//如果相邻的八个点都是黑点

if(nw+n+ne+w+e+sw+s+se==0)

{

*lpDst = (unsigned char)255;

}

// 复制腐蚀后的图像

memcpy(lpDIBBits, lpNewDIBBits, lWidth * lHeight);

// 释放内存

LocalUnlock(hNewDIBBits);

LocalFree(hNewDIBBits);

// 返回

return TRUE;

}

/*************************************************************************

* 函数名称：

* TraceDIB()

* 参数:

* LPSTR lpDIBBits - 指向源DIB图像指针

* LONG lWidth - 源图像宽度（象素数，必须是4的倍数）

* LONG lHeight - 源图像高度（象素数）

* 返回值:

* BOOL - 运算成功返回TRUE，否则返回FALSE。

* 说明:

* 该函数用于对图像进行轮廓跟踪运算。

* 要求目标图像为只有0和255两个灰度值的灰度图像。

************************************************************************/

BOOL WINAPI TraceDIB(LPSTR lpDIBBits, LONG lWidth, LONG lHeight)

{

// 指向源图像的指针

LPSTR lpSrc;

// 指向缓存图像的指针

LPSTR lpDst;

// 指向缓存DIB图像的指针

LPSTR lpNewDIBBits;

HLOCAL hNewDIBBits;

// 图像每行的字节数

LONG lLineBytes;

//循环变量

long i;

long j;

//像素值

unsigned char pixel;

//是否找到起始点及回到起始点

bool bFindStartPoint;

//是否扫描到一个边界点

bool bFindPoint;

//起始边界点与当前边界点

Point StartPoint,CurrentPoint;

//八个方向和起始扫描方向

int Direction[8][2]={{-1,1},{0,1},{1,1},{1,0},{1,-1},{0,-1},{-1,-1},{-1,0}};

int BeginDirect;

// 计算图像每行的字节数

lLineBytes = WIDTHBYTES(lWidth * 8);

// 暂时分配内存，以保存新图像

hNewDIBBits = LocalAlloc(LHND, lLineBytes * lHeight);

if (hNewDIBBits == NULL)

{

// 分配内存失败

return FALSE;

}

// 锁定内存

lpNewDIBBits = (char * )LocalLock(hNewDIBBits);

// 初始化新分配的内存，设定初始值为255

lpDst = (char *)lpNewDIBBits;

memset(lpDst, (BYTE)255, lLineBytes * lHeight);

//先找到最左上方的边界点

bFindStartPoint = false;

for (j = 0;j lHeight !bFindStartPoint;j++)

{

for(i = 0;i lWidth !bFindStartPoint;i++)

{

// 指向源图像倒数第j行，第i个象素的指针

lpSrc = (char *)lpDIBBits + lLineBytes * j + i;

//取得当前指针处的像素值，注意要转换为unsigned char型

pixel = (unsigned char)*lpSrc;

if(pixel == 0)

{

bFindStartPoint = true;

StartPoint.Height = j;

StartPoint.Width = i;

// 指向目标图像倒数第j行，第i个象素的指针

lpDst = (char *)lpNewDIBBits + lLineBytes * j + i;

*lpDst = (unsigned char)0;

}

//由于起始点是在左下方，故起始扫描沿左上方向

BeginDirect = 0;

//跟踪边界

bFindStartPoint = false;

//从初始点开始扫描

CurrentPoint.Height = StartPoint.Height;

CurrentPoint.Width = StartPoint.Width;

while(!bFindStartPoint)

{

bFindPoint = false;

while(!bFindPoint)

{

//沿扫描方向查看一个像素

lpSrc = (char *)lpDIBBits + lLineBytes * ( CurrentPoint.Height + Direction[BeginDirect][1])

+ (CurrentPoint.Width + Direction[BeginDirect][0]);

pixel = (unsigned char)*lpSrc;

if(pixel == 0)

{

bFindPoint = true;

CurrentPoint.Height = CurrentPoint.Height + Direction[BeginDirect][1];

CurrentPoint.Width = CurrentPoint.Width + Direction[BeginDirect][0];

if(CurrentPoint.Height == StartPoint.Height CurrentPoint.Width == StartPoint.Width)

{

bFindStartPoint = true;

}

lpDst = (char *)lpNewDIBBits + lLineBytes * CurrentPoint.Height + CurrentPoint.Width;

*lpDst = (unsigned char)0;

//扫描的方向逆时针旋转两格

BeginDirect--;

if(BeginDirect == -1)

BeginDirect = 7;

BeginDirect--;

if(BeginDirect == -1)

BeginDirect = 7;

}

else

{

//扫描方向顺时针旋转一格

BeginDirect++;

if(BeginDirect == 8)

BeginDirect = 0;

}

// 复制腐蚀后的图像

memcpy(lpDIBBits, lpNewDIBBits, lWidth * lHeight);

// 释放内存

LocalUnlock(hNewDIBBits);

LocalFree(hNewDIBBits);

// 返回

return TRUE;

}

vb.net中边缘检测的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于边缘检测函数、vb.net中边缘检测的信息别忘了在本站进行查找喔。

正文

VB.NET鼠标拖动无边框窗体改变窗体大小

相关问答

相关阅读

js关闭模态框触发事件，js关闭当前窗口

jquery处理div点击事件，jquery触发点击事件

jquery给li绑定事件，jquery slide

js中如何选取鼠标经过的地方，js的鼠标点击事件

js鼠标经过事件案例，js鼠标进入事件

jquery鼠标滑动监听，jquery鼠标移入事件

jstextbox焦点事件，js获取焦点事件和失去焦点事件

jquery设置自定义事件监听，jquery添加监听事件

目录[+]