社区
VB基础类
帖子详情
VB中MouseIcon属性不是设置鼠标图标吗,,为什么运行后,鼠标没有变呀,,,还是老样子呀
honghuige
2003-08-23 03:48:15
大家帮我
...全文
1125
11
打赏
收藏
VB中MouseIcon属性不是设置鼠标图标吗,,为什么运行后,鼠标没有变呀,,,还是老样子呀
大家帮我
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
flc
2003-08-25
打赏
举报
回复
xuexiUO
honghuige
2003-08-24
打赏
举报
回复
可是我是窗体控件呀,,,,我设置自定义鼠标,,,可是,,我运行程序,,鼠标并没有变成我先的那种图形呀,,,这是为什么,,,,MOUSEICON不就是修改鼠标的自定义属性吗,,,,,
emerson3000
2003-08-24
打赏
举报
回复
up
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
VB
控件
属性
使用大全
在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 不显示
Mouse
Icon
Mouse
Pointer=99时,设定一个自定义的
鼠标
图标
Mouse
Pointer 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
6.0初学者的10个编程小技巧
关于
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
提供的系统控件一般都有
Mouse
Pointer和
Mouse
Icon
属性
。我们可以寻找自己喜欢的*.ICO,*.CUR文件,实现的程序如下: Screen.
Mouse
Pointer= 99 ’用户
鼠标
类型 Screen.
Mouse
Icon
=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
KK聊天工具的小代码。可供大家娱乐分析
VB
中
msgbox文本进行换行,使用 &
vb
crlf;& 进行连接两行。 添加菜单弹出文本使用msgbox(" " & index) 菜单(&a)
设置
A为快捷键。 调用资源管理器Call Shell("explorer 这里可以再填写HTTP url地址",
vb
MaximizedFocus) 弹出消息框起名字,msgbox("xiaoxi ",,"消息框的名字") keyascii=13的
设置
回车快捷键的问题 将按钮的Default
属性
设为True,则按回车键时触发该按钮; 将按钮的Cancel
属性
设为True,则按ESC键时触发该按钮, text1.text= " " 可以清除文本框信息。 frmAbout.Visible = True可以使frmabout窗口
设置
为显示。添加到一个按钮上可以调用一个窗口
mouse
pointer
设置
99然后
mouse
icon
引用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).Extract
Icon
Me.
Icon
= picX pic
Mouse
.
Mouse
Icon
= picX pic
Mouse
.
Mouse
Pointer =
vb
Custom End Sub
VB基础类
7,764
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章