vb点虐 中鼠标等待 vbs 点击鼠标

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

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

成都网络公司-成都网站建设公司成都创新互联十载经验成就非凡，专业从事网站设计制作、成都做网站，成都网页设计，成都网页制作，软文发稿，广告投放等。十载来已成功提供全面的成都网站建设方案，打造行业特色的成都网站建设案例，建站热线：13518219792，我们期待您的来电！

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怎么捕捉系统鼠标当前状态？如：打开文件等待时的漏斗状态，或双箭头的可拉伸状态，谢谢。

me.Cursor.ToString()

或者可以枚举

me.cursor=Cursors.WaitCursor之类的

不过有以下局限：

自定义指针无法识别

窗口处于非激活状态可能无效

与其他控件可能冲突

VB.NET加载时等待光标

Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状

'加载耗时较长的函数

Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常