如何在某一窗口中使鼠标呈“+”型 小弟现在做一小软件,为了鼠标的准确定位,需要使鼠标显示为“+”型。问如何在VB中实现该功能。望各位大虾不吝指教。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设置控件MousePointer属性为2-crossMousePointer 属性 返回或设置一个值,该值指示在运行时当鼠标移动到对象的一个特定部分时,被显示的鼠标指针的类型。语法object.MousePointer [= value]MousePointer 属性语法包含下面部分:部分 描述 object 对象表达式,其值是“应用于”列表中的一个对象。 value 整数,按照设置值中的描述指定被显示的鼠标指针类型。 设置值value 的设置值为:常数 值 描述 vbDefault 0 (缺省值)形状由对象决定。 VbArrow 1 箭头。 VbCrosshair 2 十字线(crosshair 指针)。 VbIbeam 3 I 型 VbIconPointer 4 图标(矩形内的小矩形)。 VbSizePointer 5 尺寸线(指向东、南、西和北四方向的箭头)。 VbSizeNESW 6 右上-左下尺寸线(指向东北和西南方向的双箭头)。 VbSizeNS 7 垂-直尺寸线(指向南和北的双箭头)。 VbSizeNWSE 8 左上-右下尺寸线(指向东南和西北方向的双箭头)。 VbSizeWE 9 水-平尺寸线(指向东和西两个方向的双箭头)。 VbUpArrow 10 向上的箭头。 VbHourglass 11 沙漏(表示等待状态)。 VbNoDrop 12 不允许放下。 VbArrowHourglass 13 箭头和沙漏。 VbArrowQuestion 14 箭头和问号。 VbSizeAll 15 四向尺寸线。 VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。 说明在鼠标指针越过窗体或对话框上的控件时,为了指出功能上的改变,可以使用该属性。沙漏标形状设置值 (11) 是很有用的,用来指示用户需要等待过程或操作的完成。注意 如果应用程序调用 DoEvents,那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。 在你想要显示+型的地方建一个label,然后选住它,在属性里面设置鼠标的形状就可以了。我自己的方法,可以行的。你自己试试吧。 补充一下,你得把这个窗口的所有东西都放在label里面。 Private Sub Form_Load() Me.MousePointer = vbCrosshairEnd Sub 将控件MousePointer属性为2-cross MSHFlexGrid批量删除后刷新的问题 求助,关于一个毕业设计的问题。 求能支持多线形的日期输入框控件。 高手中的小问题,谁会? 聯合查詢! 请帮我看看这段代码。 求教:在SSTab控件里,如何指定某一项为当前显示项,谢谢!!! 问题分怎么送给别人,怎么得啊? vb 显示excel中表 请大家看看VB安装的问题 怎样改别图片的大小 请问 怎么判断该文件已经打开。。
返回或设置一个值,该值指示在运行时当鼠标移动到对象的一个特定部分时,被显示的鼠标指针的类型。语法object.MousePointer [= value]MousePointer 属性语法包含下面部分:部分 描述
object 对象表达式,其值是“应用于”列表中的一个对象。
value 整数,按照设置值中的描述指定被显示的鼠标指针类型。
设置值value 的设置值为:常数 值 描述
vbDefault 0 (缺省值)形状由对象决定。
VbArrow 1 箭头。
VbCrosshair 2 十字线(crosshair 指针)。
VbIbeam 3 I 型
VbIconPointer 4 图标(矩形内的小矩形)。
VbSizePointer 5 尺寸线(指向东、南、西和北四方向的箭头)。
VbSizeNESW 6 右上-左下尺寸线(指向东北和西南方向的双箭头)。
VbSizeNS 7 垂-直尺寸线(指向南和北的双箭头)。
VbSizeNWSE 8 左上-右下尺寸线(指向东南和西北方向的双箭头)。
VbSizeWE 9 水-平尺寸线(指向东和西两个方向的双箭头)。
VbUpArrow 10 向上的箭头。
VbHourglass 11 沙漏(表示等待状态)。
VbNoDrop 12 不允许放下。
VbArrowHourglass 13 箭头和沙漏。
VbArrowQuestion 14 箭头和问号。
VbSizeAll 15 四向尺寸线。
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。
说明在鼠标指针越过窗体或对话框上的控件时,为了指出功能上的改变,可以使用该属性。沙漏标形状设置值 (11) 是很有用的,用来指示用户需要等待过程或操作的完成。注意 如果应用程序调用 DoEvents,那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。
End Sub