火力光波的博客

火一般的热情光一样的速度

日志

关于我

火力光波

文章分类

VB 6 鼠标光标形状图解

2009-10-29 18:44:31| 分类： VB6编程 | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

VB 6 设置鼠标光标形状(指针)图解

1、鼠标光标属性
MousePointer属性：其值可为0-15，99(自定义)。

2、通过窗口设置MousePointer光标属性

3、通过代码设置MousePointer光标属性

(1)将代码写在mousemove事件中，来设置MousePointer属性。

在文本框上的光标形状
操作：在窗体上添加文本框Textl→双击文本框→选择事件mousemove

编写代码
Private sub Text1_mousemove(Buttoil As Integer，Shift As Integer，x As Single，Y As Single)
Text1.MousePointer=14 '可设0-15'
End Sub

运行效果

(2)将代码写在click事件中，来设置MousePointer属性。

在窗体上每单击一次光标变化一种
操作：双击窗体→选择事件click

编写代码
Private sub Form_click()
Static x As Integer
Cls
Form1.MousePointer=x
Print"当前窗体的MousePointer属性值为："& x
x=x+1
If x=15 Then x = 0
End Sub

运行效果

(3)自定义光标(指针)。

设置当指针指向超连接时针指变为手形

①首先在标签上创建一个超连接

操作：在窗体上添加标签Label1→在Caption属性输入http://xuhui-8491.blog.163.com/

设置AutoSize为True

设置ForeColor属性是蓝色

设置Font属性有下划线

双击标签→选择事件click

编写代码
Private sub Label1_click()
Shell "Explorer "& Label1.Caption '注意Explorer 后面有一个空格'
End Sub

运行效果

②再在这个标签上自定义光标

操作：接着双击标签→选择事件mousemove

编写代码
Private sub Label1_mousemove(Buttoil As Integer，Shift As Integer，x As Single，Y As Single)
Label1.MousePointer=99
Label1.MouseIcon=LoadPicture("D: estH_POINT.CUR") '参数为光标的地址'
End Sub

附：VB鼠标光标形状MousePointer属性值表

常数	值	描述
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 属性所指定的自定义图标。

评论这张

转发至微博

阅读(2615)| 评论(9)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_083066084081088066081095083095092086086071081094095066',
              blogTitle:'VB 6 鼠标光标形状图解',
              blogAbstract:'<P align=\"center\" \><FONT face=\"楷体_GB2312\" color=\"#ff6600\" size=\"4\" \>VB 6 设置鼠标光标形状(指针)图解</FONT\></P\>  <P\><BR\><FONT size=\"2\" \><FONT color=\"#ff6600\" \>1、鼠标光标属性<BR\></FONT\>     MousePointer属性：其值可为0-15，99(自定义)。</FONT\> </P\>  <P\><FONT size=\"2\" \><FONT color=\"#ff6600\" \>2、通过窗口设置MousePointer光标属性</FONT\></FONT\></P\><FONT color=\"#ff6600\" size=\"2\" \>  <P style=\"TEXT-INDENT: 2em;\"  \><A rel=\"nofollow\" href=\"http://xuhui849.download.liondrive.com/000000/091028/01.jpg\"  \><IMG title=\"VB 6 鼠标光标形状图解 - 火力光波 - 火力光波的博客\"  alt=\"VB 6 鼠标光标形状图解 - 火力光波 - 火力光波的博客\"  src=\"http://xuhui849.preview.liondrive.com/000000/091028/01.jpg/l.1.jpg\"  border=\"0\" \></A\> </P\></FONT\><FONT color=\"#ff6600\" size=\"2\" \></FONT\>  <P\><FONT size=\"2\" \><FONT color=\"#ff6600\" \>3、通过代码设置MousePointer光标属性</FONT\> </FONT\></P\>  <P\><FONT size=\"2\" \><FONT color=\"#ff00ff\" \>(1)将代码写在mousemove事件中，来设置MousePointer属性。</FONT\></FONT\></P\>',
              blogTag:'',
              blogUrl:'blog/static/80745891200992964431600',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1317059595463,
              publishTime:1256813071600,
              permalink:'blog/static/80745891200992964431600',
              commentCount:9,
              mainCommentCount:9,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'',
              hmcon:'1',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/80745891200992964431600">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

火力光波的博客

导航

日志

VB 6 鼠标光标形状图解

历史上的今天

最近读者

热度

评论

页脚