vb.net鼠标沙漏 vbs鼠标

vb 鼠标 沙漏

在鼠标指针越过窗体或对话框上的控件时，为了指出功能上的改变，可以使用该属性。沙漏标形状设置值 (11) 是很有用的，用来指示用户需要等待过程或操作的完成。

注意 如果应用程序调用 DoEvents，那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。

相关问答

Q1: 如何用VB.NET做水晶报表?

CrystalReportViewer

dataset 定义数据源

.rpt 文件描述具体报表样式

再加一个调用报表的FORM，就可以实现简单的报表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

Q2: 我的电脑鼠标旁边有个沙漏不停闪烁,查看进程发现regsvr32.exe进程时隐时现,,求高手指点

这里有很多Regsvr32命令,看了后就明白了 Regsvr32命令修复系统故障实例使用过activex的人都知道，activex不注册是不能够被系统识别和使用的，一般安装程序都会自动地把它所使用的activex控件注册，但如果你拿到的一个控件需要手动注册怎么办呢？如果修改注册表那就太麻烦了，在windows的system文件夹下有一个regsvr32.exe的程序，它就是windows自带的activex注册和反注册工具。

2000系统的regsvr32.exe在winnt\system32文件夹下；

WInXP系统的regsvr32.exe在windows\system32文件夹下

regsvr32的用法为：

"regsvr32 [/s] [/n] [/i(:cmdline)] dllname”。其中dllname为activex控件文件名，建议在安装前拷贝到system文件夹下。

参数有如下意义：

/u——反注册控件

/s——不管注册成功与否，均不显示提示框

/c——控制台输出

/i——跳过控件的选项进行安装(与注册不同)

/n——不注册控件，此选项必须与/i选项一起使用

执行该命令的方法：

1、可以在“开始”--“运行”，调出运行的对话框，也可以使用Win+R热键，然后直接在输入栏输入即可

2、在开始--运行 输入cmd，调出‘命令提示符’窗口，然后再执行regsvr32命令。

二、Regsvr32错误消息的说明

当使用 Regsvr32.exe 时，它会尝试加载该组件并调用它的 DLLSelfRegister 函数。如果此尝试成功，Regsvr32.exe 会显示一个指示成功的对话框。如果此尝试失败，Regsvr32.exe 会返回一条错误消息，其中可能会包括一个 Win32 错误代码。

以下列表介绍了 RegSvr32 错误消息和可能的原因。

Unrecognized flag:/invalid_flag

键入的标志或开关组合无效（请参阅本文中的“Regsvr32.exe 的用法”一节）。

No DLL name specified.

未包括 .dll 文件名（请参阅本文中的“Regsvr32.exe 的用法”一节）。

Dllname was loaded, but the DllRegisterServer or DllUnregisterServer entry point was not found.

Dllname不是.dll 或.ocx 文件。例如，键入 regsvr32 wjview.exe 就会生成该错误消息。

例如，键入regsvr32 icwdial.dll 后就会返回该错误消息，因为 Icwdial.dll 文件不能自行注册。如果您怀疑内存中有损坏的Dllname 版本，请尝试重新启动计算机，或重新提取该文件的原始版本。如果您运行的是 Windows NT，可能需要使用 Microsoft Windows NT Server 4.0 资源工具包 中的 Kill 或 Pview 工具。有关其他信息，请单击以查看以下 Microsoft 知识库文章：197155 如何终止孤立进程OleInitialize failed (or OleUninitialize failed).

Regsvr32 必须先初始化 COM 库，然后才能调用所需的 COM 库函数并在关闭时撤消对该库的初始化。

一、轻松修复IE浏览器

regsvr32 Shdocvw.dll

regsvr32 Oleaut32.dll

regsvr32 Actxprxy.dll

regsvr32 Mshtml.dll

regsvr32 Urlmon.dll

regsvr32 browseui.dll

作用：

1、同时运行以上命令不仅可以解决IE不能打开新的窗口，用鼠标点击超链接也没有任何反应的问题；

2、还能解决大大小小的其它IE问题，比如网页显示不完整，JAVA效果不出现，网页不自动跳转，打开某些网站时总提示‘无法显示该页’等。

二、解决Windows无法在线升级的问题

regsvr32 wupdinfo.dll

作用：

Windows的漏洞很多，每隔一段时间就需要使用“Windows Update”升级程序进行在线升级，不过“Windows Update”经常出现无法使用的情况，这时，我们可以使用Regsvr32来解决这个问题。

三、防范网络脚本病毒有新招

regsvr32 /u scrrun.dll

作用：

网络脚本病毒嵌在网页中，上网时在不知不觉中机器就会感染上这种病毒。笔者认为单纯使用杀毒软件并不能有效地防范这些脚本病毒，必须从病毒传播的机理入手。网络脚本病毒的复制、传播都离不开FSO对象（File System Object，文件系统对象），因此禁用FSO对象就能有效地控制脚本病毒的传播。

如果需要使用FSO对象，键入“regsvr32 scrrun.dll”命令即可。

四、卸载Win XP自带的ZIP功能

regsvr32 /u zipfldr.dll

作用：

Win XP以功能强大而著称，但有些功能却常常令人有“鸡肋”之感，比如Win XP自带的ZIP功能和图片预览功能，不仅占用了系统资源，功能也远不如第三方软件强大。其实用Regsvr32命令可以很容易地卸载这些功能。

五、修复无法缩略图查看文件问题

2000: 开始→运行，输入regsvr32 thumbvw.dll

XP: 开始→运行，输入regsvr32 shimgvw.dll

六、让WMP播放器支持RM格式

很多朋友喜欢用Windows Media Player（以下简称WMP）播放器，但是它不支持RM格式，难道非得安装其它播放软件吗?笔者有办法。

以Win XP为例，首先下载一个RM格式插件，解压缩后得到两个文件夹： Release（用于Windows 9x）和Release Unicode （用于Windows 2000/XP）；将Release Unicode文件夹下的RealMediaSplitter.ax文件拷贝到“系统盘符\WINDOWS\System32\”目录下；在“开始→运行”中键入“regsvr32 RealMediaSplitter.ax”，点击“确定”即可。接着下载解码器，如Real Alternative，安装后就能用WMP播放RM格式的影音文件了。

七、让WMP9的播放器出现

有些音乐网页的在线点歌需要用到Media Player，有的朋友明明安装了WMP9，但在线听音乐却只看到枯燥的WMP6播放器面板，想让漂亮的WMP9面板出现，当然没问题的。

常见问题的操作系统多数WIN 98，先关闭IE，再在“开始→运行”中键入“regsvr32 wmpdxm.dll”，点击“确定”即可。

八、解决打开系统功能时无反应regsvr32 shdocvw.dll

作用：

有时从开始菜单里点击XP系统的搜索功能、帮助和支持或管理工具等，但就是无任何反应，这是它们的打开方式缺少关联，所以我们只要用regsvr32注册它们需要调用的动态连接库文件就行了。

九、添加/删除程序打不开了regsvr32 appwiz.cpl

regsvr32 mshtml.dll

regsvr32 jscript.dll

regsvr32 msi.dll

regsvr32 "c:\program files\common files\system\ole db\oledb32.dll"

regsvr32 "c:\program files\common files\system\ado\msado15.dll"

regsvr32 mshtmled.dll

regsvr32 /i shdocvw.dll

regsvr32 /i shell32.dll

作用：

当打开控制面板中的添加/删除程序时，双击它的图标后无反应，或者打开后自动关闭了，尝试使用以上命令可以解决。

十、XP的用户帐户打不开regsvr32 nusrmgr.cpl

regsvr32 mshtml.dll

regsvr32 jscript.dll

regsvr32 /i shdocvw.dll

十一、防范网络脚本病毒有新招

regsvr32 /u scrrun.dll 禁用FSO对象

regsvr32 scrrun.dll 使用FSO对象

十二、解决Windows无法在线升级的问题regsvr32 wupdinfo.dll

以下症状我把它称作IE的活动脚本漏洞，虽然这两个命令能修复，但治标不治本，我建议遇到此问题的朋友到微软网站进行IE安全更新，即打漏洞补丁。

regsvr32 jscript.dll

regsvr32 vbscript.dll

作用：

1、跟上面讲的修复IE浏览器方法配合使用(可以不配)，可以很好的解决浏览某些网页无法正常显示和功能不正常，如：

a.不显示某些验证码

b.不显示某些动态图片

c.不显示某些论坛的帖子列表

d.论坛快速跳转功能无用

e.论坛发贴时按Ctrl+Enter提交无反应

2、修复个别窗口空白，如XP的‘搜索’功能的搜索助理操作面板空白、系统还原页面空白和用户帐户页面空白等。(可修复把握度100%)

3、解决windows media player 9或以上版本打开时提示‘出现内部应用程序错误’。(可修复把握度100%)

4、可以修复win 2000的‘添加/删除程序’打开后一片空白。(可修复把握度99%)

5、解决win 2000以WEB方式查看Program Files文件夹和Winnt文件夹时看不到任何文件，以及‘控制面板’的图标跑到左边去的问题。

6、解决网页上网际快车的右键菜单功能无法使用。

在网站中，当右键点某个‘下载连接’时，会弹出菜单，选择‘使用网际快车下载’会再弹出FLASHGET的下载任务页面，如果发现该功能无反应，那就可能是这个原因：原来这项菜单是调用了FLASHGET目录下的jc_link.htm文件，这个文件是用VB语言编写的，所以其作用丢失是动态连接库 vbscript.dll没有注册和调用到。

不过这只是原因之一.

Q3: vb.net中让鼠标显示成沙漏形状

用 SetCursor

这个API修改当前系统vb.net鼠标沙漏的鼠标形状

Q4: VB.NET模拟鼠标问题

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

Dim postion1 As New Point

mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)

'按绝对位置移动鼠标

'在鼠标坐标系统中vb.net鼠标沙漏，屏幕在水平和垂直方向上均匀分割成65535×65535个单元vb.net鼠标沙漏，

'当前所用显示屏分辨率为1366*768

'所以要进行如上转换

mouse_event(H2, 0, 0, 0, 0) '鼠标左键按下

mouse_event(H4, 0, 0, 0, 0) '鼠标左键弹起

msdn上有 mouse_event vb.net鼠标沙漏的详解，大致使用如上

关于vb.net鼠标沙漏和vbs鼠标的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。