vb.net鼠标停留事件的简单介绍

vb.net 鼠标停留在label，textbox上时，如何显示提示信息

Label 控件用于显示用户不能编辑的文本或图像。含义：用于显示标签

成都创新互联2013年至今，是专业互联网技术服务公司，拥有项目成都做网站、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元鲤城做网站,已为上家服务,为鲤城各地企业和个人服务,联系电话:13518219792

TextBox 控件通常用于可编辑文本，不过也可使其成为只读控件，文本框用于获取用户输入或显示文本。

这就是区别，Label只能显示，而TextBox可以修改，输入数据

VB.NET2005制作鼠标停留弹出窗口

onMouseOver="javascript:showLayer(idname1)" onMouseOut="idname1.style.visibility='hidden'"

DIV id="idname2" style="background-color:yellow;TOP:0px; VISIBILITY: hidden; OVERFLOW: visible; POSITION: absolute;PADDING-TOP: 3px;margin-bottom:9px"

table width="300" class="t1"

tr td width="20"/td

td width="160" align="center"b即时提示：所有知识/b/td

td width="20"/td /tr tr td/td

td

此处显示系统中所有的知识列表。任何人提交的知识都可以在这里显示。系统默认的显示方式是按照时间倒排显示。您可以选择按提交人，知识类型进行排序。

br/

还可以通过输入检索词来查询知识。方法是在输入框中输入内容，然后按检索。

br/br/bfont color="blue"特别提示：因为知识管理系统是不属于特定项目的，因此无论登陆任何项目，按所有知识所得到的结果都是一样的。/font/b

/td

td/td /tr tr td/td td/td td/td /tr /table /DIV

VB.NET当鼠标停在屏幕任意地方，得到该点的颜色

我有个笨办法，先用API抓图到内存里，然后再在根据你点鼠标的屏幕工作区坐标，去那图里取色。

-----------------------

'抓图所需的API

Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer

Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer

Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer

Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer

Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer

Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer

Const SRCCOPY As Integer = HCC0020

'抓图的部分

Dim hDC, hMDC As Integer

Dim hBMP, hBMPOld As Integer

Dim sw, sh As Integer

hDC = GetDC(0)

hMDC = CreateCompatibleDC(hDC)

sw = Screen.PrimaryScreen.Bounds.Width

sh = Screen.PrimaryScreen.Bounds.Height

hBMP = CreateCompatibleBitmap(hDC, sw, sh)

hBMPOld = SelectObject(hMDC, hBMP)

BitBlt(hMDC, 0, 0, sw, sh, hDC, 0, 0, SRCCOPY)

hBMP = SelectObject(hMDC, hBMPOld)

Dim bmp As Bitmap = Image.FromHbitmap(New IntPtr(hBMP))

DeleteDC(hDC)

DeleteDC(hMDC)

DeleteObject(hBMP)

......

'取点的颜色

bmp.GetPixel(e.X, e.Y)

----------------------------

关键就是这些你自己组合吧，你分给的太少了，很麻烦，恕我不帮你改全了。如果要仔细帮你改，请另开高分贴，不要用新马甲来