怎样使鼠标变成十字光标?高手请进! object.mousepointer=2object为你所想设定的对象,如FORM,COMMAND BUTTON等等。当然,你也可以在属性栏里改写。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 又来迟了 如果要用自己的光标object.mousepointer=99object.mouseicon=光标的路径 改了你的SU BIAO系统的不就行了,嘿嘿上面几位朋友说得说放太太,OK了! 想挣两分又被别人抢了先我说的形象一点吧选中你要把鼠标放在上面就变成十字坐标的那个对象,(通常是form1),然后在属性窗口里找mousepointer属性,里面有好多选项,其中第三个,即2-cross选中后,就会出现你想要得效果了 随便给你个代码吧 把他保存为 aa.frmVERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4185 ClientLeft = 60 ClientTop = 345 ClientWidth = 5925 LinkTopic = "Form1" ScaleHeight = 4185 ScaleWidth = 5925 StartUpPosition = 3 'Windows Default Begin VB.PictureBox Picture1 Height = 1830 Left = 1065 MousePointer = 2 'Crosss 在这里 ScaleHeight = 1770 ScaleWidth = 2565 TabIndex = 0 Top = 1020 Width = 2625 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False 对象.mousepointer=99对象.mouseicon=光标的路径 函数不能执行的问题 toolbar问题 求一个算法,怎么样来打乱一个数组的内容? 关于隐藏,和现实数据列. 不同打印机页尾打印的控制,请支招!!!! 寻找中文版MSDN 用什么控件显示数据最好? Sqlserver用ADO+Tdbgrid录入数据,不用触发器怎样实现对另一个表的增删改。 有没有在VB下打开autoCAD文件的控件?(内空) 请问如何能根据用户的设置,来动态的加载不同语言的资源文件?谢谢! 谁知道GetObject函数怎样用?请举例说明. 请问高手: 如何给正在运行应用程序的副本发消息?
如果要用自己的光标
object.mousepointer=99
object.mouseicon=光标的路径
上面几位朋友说得说放太太,OK了!
我说的形象一点吧
选中你要把鼠标放在上面就变成十字坐标的那个对象,(通常是form1),然后在属性窗口里找mousepointer属性,里面有好多选项,其中第三个,即2-cross选中后,就会出现你想要得效果了
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4185
ClientLeft = 60
ClientTop = 345
ClientWidth = 5925
LinkTopic = "Form1"
ScaleHeight = 4185
ScaleWidth = 5925
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox Picture1
Height = 1830
Left = 1065
MousePointer = 2 'Crosss 在这里
ScaleHeight = 1770
ScaleWidth = 2565
TabIndex = 0
Top = 1020
Width = 2625
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
对象.mouseicon=光标的路径