VB中MouseIcon属性不是设置鼠标图标吗,,为什么运行后,鼠标没有变呀,,,还是老样子呀

honghuige 2003-08-23 03:48:15

大家帮我

...全文

1118 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

flc 2003-08-25

打赏
举报

xuexiUO

honghuige 2003-08-24

打赏
举报

可是我是窗体控件呀，，，，我设置自定义鼠标，，，可是，，我运行程序，，鼠标并没有变成我先的那种图形呀，，，这是为什么，，，，MOUSEICON不就是修改鼠标的自定义属性吗，，，，，

emerson3000 2003-08-24

打赏
举报

evbsky 2003-08-24

打赏
举报

把属性设置为自定义鼠标99

planetike 2003-08-24

打赏
举报

Picture1.MousePointer = 99先

honghuige 2003-08-24

打赏
举报

哦，，，明白了，，，试过了，，呵呵，，谢谢大家

chf99cn 2003-08-23

打赏
举报

有的控件，虽然有这个属性，但是它没有用，象很多的第三方控件

shawls 2003-08-23

打赏
举报

呵呵，来晚了～～

shawls 2003-08-23

打赏
举报

把属性设置为自定义鼠标，=99即可

就是设置鼠标图标的属性上面还是下面那个

射天狼 2003-08-23

打赏
举报

Private Sub Form_Load()
Picture1.MousePointer = 99 '设置成自定义图标
Picture1.MouseIcon = LoadPicture("C:\fulo.ico")
End Sub

射天狼 2003-08-23

打赏
举报

Private Sub Form_Load()
Picture1.MousePointer = 99 '设置成自定义图标
Picture1.MouseIcon = LoadPicture("C:\fulo.ico")
End Sub

在Windows操作系统上，VisualBasic作为一门计算机语言，功能非常强大，而且简单易学。VisualBasic提供可视化设计工具，编程人员可利用VisualBasic提供的控件轻松的“画”出应用程序的友好界面，因此容易入门，入门以后就有能力进一步学习难度更大的编程语言。VisualBasic作为编程人员的首选程序设计语言，有如下特点： 1、VisualBasic是开发Windows应用程序的强有力的工具，使用了最先进的程序设计思想，能轻而易举的开发出符合Windows规范和风格的应用程序； 2、VisualBasic在科学计算、多媒体软件开发、网络应用等方面都有强大的功能，尤其在数据库开发方面，提供了许多控件，便于连接、查询和显示查询结果，现在很多管理软件，包括一些大型软件，都是利用VisualBasic开发的； 3、VisualBasic改变了传统的程序的机制，采用“事件驱动”方式，用户操作产生不同的事件，程序根据这些事件去分别执行不同的子程序。编程人员可以分别编写出这样一些子程序，因此使编程难度大大下降。　　在VisualBasic语言中，控件是用户界面的基本要素，是进行可视化程序设计的重要基础，它不仅关系到界面是否友好，还直接关系到程序的运行速度以及整个程序的好坏。每个控件都具有它的属性、方法和事件，设计窗体就必须很好的掌握控件的属性和应用方法。控件具有很多相同的属性，如标识控件名称的Name属性、标识控件标题的Caption属性、有效属性Enable、可见属性Visible、标识控件位置和大小的Top、Left、Width、Height、属性、定义背景色的BackColor属性、定义前景色的ForeColor属性和定义字体类型的Font属性，各个控件也有其特有的一些属性。　　VisualBasic中的控件分为两种，即标准控件（或内部控件）和ActiveX控件。内部控件是工具箱中的“常驻”控件，始终出现在工具箱里，而ActiveX控件是扩展名为.ocx的文件（在Windows\System文件夹里），它是根据变成需要添加到工具箱里的。　　在一般情况下，工具箱里只有标准控件，为了把ActiveX控件添加到工具箱里，可按以下步骤执行： (1)在菜单里选择“工程-部件”，弹出“部件”对话框； (2)在对话框中选择“控件”选项卡，显示ActiveX控件列表； (3)在列表框中找到需要添加的控件名称，单击控件名称左侧的复选框； (4)使用同样的方法选择需要添加的其它控件； (5)单击“确定”按钮，即可将所选ActiveX控件添加到工具箱里。窗体(FORM)的常用属性属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance外观效果,取值为：0 平面1 3D(立体) AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为：True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle设置边界类型,取值为： 0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption窗体的标题 ClipControls决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为： True或False ControlBox是或有控制框, 取值为： True 有 False 无 DrawMode设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选： 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合 10 非异或笔,设置值7的反相 11 无操作,该设置实际上是不画图 12 或非笔,显示颜色与画笔颜色反相的组合 13 复制笔,用ForeColor属性指定的颜色,此为默认值 14 或笔非,画笔颜色与显示颜色反相的组合 15 或笔,画笔颜色与显示颜色的组合 16 白色 DrawStyle设定绘图相关方法使用的直线样式, 有7种可选： 0 实线,此为默认值 1 虚线 2 点线 3 单点划线 4 双点划线 5 无线 6 内部实线 DrawWidth设定绘图相关方法使用的直线宽度 Enabled是或把鼠标或键盘事件发送到窗体,取值为： True 可用 False 不可用 FillColor填充颜色, 可从弹出的调色板选择。 FillStyle填充样式, 有8种可选： 0 全部填充 1 透明,此为默认值 2 水平直线 3 竖直直线 4 上斜对角线 5 下斜对角线 6 十字线 7 交叉对角线 Font字型,可从弹出的对话框选择字体,大小和风格 FontTransparent输出数据是否允许重叠(获得或设置一个值,决定是否显示窗体,打印机或PictureBox上的背景文本/图形)。取值为： True或False ForeColor前景颜色,可从弹出的调色板选择。 HasDC决定是否为该控件分配了唯一的显示上下文。取值为： True或False Height窗体的高度 HelpContextID指定一个对象的缺省帮助文件上下文标识符 Icon为窗体设计图标,该图标位于标题栏的左端 KeyPrevier获得或设置是否在激活对象的上的控件的键盘事件之前,优先激活对象键盘事件。取值为： True或False Left窗体距屏幕左边界的距离 LinkMode获得或设置用于DDE会话的链接类型并激活连接,取值为： 0 None 1 Source LinkTopic获得或设置目标控件的源应用程序和主题 MaxButton窗体右上角最大化按钮是否显示,运行时只读, 取值为： True 显示 False 不显示 MDIChild是否为MDI窗体的子窗体, 取值为： True 为MDI窗体的子窗体 False 否 MinButton窗体右上角最小化按钮是否显示,运行时只读, 取值为： True 显示 False 不显示 MouseIcon MousePointer=99时,设定一个自定义的鼠标图标 MousePointer Moveable是否可以移动窗体, 取值为： True 可以移动 False 不可以移动 NegotiateMenus决定是否将对象的菜单合并到该窗体的菜单栏上。取值为： True或False OLEDropMode 获得或设置该对象是否能作为一个OLE放下目标, 取值为： 0 None(无) 1 Manual(手动) Palette 获得或设置一个图象,包含了当PaletteMode被设置为Custom时用于调色板的对象。 PaletteMode 获得或设置一个值,决定对于对象的控件使用哪个调色板。取值为： 0 Halftone 1 UseZOrder 2 Custom Picture 窗体背景图片 RightToLeft 文本书写是否自左向右。取值为： True False 自右向左 ScaleHeight 自定义坐标系的纵坐标轴的高度 ScaleLeft 自定义坐标系的左边界起点的横坐标 ScaleMode 获得或设置一个值,指示当使用graphics方法或可定位的控件时,自定义坐标系的单位, 有8种可选： 0 自定义 1 表示单位为twip(缇),每英寸=1440缇,每厘米=567缇 2 表示单位为point(磅) ,每英寸=72磅,每磅=20缇 3 表示单位为像素,是监视器或打印机分辨率的最小单位 4 表示单位为字符,每个水平单位为120缇,每个垂直单位为240缇 5 表示单位为in(英寸) 6 表示单位为mm(毫米) 7 表示单位为cm(厘米) ScaleTop 自定义坐标系的上边界起点的纵坐标 ScaleWidth 自定义坐标系的横坐标轴的宽度 ShowInTaskbar 窗体或MDI窗体是否出现在Windows95的任务栏。取值为： True 出现 False 不出现 StartUpPosition 窗体第一次出现的位置, 有4种可选： 0 没有指定初始位置 1 设定在所属项目的中央 2 设置在屏幕的中央 3 设置在屏幕的左上角 Tag 存储程序所需的附加数据 Top 窗体距屏幕顶部边界的距离 Visible 窗体是否可见, 取值为： True 该对象可见 False 该对象不可见 WhatsThisButton 获得或设置是否在一个窗体或MDI窗体的标题上显示"这是什么"按钮。取值为： True或False WhatsThisHelp 获得或设置是否在上下文相关帮助中, 使用Windows95帮助或主帮助窗口提供的"这是什么"弹出菜单。取值为： True或False Width 窗体的宽度 WindowStart 获得或设置一个窗体窗口运行时的可见状态, 取值为： 0 窗体正常状态 1 窗体最小状态 2 窗体最大状态

关于vb初学者的忠告信息来源：邪恶八进制信息安全团队（www.eviloctal.com） 1、如果一行程序太长，能不能换行？ VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如：引用: Sub PicMove() Frm.Picture2.Left = Frm.Picture1.Left + _ ’加上换行符 Frm.Picture1.Width End Sub 2、如何在设计的时候清空存在的图片？用鼠标点中该图片，在属性窗口中选中Picture属性，按Del键便可清空图片。 3、 Visual Basic 如何注释一段较长程序代码？ VB注释程序代码的符号是“注释：”，只要在某行程序前面加上“注释：”，就可以注释该行程序。但如果程序代码很长的时候，一行一行地注释令人觉得难以忍受。VB本身提供了这个功能，在主菜单“视图”选项的“工具栏”下，选中Edit，VB的界面会出现一排工具按钮，其中的手形图标按钮后的两个按钮用于“设置注释块”和“解除注释块”。 4、怎么实现鼠标一移上去就出现小提示窗口的功能？ VB 里每个控件都有ToolTipText属性，只要加上一行程序就可以了。例如：Label1.ToolTipText = "这是提示！"。 5、如何获得当前软件的运行磁盘目录和命令行参数？ VB里面有个系统对象叫App。App.Path就是当前软件的运行目录。而命令行参数存放在一个系统变量里面，叫Command。程序语句如下：引用: Label1.Caption=App.Path Label2.Caption=Command$ 6、我想换掉鼠标显示的形状，怎么做？ VB提供的系统控件一般都有MousePointer和MouseIcon属性。我们可以寻找自己喜欢的*.ICO,*.CUR文件，实现的程序如下： Screen.MousePointer= 99 ’用户鼠标类型 Screen.MouseIcon=LoadPicture("C:\ABC\1.ICO") ’读取鼠标的图标文件 7、如何设置程序的错误出口？ On Error语句用于程序的错误出口处理。一般的处理方法有两种： 1) 遇到错误跳转到某一行程序去执行，On Error GoTo someline。例如：引用: On Error GoTo ERR_LINE ... Label1.Caption=“正确执行” ERR_LINE: ... Label1.Caption=“出错了！” 2) 遇到错误之后忽略当前错误，继续执行，On Error Resume Next。例如：引用: On Error Resume Next ... Label1.Caption=“不管对不对都要执行” ... 8、怎样获得键盘输入和判断敲键的Ascii值？把窗体的KeyPreview属性设置成True，然后在Form_KeyPress 事件里编写程序代码如下：引用: Private Sub Form_KeyPress (KeyAscii As Integer) 　Me.Caption = Str(KeyAscii) ‘取得键盘输入的字符　... End Sub 9、我希望窗体一运行就在屏幕的中央，怎么实现？ VB的系统对象Screen记录了当前显示模式的高度和宽度，可以利用这个值来设置窗体的位置。引用: Sub CenterForm(frm As Form) ‘定义过程　frm.Move (Screen.width - frm.width)\ 2, (Screen.Height - frm.Height) \ 2 End Sub Private Sub Form_Load() 　CenterForm Me ’调用过程 End Sub 10、很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？引用: Private Sub Text1_GotFocus() 　Text1.SelStart = 0 　Text1.SelLength = Len(Text1.Text) ’过程调用 End Sub 帖子3926 精华128 积分210000 阅读权限200 性别男在线时间1119 小时注册时间2007-10-23 最后登录2009-1-28 查看详细资料 TOP

KK聊天工具的小代码。可供大家娱乐分析 VB中msgbox文本进行换行，使用 &vbcrlf;& 进行连接两行。添加菜单弹出文本使用msgbox(" " & index) 菜单(&a)设置A为快捷键。调用资源管理器Call Shell("explorer 这里可以再填写HTTP url地址", vbMaximizedFocus) 弹出消息框起名字，msgbox("xiaoxi ",,"消息框的名字") keyascii=13的设置回车快捷键的问题将按钮的Default属性设为True，则按回车键时触发该按钮；将按钮的Cancel属性设为True，则按ESC键时触发该按钮， text1.text= " " 可以清除文本框信息。 frmAbout.Visible = True可以使frmabout窗口设置为显示。添加到一个按钮上可以调用一个窗口 mousepointer设置99然后mouseicon引用cur图片。实现指针改变形状 maxbutton minbutton实现最大最小化按钮，borderstyle实现任务栏，

可以根据需要随意更换鼠标的形状，美化程序

Option Explicit Dim imgIndex As Integer '标识当前显示的是第几个图像 ' 卸载窗体 Private Sub cmdClose_Click() Unload Me frmMain.Show End Sub '运行或停止演示 Private Sub cmdRun_Click() If Timer1.Enabled = False Then Timer1.Enabled = True cmdRun.Caption = "停止" Else Timer1.Enabled = False cmdRun.Caption = "运行" End If End Sub '加载窗体和图像 Private Sub Form_Load() Dim i As Integer '加载ImageList控件的图象 For i = 0 To 17 imgLst.ListImages.Add , , Image1(i).Picture Next i '设置初始图像索引 imgIndex = 0 End Sub '利用时钟实现动画 '循环显示图像 Private Sub Timer1_Timer() imgIndex = imgIndex + 1 If imgIndex > 18 Then imgIndex = 1 End If Dim picX As Picture Set picX = imgLst.ListImages(imgIndex).ExtractIcon Me.Icon = picX picMouse.MouseIcon = picX picMouse.MousePointer = vbCustom End Sub

VB基础类

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章