vb.net鼠标停留 vbs实现鼠标点击

vb.net中如何能使ToolStrip的button在鼠标悬停的时候显示提示信息？

在工具箱中双击“ToolStrip”控件，就会在窗体下面添加一个“ToolStrip1”的控件，就跟Menu的那个控件一样，然后在Button的属性里面就有一个Tooltip的内容设置了。在这里添加要显示的内容或者在Button的MouseEnter，MouseMove上面添加代码设置Tooltip的内容就OK了。。

成都创新互联公司服务项目包括广平网站建设、广平网站制作、广平网页制作以及广平网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，广平网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到广平省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

再看看别人怎么说的。

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

就label

和textbox两种控件而言，若允许用户输入文本，则应使用（textbook

）控件，如果仅需要让应用程序在其中显示文本信息，可以使用（

label

）控件，也可以用（textbox）控件但最好将其locked属性设置为（true

）

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)

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

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

VB问题，如何设计鼠标悬停在按钮1上1秒后能在鼠标旁边弹出提示文本？移开文本消失？

vb.net2008 弹出提示文本是"一个按钮"

ToolTip1.SetToolTip(Button1, "一个按钮")

ToolTip1.InitialDelay = 1000 '延迟时间1秒

ToolTip1.AutoPopDelay = 360000000 '提示文本最大显示静止时间100个小时

你也可以设置个定时器，当按钮获得光标是隐藏ToolTip的显示，并启动定时器（如果按钮失去光标关闭定时器），定时器1秒钟后显示ToolTip，并关闭定时器。

vb.net中输入时光标老是停留在某一个字母上怎么办啊

你看看你的处理逻辑，是不是有设置光标位置或者其他的处理逻辑之类的。