miaozk2006

点滴积累与收藏:关于技术，关于生活

日志

关于我

miaozk2006

文章分类

[VB]在状态栏中显示帮助信息

2012-08-04 15:59:49| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

状态栏是VB中的一个很有用的控件，但是默认状态下它不在控件面板中，在我们使用它之前必须先添加，方法是按下Ctrl+T快捷键，在弹出的“Components”对话框中选中MS Windows Common Controls。这时在控件面板中会出现状态栏的小图标

，双击此图标就能把它添加到窗体中。

[VB]在状态栏中显示帮助信息 - miaozk2006 - miaozk2006

　　接下来我们根据自己的需要来编辑状态栏，选中窗体上的状态栏，在鼠标右键菜单中选择“属性Properties”，这时会弹出如上图所示的对话框，我们选择“Panels窗格”。其中“Insert Panel”按钮用来添加状态栏中的窗格数目，当我们添加一个窗格后“Index”的值也会自动加一，在程序中我们通过窗格的索引值来引用窗格。下面的一些项目都是窗格的属性，我们可以在此设置也可在程序中控制它。比较常用的属性有：
　　“Text”--在各个窗格中显示的文字；
　　“Alignment”--窗格中文本的对齐方式；
　　“Style”窗格的样式(选择0-sbrText为显示文本，选择6-sbrDate为显示日期等等)；
　　“Bevel”--窗格的凹凸状态。
　　另外我们还可以在窗格中加入图片，方法是点击“Browse”然后选中图片文件。

　　在本程序中我们在第一个窗格中动态显示帮助信息，在第二、三个窗格中分别显示日期和时间。那么怎样在程序中控制状态栏中显示的文本呢？

　　例如我们希望鼠标移动到不同的按钮上时状态栏的第一个窗格中显示不同的帮助，则我们在按钮的OnMouseOver事件中加入如下语句即可：
　Private Sub CmdNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　　staSample.Panels(1).Text = ""
　　　staSample.Panels(1).Text = "清空文本框"
　End Sub

　　同样的我们能为其它按钮等控件添加帮助信息。

★VB部分相关文章推荐：★

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 使用SendMessage枚举文件与目录

☆VB 二进制数组与十六进制字符串相互转换

☆VB 二进制数据读写实例

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

☆VB 实现UTF-8 与GB2312互转

☆VB 设置ListView中指定一行的背景颜色

☆VB SendMessage向其他程序窗口发送字符串消息实例

☆VB Listview导出到CSV文件函数

☆vb卸载所有窗体

☆VB中Null, Empty, Nothing, and vbNullString的区别

☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)

☆获取对象的接口信息(方法/属性/事件)(VB6代码)

☆[VB]SaveSetting 语句和 DeleteSetting 语句

☆VB APP对象属性一览表 + 灵活使用VB的APP对象

☆[vb]SendMessageA函数

☆使用VB绘制抛物线动画曲线

☆关于vb中的容器

☆[vb]利用WScript.Shell对象隐藏cmd命令行运行

☆浅析VB For Each.Next语句

☆Mp3Play.ocx控件让音乐之声响起来

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087066087095082064081086094069072085089065080081086070092',
              blogTitle:'[VB]在状态栏中显示帮助信息',
              blogAbstract:'状态栏是VB中的一个很有用的控件，但是默认状态下它不在控件面板中，在我们使用它之前必须先添加，方法是按下Ctrl+T快捷键，在弹出的“Components”对话框中选中MS Windows Common Controls。这时在控件面板中会出现状态栏的小图标<IMG title=\"VB：在状态栏中显示帮助信息 - miaozk2006 - miaozk2006\"  alt=\"状态栏图标\" src=\"http://www.czopen.com/xywh2/0128/coputer/images/computerclass/vb/statusbar.gif\"  width=\"28\"  ____=\"ev_5172734658\"  \>，双击此图标就能把它添加到窗体中。   <P style=\"TEXT-INDENT: 2em;\"  \> </P\><BR\><IMG title=\"[VB]在状态栏中显示帮助信息 - miaozk2006 - miaozk2006\"  alt=\"[VB]在状态栏中显示帮助信息 - miaozk2006 - miaozk2006\"  src=\"http://img8.ph.126.net/DeXUuW5ikMeX9teT7DJ4tw==/6597340246517107838.gif\"  \><BR\>  ',
              blogTag:'',
              blogUrl:'blog/static/382470582012511645297',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1361365495825,
              publishTime:1344067189617,
              permalink:'blog/static/382470582012511645297',
              commentCount:0,
              mainCommentCount:0,
              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:'0',
              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/382470582012511645297">${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 - 订阅此博客

miaozk2006

导航

日志

[VB]在状态栏中显示帮助信息

历史上的今天

最近读者

热度

评论

页脚